Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 061 fois - Téléchargée 50 fois
'This project needs a ListBox, named List1 and a TextBox, named Text1 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Const LB_FINDSTRING = &H18F Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Add some items to the listbox With List1 .AddItem "Computer" .AddItem "Screen" .AddItem "Modem" .AddItem "Printer" .AddItem "Scanner" .AddItem "Sound Blaster" .AddItem "Keyboard" .AddItem "CD-Rom" .AddItem "Mouse" End With End Sub Private Sub Text1_Change() 'Retrieve the item's listindex List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text)) End Sub
13 janv. 2004 à 10:52
CB_FINDSTRING = &H14C
10 févr. 2002 à 11:37
6 févr. 2002 à 13:12
voir encore mieux que je puisse saisir directement dans la combobox/datacombobox
bref pour faire comme dans access
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.