|
|
 |
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.
 |
Produktversionen: | sevDataGrid 1.0 |
VB-Versionen: | VB5/6, MS-Access |
Autor: | Dieter Otter |
Datum: | 02.06.04 |
Views: | 8089 |
|
|
|
  |
|
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
Zurück zur Übersichtsseite
|