Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listenfeld, Mouseover & ControlTipText möglich?
zurück: suchfunktion weiter: Aktualisierung der Datenblattansicht nach VB-Filtersetzung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Marsupilami
Probieren geht über studieren....


Verfasst am:
12. Sep 2007, 13:09
Rufname:

Listenfeld, Mouseover & ControlTipText möglich? - Listenfeld, Mouseover & ControlTipText möglich?

Nach oben
       Version: Office XP (2002)

Hallo Forum,

ich möchte gerne in einem Listenfeld einen Bemerkungstext der jeweiligen Zeile wo sich die Maus gerade auf dem Listenfeld bewegt als ControlTipText angezeigt bekommen! "i" soll die aktuelle Zeile als Wert speichern und ist in meinem Code hier statisch festgelegt und funktioniert! Aber wie bekomme ich "i" dynamisch zu der Mausover-Funktion hin?
Code:
Private Sub pTA_MouseMove(Button As Integer, Shift As Integer, _
                          X As Single, Y As Single)
    Dim i As Integer
   
    i = 1
    Me!pTA.ControlTipText = Nz(Me!pTA.Column(2, i) & ", " & _
                               Me!pTA.Column(8, i), "")
End Sub
sigibe
VBA Fortgeschritten


Verfasst am:
17. Jul 2008, 11:12
Rufname:


AW: Listenfeld, Mouseover & ControlTipText möglich? - AW: Listenfeld, Mouseover & ControlTipText möglich?

Nach oben
       Version: Office XP (2002)

Hallo, bin gerade eben auf das selbe Problem gestossen!
Hab nun eine, zwar etwas vermurgste, Lösung für das Problem gefunden =), da dacht ich, schreib ich diese doch mal als Antwort hier hin, wenn auch halt etwas spät Embarassed

Im folgenden Code prüfe ich, auf welche Zeile gerade gezeigt wird:
Noch einige Hintergrundinfos:
Spaltenüberschrift ist bei mir 230 Punkte breit
Alle anderen Zeilen ca. 200 Punkte
Code:
Private Sub lst_Pendenzen_MouseMove(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
'überprüft wo der Mauszeiger sich befindet und aktualisiert den TipText entsprechend
    Dim index As Integer
    Dim ListIndex As Integer
    Dim yKoordinate As Long
   
    index = 0
    yKoordinate = 230 'Start für die Zeilenüberschrift
    Do While yKoordinate < Y
        yKoordinate = yKoordinate + 200
        index = index + 1
    Loop
    On Error GoTo jumper_exit
    ListIndex = Me!lst_Pendenzen.Column(0, index)
    If Not IsNull(ListIndex) Then Call updateChangeControlTipText(ListIndex)
    Exit Sub
jumper_exit:
    Call updateChangeControlTipText(0)
End Sub

Folgende ist die aufgerufene Funktion:
Code:
Private Function updateChangeControlTipText(ListIndex As Integer)
On Error GoTo jumper_ClearTipText
    Dim Bemerkungen As Variant
   
    Bemerkungen = CurrentDb.OpenRecordset("SELECT Bemerkungen " & _
                                            "FROM tbl_Changenummer " & _
                                           "WHERE Index = " & ListIndex, _
                                          dbOpenForwardOnly)(0)
    If Len(Bemerkungen) > 241 Then
        Bemerkungen = Left(Bemerkungen, 237) & "..."
    End If
    Me!lst_Pendenzen.ControlTipText = "Bemerkung: " & vbNewLine & Bemerkungen
    Exit Function
jumper_ClearTipText:
    Me!lst_Pendenzen.ControlTipText = ""
End Function
Den ListIndex '0' übergebe ich bei einem Fehler, da dieser in meiner Tabelle bestimmt nie vorkommt (Index beginnt mit 1) und somit in der Funktion der TipText auf leer gestellt wird. Die Bemerkungen wurden als Variant gewählt, da diese auch Null sein können!

Leider kann dadurch ein flimmern im Listenfeld enstehen, wenn man mit der Maus rüber fährt. Konnte aber den Code bis anhin noch nicht schneller machen. Falls also jemand eine Idee hat, bin ich offen für Ideen Very Happy

PS: funktioniert übrigens nur bei Listenfeldern, in denen man nicht scrollen kann, sonst stimmen die linien natürlich nicht mehr überein! Weiss da jemand eine bessere Lösung? Wäre es sogar möglich, den ControlTipText gerade beim Klick auf einen Eintrag anzuzeigen, ohne noch warten zu müssen? (dann könnt ich gerne auf die Mousemove-Methode verzichten Laughing )

Gruss
Sigi
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Eintrag in Listenfeld bei klick an abfrage übergeben? 5 Zamp 1012 07. Dez 2006, 07:58
derArb Eintrag in Listenfeld bei klick an abfrage übergeben?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nicht öffnen - trotzdem Abfragen - möglich? 3 mikase 599 01. Sep 2006, 12:50
mikase Abfrage nicht öffnen - trotzdem Abfragen - möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Ist es möglich die Anzahl der Reihen zu zählen? 2 Andreas_04 2329 20. Jul 2006, 13:56
RRobert Ist es möglich die Anzahl der Reihen zu zählen?
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe in gruppierter Abfrage nicht möglich 6 lukretu 991 11. Mai 2006, 15:17
lukretu Eingabe in gruppierter Abfrage nicht möglich
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe nicht möglich! 8 turbochris 803 04. Mai 2006, 20:51
stpimi Eingabe nicht möglich!
Keine neuen Beiträge Access Tabellen & Abfragen: Konstruktion einer Zufallsgeneratorabfrage möglich? 4 JohnM 794 04. Mai 2006, 17:45
Nouba Konstruktion einer Zufallsgeneratorabfrage möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Sonn & Feiertage 11 mc_fly 1090 03. Mai 2006, 15:51
mc_fly Sonn & Feiertage
Keine neuen Beiträge Access Tabellen & Abfragen: Ist das möglich??? 1 Iceman1981 503 24. März 2006, 21:44
stpimi Ist das möglich???
Keine neuen Beiträge Access Tabellen & Abfragen: Datenzugriffseiten auch auf Basis von Oracle DB's möglich? 0 LaSweeta 802 17. Feb 2006, 12:44
LaSweeta Datenzugriffseiten auch auf Basis von Oracle DB's möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit Listenfeld 1 Schnoop 512 17. Okt 2005, 10:04
rita2008 Probleme mit Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten mit & zusammenfügen, aber nur, wenn nicht leer 5 Keetmanshoop 1557 26. Sep 2005, 07:38
Keetmanshoop Spalten mit & zusammenfügen, aber nur, wenn nicht leer
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum