Rubrik: Controls · sev-Controls | VB-Versionen: VB4, VB5, VB6 | 02.06.04 |
ComboBox autom. aufklappen (sevDataGrid) Diesmal zeigen wir Ihnen, wie sich die integrierte ComboBox im sevDataGrid-Control autom. aufklappen lässt, wenn der Anwender auf eine Zelle klickt. | ||
Autor: Dieter Otter | Bewertung: | Views: 11.274 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Beim Editieren von Zelleninhalten im sevDataGrid-Control wird die integrierte ComboBox sehr oft verwendet. Unser heutiger Tipp zeigt, wie sich die ComboBox autom. aufklappen lässt, sobald der Anwender auf eine Zelle vom Typ "COMBOLIST" bzw. "COMBOBOX" klickt.
Option Explicit ' zunächst die benötigten API-Deklarationen Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function GetFocus Lib "user32" () As Long
Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, _ ByVal Button As Integer, ByVal Shift As Integer) ' ComboBox autom. aufklappen If Button = vbLeftButton Then If Grid1.Columns(nCol).ColType = TYPE_COMBOLIST Then ' zunächst den EditMode starten Grid1.DoEdit nRow, nCol DoEvents ' ComboBox aufklappen SendMessage GetFocus(), &H14F, True, 0 End If End If End Sub