Tampilkan Isi ComboBox
‘Modul
‘copas ke modul pada vb6
Public 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
Public Const CB_SHOWDROPDOWN = &H14F
‘Form
‘Ketik kode ini pada form
Private Sub Form_Load()
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, _
True, 0)
End Sub
Mengambil Angka dari String Gabungan Angka & Huruf
Private Function CumaAngkaDoang(sData As String) As String
Dim sChar As String * 1
For i = 1 To Len(sData)
sChar = Mid(sData, i, 1)
If IsNumeric(sChar) = True Then
CumaAngkaDoang = CumaAngkaDoang & sChar
End If
Next i
End Function
