Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to use a combo in Grid ?
Message
 
À
08/10/2001 08:36:20
Information générale
Forum:
Visual Basic
Catégorie:
Autre
Divers
Thread ID:
00565441
Message ID:
00565448
Vues:
20
>How to use the different kinds of types (i.e. combobox, checkbox, picture etc.) in the MS-Grid ? I wanted to make in such a way that I can enter unlimited data in the grid where some comlumns will be like combo box
>
>Any body can help to write the coding.....


Add a ListBox and make its visible property to False.


Add this code to the form declaration
Option Explicit 
Dim intColIdx As Integer 
 'This will contain the index for the current  cell in the dbgrid 
Dim blnListShow As Boolean 'is the list showing or not 


Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer) 
Dim intTop As Integer 
intColIdx = ColIndex 
If blnListShow = False Then 'if the list is not showing then... 
blnListShow = True 
List1.Left = DBGrid1.Columns(ColIndex).Left + 360 
intTop = DBGrid1.Top + (DBGrid1.RowHeight * (DBGrid1.Row +2)) 
 List1.Top = intTop 
 List1.Width = DBGrid1.Columns(ColIndex).Width + 15 
                     List1.Visible = True 
                  List1.SetFocus 
Else 'if the list is show, hide it 
             blnListShow = False 
              List1.Visible = False 
End If 
End Sub 

Private Sub Form_Load() 
   blnListShow = False 'initialize 
End Sub 

Private Sub List1_Click() 
   DBGrid1.Columns(intColIdx).Text = List1.Text 
   'set the value of the dbgrid 
   List1.Visible = False 'hide the list 
End Sub 

Private Sub List1_LostFocus() 
   blnListShow = False 
   List1.Visible = False 
End Sub
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform