Private Sub picMainSkin_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)Ĭontoh Program Billing Warnet Dengan Visual Basic Private Sub picMainSkin_MouseDown(Button As Integer, _ WindowRegion = BentukDaerah(Me.picMainSkin)
Public Sub PindahDonk(ctl As Object, Button As Integer, _Ĭtl.Left = IIf(X < StartX, ctl.Left – (StartX – X), _Ĭtl.Top – (StartY – Y), ctl.Top + (Y – StartY)) 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 ī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” _
Contoh Program dengan Visual Basic - 156 Source Code vb - PERHATIAN: Cara Untuk Anda Yang Ingin Jadi Programmer Kilat Bagaimana Cara Membuat Program Aplikasi Visual Basic untuk berbagai kasu. Kalkulator Sederhana dengan Visual Basic 6.0. Tambahkan sebuah Module, ketik kode di bawah:ĭeclare Function DeleteObject Lib “gdi32” _īilling Warnet dengan Visual Basic 6.0. Ubah BorderStyle form menjadi 0-None, tempatkan sebuah PictureBox, namai dengan “picMainSkin”.