| PERSIAPAN | PROPERTIES | ||||
|---|---|---|---|---|---|
| NO | CONTROL | ITEM | NAME | VALUE | KETERANGAN |
| 1. | Form | 1 | BorderStyle | 0 - None | |
Contoh Aplikatif : Word and Excell Generator
16 tahun yang lalu
Sabtu, 07 November 2009
Menggerakan Form Tanpa TitleBar
Langganan:
Posting Komentar (Atom)
3 komentar:
Mas! bisa minta ubah scriptnya untuk vb 2010.
saya sangat perlu mas, untuk tugas PKL.
Terimah kasih.
Maaf lama membalasnya...
coba kode ini :
Public Class Form5
Private MoveMouseDown As Boolean
Private MoveX As Single
Private MoveY As Single
Private Sub Form5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
MoveMouseDown = True
MoveX = e.X
MoveY = e.Y
End Sub
Private Sub Form5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If MoveMouseDown Then
Me.Left = Me.Left + (e.X - MoveX)
Me.Top = Me.Top + (e.Y - MoveY)
End If
End Sub
Private Sub Form5_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
MoveMouseDown = False
End Sub
Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
End Class
Posting Komentar