Tools & Components Tools & Components
    Professionelle Entwicklerkomponenten für Visual Basic, .NET und MS-Access
www.tools4vb.com   
 
 
  HOME
  Willkommen
  News
  Impressum
  Datenschutz
  Referenzen
  Kundenmeinungen
  TOP-Angebot
  Online-Shop
 
  ENTWICKLERTOOLS
  Oberfläche & Design
  DataGrid & Listen
  Statistik
  Internet / ISDN
  Zip & Verschlüsselung
  DTA / Kontonummern
 
  DOWNLOAD
  Komplettinstallation
  Bugfixes und Patches
  Online-Hilfe
  Sonstige Downloads
 
  SUPPORT
  Diskussionsforum
  Tipps & Tricks
  FAQ
 
  FUNKTIONEN
  als Startseite
  zu den Favoriten
 
  PARTNERSEITEN
vb@rchiv - Alles für VB-Entwickler roSoft - mehr als 15 Jahre Profi-Software!
 
 
 

HOME > TIPPS & TRICKS > sevDataGrid 1.0

 

Tipps & Tricks: sevDataGrid 1.0

 
 

Auf ComboBox-Auswahl im sevDataGrid reagieren
Für die Auswahl eines Eintrags aus der ComboBox im sevDataGrid v1.0 (EditMode) gibt es kein eigenes Ereignis. Eine Hintertür gibt es aber dennoch...
Produktversionen:sevDataGrid 1.0
VB-Versionen:VB5/6, MS-Access
Autor:Dieter Otter
Datum:02.04.04
Views:6607

 
 

Hat man im sevDataGrid v1.0 für eine Spalte den Typ "ComboBox" festgelegt, wird beim Editieren der Spalte autom. eine ComboBox angezeigt, aus der der Anwender einen Eintrag bequem auswählen kann. Für die Auswahl des Eintrags selbst ist jedoch kein spezielles Ereignis vorgesehen. Manchmal wäre es aber wünschenswert, wenn man über die Auswahl sofort benachrichtigt werden würde, um so bspw. andere Spalten mit einem speziellen Vorgabewert zu belegen.

Nachfolgender Tipp zeigt, wie man dennoch auf die Auswahl eines Combobox-Eintrags reagieren kann.

Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  Dim sItem As String
  Dim nCol As Long

  ' ComboBox-Auswahl?
  If KeyCode = 0 And Shift = 0 Then
    With Grid1
      ' ausgewählten Eintrag ermitteln
      sItem = .EditText

      ' Spalte ermitteln
      nCol = .Col

      ' Felder je nach ComboBox vorbelegen
      If nCol = 2 And .IsEditMode = MODE_ADDNEW Then
        .CellNew(3) = "..."
        .CellNew(4) = "...."
      End If
    End With
  End If
End Sub

Wie Sie sehen, gibt es also doch ein Ereignis bei der Auswahl eines ComboBox-Eintrags. Auch wenn man das hier nicht unbedingt vermutet :-)

Hinweis:
Das EditKeyDown-Ereignis wird erst ab Version 1.0.15 von sevDataGrid in Verbindung mit der ComboBox-Auswahl ausgelöst.


zurück Zurück zur Übersichtsseite

   

 

nach oben

Optimiert für den Internet Explorer bei 1024x768 Pixel
Copyright ©1997-2024 Tools & Components, Dieter Otter
Alle Rechte vorbehalten.
 

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.