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

 
 

ScrollToolTip im sevDataGrid anpassen
Dieser Tipp zeigt, wie sich beim sevDataGrid-Control der ToolTip beim Scrollen immer für die Spalte angezeigt wird, nach der aktuell sortiert ist.
Produktversionen:sevDataGrid 1.0
VB-Versionen:VB5/6, MS-Access
Autor:Michael Dollinger
Datum:23.04.04
Views:4707

 
 

Beim Scrollen über den vertikalen Scrollbalken im sevDataGrid-Control lässt sich an der aktuellen Mausposition ein ToolTip anzeigen, der die aktuelle Position wiedergibt. Standardmäßig wird als ToolTip immer die Zeilennummer ausgegeben.

Nachfolgender Code bewirkt, dass der ScrollToolTipText immer:

  • für die Spalte, nach der sortiert ist, wenn sichtbar
  • ansonsten für die Spalte "sToolTipColDefault", wenn angegeben
  • ansonsten für die Spalte 1
angezeigt wird.

Private Sub Grid1_StartScrollBarMove( _
  nToolTipCol As Long, nToolTipWidth As Long)

  ' Spalte für ToolTip-Anzeige setzen
  ScrollToolTipNachSortierung Grid1, nToolTipCol, _
    nToolTipWidth, 2
End Sub
Public Sub ScrollToolTipNachSortierung( _
  SortierGrid As Control, _
  sToolTipCol As Long, _
  sToolTipWidth As Long, _
  Optional sToolTipColDefault As Integer = 1)

  With SortierGrid
    ' zunächst Spalte auf Defaultspalte setzen
    sToolTipCol = sToolTipColDefault

    ' alle Spalten durchlaufen
    For i = 1 To .Cols
      ' Wird nach dieser Spalte sortiert?
      If .Columns(i).SortDesc <> SORT_NONE Then
        ' Ist die Spalte sichtbar?
        If .Columns(i).Visible = True Then
          ' Sortierspalte übernehmen
          sToolTipCol = i
          Exit For
        End If
      End If
    Next i

    ' Breite des ToolTips an die Spaltenbreite anpassen
    sToolTipWidth = .Columns(sToolTipCol).Width / Screen.TwipsPerPixelX
  End With
End Sub

zurück Zurück zur Übersichtsseite

   

 

nach oben

Optimiert für den Internet Explorer bei 1024x768 Pixel
Copyright ©1997-2019 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.