vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Doubl Click auf Grid sevDataGrid2 
Autor: wyssnet
Datum: 02.03.16 14:35
Hallo

Ich möchte gerne einen Doppelklick auf mein Grid klicken.
Dann soll etwas ausgeführt werden je nachdem auf welcher Spalte ich geklickt habe
sollte eine andere Funktion kommen.

Wie muss ich das anstellen ?

Hier mein anfang ! 

Private Sub sevGridPflegeliste_CellDblClick(ByVal nRow As Long, ByVal nCol As _
  Long)
    With sevGridPflegeliste
        If "Wenn Maus focus auf Grid in der Spalte 1" Then
            gldRowZeileAktuell = sevGridPflegeliste.Row
            frmTexteBearbeiten.Show
            frmTexteBearbeiten.txtArtikelNr.Text = _
              sevGridPflegeliste.Recordset.Fields("Artikelnr")
            frmTexteBearbeiten.cmdTextLaden_Click
            frmTexteBearbeiten.SetFocus
 
        ElseIf "Wenn Maus focus auf Grid in der Spalte 2" Then
 
        ElseIf "Wenn Maus focus auf Grid in der Spalte 3" Then
 
 
        End If
    End With
End Sub
Danke Euch
Dany
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Doubl Click auf Grid sevDataGrid2 
Autor: ModeratorDieter (Moderator)
Datum: 02.03.16 15:02
nRow = Zeile
nCol = Spalte

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Doubl Click auf Grid sevDataGrid2 
Autor: wyssnet
Datum: 02.03.16 15:43
Dieter

Mit dem Spalten Index geht das kann ich aber auch den Spaltennamen nehmen sollte eher den haben ?
Danke dir

und Sorry für die doofen Fragen immer 

Private Sub sevGridPflegeliste_CellDblClick(ByVal nRow As Long, ByVal nCol As _
  Long)
    With sevGridPflegeliste
        If nCol = 3 Then
            gldRowZeileAktuell = sevGridPflegeliste.Row
            frmTexteBearbeiten.Show
            frmTexteBearbeiten.txtArtikelNr.Text = _
              sevGridPflegeliste.Recordset.Fields("Artikelnr")
            frmTexteBearbeiten.cmdTextLaden_Click
            frmTexteBearbeiten.SetFocus
 
        'ElseIf nCol = 13 Then
            Shell "explorer /e,Z:\Daten\Artikel\" & _
              sevGridPflegeliste.Recordset.Fields("Artikelnr") & _
              "\OnlineShop\Bilder", vbNormalFocus
 
        ElseIf nCol("MO-Bild1") = "MO-Bild1" Then
           Shell "explorer /e,Z:\Daten\Artikel\" & _
             sevGridPflegeliste.Recordset.Fields("Artikelnr") & _
             "\OnlineShop\Bilder", vbNormalFocus
 
 
        End If
    End With
End Sub
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Doubl Click auf Grid sevDataGrid2 
Autor: ModeratorDieter (Moderator)
Datum: 02.03.16 17:54
Den Spaltennamen kannst du ermitteln: 
Dim sKey As String
sKey = Grid1.Columns(nCol).Key

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel