Moveable Form At Runtime VB6

Berikut ini adalah cara membuat form tidak dapat digerakan/diseret/moveable=false pada saat runtime di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          'Coding ini di Module...
          Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
          ByVal bRevert As Long) As Long

          Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
          ByVal nPosition As Long, ByVal wFlags As Long) As Long
          Public Const SC_MOVE = &HF010&
          Public Const MF_BYCOMMAND = &H0&

          '--- Batas coding di Module...

          '--- Coding ini di Form
          Private Sub Command1_Click()
              lhSysMenu = GetSystemMenu(Me.hwnd, False)

              lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)
          End Sub
          '--- Batas coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module