GarisDaerah = CreateRectRgn(AwalGaris, Y, X, Y + 1)ĬombineRgn DaerahPenuh, DaerahPenuh, GarisDaerah, 2 If GetPixel(hDC, X, Y) = vbWhite Or X = Lebar Then Tinggi = picSkin.Height / Screen.TwipsPerPixelY
Lebar = picSkin.Width / Screen.TwipsPerPixelX Public Function BentukDaerah(picSkin As PictureBox) As Long Tambahkan sebuah Module, ketik kode di bawah:ĭeclare Function DeleteObject Lib “gdi32” _īyVal X As Long, ByVal Y As Long) As Longĭeclare Function CreateRectRgn Lib “gdi32” _ĭeclare Function CombineRgn Lib “gdi32” _ĭeclare Function SetWindowRgn Lib “user32” _ĭeclare Function CreateRoundRectRgn Lib “gdi32” _ Ubah BorderStyle form menjadi 0-None, tempatkan sebuah PictureBox, namai dengan “picMainSkin”. Bosan dengan tampilan form yang berbentuk persegi? Ingin mengubahnya dengan bentuk lain yang lebih dinamis? Simak penjelasannya berikut ini!
0 kommentar(er)
