Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to use a combo in Grid ?
Message
 
To
08/10/2001 08:36:20
General information
Forum:
Visual Basic
Category:
Other
Miscellaneous
Thread ID:
00565441
Message ID:
00565448
Views:
19
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform