Lompat ke konten Lompat ke sidebar Lompat ke footer

Menambahkan CheckBox Ke ComboBox VB6

Berikut ini adalah cara menambahkan control checkbox ke dalam combobox di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Module, 1 CheckBox dan 1 ComboBox.
2. Set lebar CheckBox dan tingginya = 130.
3. Copy-kan coding berikut ke dalam editor Module dan Form yang bertalian.

'Set CheckBox Width property and Height property to 130.
          '--- Coding ini di Module Anda...
          Public Const EC_LEFTMARGIN = &H1
          Public Const EC_RIGHTMARGIN = &H2

          Public Const EC_USEFONTINFO = &HFFFF&
          Public Const EM_SETMARGINS = &HD3&
          Public Const EM_GETMARGINS = &HD4&
          Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _

          (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, _
          ByVal lpszWindow As String) As Long
          Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
          (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
          '--- Batas coding di Module...


          '--- Coding ini di Form Anda...
          Private Sub AddCheckToCombo(ByRef chkThis As CheckBox, ByRef cboThis As ComboBox)
          Dim lhWnd As Long

          Dim lMargin As Long
          lhWnd = FindWindowEx(cboThis.hwnd, 0, "EDIT", vbNullString)
            If (lhWnd <> 0) Then
               lMargin = chkThis.Width \ Screen.TwipsPerPixelX + 2

               SendMessageLong lhWnd, EM_SETMARGINS, EC_LEFTMARGIN, lMargin
               chkThis.BackColor = cboThis.BackColor
               chkThis.Move cboThis.Left + 3 * Screen.TwipsPerPixelX, cboThis.Top + 2 * Screen.TwipsPerPixelY, chkThis.Width, cboThis.Height - 4 * Screen.TwipsPerPixelY
               chkThis.ZOrder
            End If

          End Sub

          Private Sub Form_Load()
             AddCheckToCombo Check1, Combo1

          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

Posting Komentar untuk "Menambahkan CheckBox Ke ComboBox VB6"