| |
| |
 |
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: | 5849 |
|
|
|
| |
|
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 Übersichtsseite
|
HOME
