Logikanya gini aja, qta simpan text2 yg kita ketik di combo box ke dlm file
text. Kemudian ambil data dr file text tsb. masukan satu persatu ke combobox.
Di bawah ini ada code untuk menampilkan text pada combo dengan hanya mengetik
huruf depannya saja.Tinggal ditambahin fungsi untuk menyimpan text2 yg qta
ketik ke file text.
Code nya seperti ini:
'===============MODULE ============================
Option Explicit
' SendMessage API
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
' CB Constants
Public Const CB_MAXLENGTH = 50
Public Const CB_FINDSTRING = &H14C
Public Const CB_FINDSTRINGEXACT = &H158
Public Const CB_LIMITTEXT = &H141
' ************************************
' Perform Lookup for DropDown ComboBox
' ************************************
Public Sub Combo_Lookup(ctlCombo As ComboBox)
Dim lngItemPos As Long
Dim strCombo As String
strCombo = ctlCombo.Text
' Use SendMessage() API to Find Combobox Values
lngItemPos = SendMessage(ctlCombo.hwnd, CB_FINDSTRING, -1, ByVal strCombo)
If lngItemPos >= 0 Then
ctlCombo.ListIndex = lngItemPos
End If
ctlCombo.SelStart = Len(strCombo)
ctlCombo.SelLength = CB_MAXLENGTH
End Sub
Public Sub DC_Lookup(ctlCombo As DataCombo)
Dim lngItemPos As Long
Dim strCombo As String
strCombo = ctlCombo.Text
' Use SendMessage() API to Find Combobox Values
lngItemPos = SendMessage(ctlCombo.hwnd, CB_FINDSTRING, -1, ByVal strCombo)
If lngItemPos >= 0 Then
ctlCombo = lngItemPos
End If
ctlCombo.SelStart = Len(strCombo)
ctlCombo.SelLength = CB_MAXLENGTH
End Sub
'=================== END MODULE========================
'========= FORM==========================================
Option Explicit
Dim nLastKeyAscii, x As Integer
Private Sub cboProducts_Change()
Select Case nLastKeyAscii
Case vbKeyBack
Call Combo_Lookup(cboProducts)
Case vbKeyDelete
Case Else
Call Combo_Lookup(cboProducts)
End Select
End Sub
Private Sub cboProducts_KeyDown(KeyCode As Integer, Shift As Integer)
nLastKeyAscii = KeyCode
If KeyCode = vbKeyBack And Len(cboProducts.SelText) <> 0 And
cboProducts.SelStart > 0 Then
cboProducts.SelStart = cboProducts.SelStart - 1
cboProducts.SelLength = CB_MAXLENGTH
End If
End Sub
Private Sub dc_Change()
Select Case nLastKeyAscii
Case vbKeyBack
Call DC_Lookup(Dc)
Case vbKeyDelete
Case Else
Call DC_Lookup(Dc)
End Select
End Sub
Private Sub dc_KeyDown(KeyCode As Integer, Shift As Integer)
nLastKeyAscii = KeyCode
If KeyCode = vbKeyBack And Len(Dc.SelText) <> 0 And Dc.SelStart > 0 Then
Dc.SelStart = Dc.SelStart - 1
Dc.SelLength = CB_MAXLENGTH
End If
End Sub
Private Sub Form_Load()
' Populate cboProducts with Items
With cboProducts
.AddItem "Keyboard"
.AddItem "Mouse Pad"
.AddItem "Mouse Wheel"
.AddItem "Mouse Optical"
.AddItem "CPU"
.AddItem "CD-ROM Drive"
.AddItem "Monitor"
.AddItem "Motherboard"
.AddItem "Sound Card"
.AddItem "Sound System"
.AddItem "Hard Disk"
.AddItem "DCD Drive"
End With
End Sub
'=================== END FORM ==========================
----- Original Message -----
From: Arief Wibowo
To: [email protected]
Sent: Sunday, April 22, 2007 6:10 PM
Subject: [Programmer-VB] Re: Text box menampilkan Text yang pernah kita
ketik, atau simpan. Bisakah?
=== BEGIN ARIEFWT'S POST ===
Sebagai tambahan, registry adalah suatu hal yang membuat sebuah
program tidak dapat portable (dibawa kemana-mana dalam media portable
seperti flash disk dan tak perlu instal kalau bisa)... :-)
Lebih baik simpan dalam suatu berkas .ini atau berkas database.
=== END ARIEFWT'S POST ===
Catatan:
* Semoga posting di atas dapat bermanfaat secara positif bagi kita semua
* CMIIW - Correct Me If I am Wrong!
* Untuk keterangan lebih lanjut silakan hubungi saya di
[EMAIL PROTECTED]
* Mohon maaf sebesar-besarnya apabila ada kata-kata yang kurang
berkenaan di hati Anda
Medan, 22 April 2007
--
Best Regards,
<Arief Wibowo, C.Hts, RM>
Computer Programmer and Alternative Therapist
--- In [email protected], "Ade Aan Wirama \(gmail\)"
<[EMAIL PROTECTED]> wrote:
>
> Setiap suatu perintah/text diketik didalam textbox atau combobox, simpan
> datanya di registry. Jadi waktu kita pengen lihat tulisan yang pernah
> diketik di textbox/combobox tersebut, ambil datanya dari registry.
>
> Best Regards,
> Ade Aan Wirama
>
> ----- Original Message -----
> From: "Frangky id" <[EMAIL PROTECTED]>
> To: "programmer-vb" <[email protected]>
> Sent: Saturday, April 21, 2007 5:47 PM
> Subject: [Programmer-VB] Text box menampilkan Text yang pernah kita
ketik,
> atau simpan. Bisakah?
>
>
> > Teman-teman, bagaimana membuat text box atau combo box,
menampilkan text
> > (tulisan) yang pernah kita ketik pada textbox/ combobox tersebut,
di bawah
> > text box atau combo box tersebut.
> >
> > Contohnya Seperti pada Kotak Run atau Combo Box Website Address
yang akan
> > menampilkan alamat situs yang pernah kita ketik di combobox Browser.
> > Untuk lebih jelasnya coba lihat gambar yang saya attach bersama
email ini.
> >
> > terima kasih sebelumnya, bagi teman-teman yang mereply email saya.
> >
>
