Een Combo box is een controle die kan de gebruiker kiezen uit een vooraf gedefinieerde lijst met acceptabele waarden . De DataGrid is een aparte controle die database gegevens toont aan de gebruiker op vrijwel dezelfde manier als de ontwikkelaar ziet de gegevens toen direct kijken naar de database tabellen . De Combo box control kan niet worden geplaatst in de DataGrid-besturingselement . Echter , we kunnen het vak Combo put " bovenop " een specifieke kolom van de DataGrid-besturingselement om het te laten lijken alsof het deel uitmaakt van de controle zelf . Instructies
1 Maak een nieuw standaard-EXE Visual Basic -project . Vanuit het menu , selecteert u " Project ", "componenten . " Klik op het selectievakje naast " Microsoft Datagrid 6.0 ( OLE ) . " Klik op de knop " OK " om te slaan en te sluiten . Vanuit het menu , selecteert u " Project ", " Referenties . " Klik op het selectievakje naast " Microsoft ActiveX DataObjects 2.x Library", waarbij " x " is het hoogste aantal beschikbaar . Klik op de knop " OK " om te slaan en te sluiten . Kopen van 2 Voeg een nieuw DataGrid-besturingselement op de " Form1 " , dat is standaard gemaakt . De standaardnaam is " DataGrid1 . " De gegevensbron en andere eigenschappen van de " DataGrid1 " control configureren zodat de juiste informatie wordt weergegeven .
3 Voeg een Combo box controle op " Form1 " en stel de eigenschap visible op ' Valse '. Verkrijg de toppositie , rijhoogte en kolombreedte van de cel op " DataGrid1 " dat u wilt het vak Combo weer op en slaan elk van deze waarden in afzonderlijke integer variabelen .
4 Stel de positie waarden voor de verborgen Combo doos met die van de cel de gebruiker klikte op in " DataGrid1 " en stel de Combo box eigenschap visible op ' True '. Dit zal de positie van de combo box direct op de bovenkant van de cel op " DataGrid1 " en zal de gebruiker een keuzelijst van waarden om uit te kiezen .
Code 5 van de gebeurtenis click van de doos Combo zien zodat wanneer de gebruiker een selectie maakt , hebben we de inhoud van de cel met de nieuwe waarde geselecteerd uit de doos Combo updaten " DataGrid1 " :
Als cmbMyCombo.Visible = True DataGrid1 dan
. Columns ( 2 ) . tekst = cmbMyCombo.Text End
Als
|
