Drag Object Di Visual Basic

Selamat pagi buat agan-agan semua, Disini ane mau posting Tutorial Komputer yaitu tentang Bahasa Pemrogramman Visual Basic yaitu Cara Drag Object Di Visual Basic Saat program Running, Disini ane contohin Mendrag Komponen Command…OK gan langsung aja ane kasih Tips Dan trik ya….

Bahan yang harus di siapkan,hehe ..Udah kanyak mau buat masakan aja…hihi jadi bahan yang harus disiapkan adalah 2 buah Command terlihat pada gambar di bawah ini :

 

Setelah di desain seperti gambar diatas, sekarang saat ya kita berikan sebuah Coding, Masukan Code ini di jendela code di Vusal basic :

Dim blnDrag As Boolean

Dim xClickPos, yClickPos

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

Source.Left = X - xClickPos

Source.Top = Y - yClickPos

End Sub

Private Sub command2_Click()

If blnDrag = False Then

blnDrag = True

Command2.Caption = "Drag Aktif "

Else

blnDrag = False

Command2.Caption = "Drag Tidak Aktif"

End If

End Sub

Private Sub Command2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

If State = 0 Then

Source.MousePointer = 12

ElseIf State = 1 Then

Source.MousePointer = 0

End If

End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If blnDrag = False Then MsgBox "Drag Tidak Aktif OK"

End Sub

Private Sub Command1_MouseDown(CommandButton As Integer, Shift As Integer, X As Single, Y As Single)

If blnDrag Then

xClickPos = X

yClickPos = Y

Command1.Drag vbBeginDrag

End If

End Sub

Private Sub Form_Load()

blnDrag = False

Command2.Caption = "Drag Tidak Aktif"

End Sub

Kemudian Di Running dengan cara tekan F5 pada Keyboard atau klik Icon Running di Visual Basic, Lihat hasilnya …Selamat mencoba ya …

Artikel Terkait :