ballon multiline tooltip on a msflexgrid...
i use the .cls (cToolTip) in lisview, but not idea to use in msflexgrid?
i use the .cls (cToolTip) in lisview, but not idea to use in msflexgrid?
Code:
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim HTI As LVHITTESTINFO
Dim lngRet As Long, ULTIMO As Integer
HTI.pt.X = X / Screen.TwipsPerPixelX
HTI.pt.Y = Y / Screen.TwipsPerPixelY
lngRet = SendMessage(Me.ListView1.hwnd, LVM_SUBITEMHITTEST, 0&, HTI)
'Me.Picture1.Move Y, X
COLONNA = HTI.lngSubItem
RIGA = HTI.lngItem + 1
'Debug.Print MESE
'Debug.Print ANNO
'TESTG = DateDiff("D", DAL, AL) + 1
ULTIMO = Day(DateSerial(ANNO, MESE + 1, 1) - 1)
Me.LCOLONNA.Caption = COLONNA
Me.LRIGA.Caption = RIGA
If COLONNA >= 1 And COLONNA <= ULTIMO And RIGA >= 1 And ANNO > Empty And MESE > Empty Then
Me.LGIORNO.Caption = UCase(Format(DateSerial(ANNO, MESE, COLONNA), "DDD")) & "-" & DateSerial(ANNO, MESE, COLONNA)
If Me.ListView1.ListItems(RIGA).ListSubItems(COLONNA).Text > "" Then
STANZA = Me.ListView1.ListItems(RIGA).Text
INDICE = Left(STANZA, 2)
Call APRI_PRENOTAZIONE
TT.Title = Me.LGIORNO.Caption
TT.TipText = "PRENOTAZ.: " & STRINGA & " - CAMERA: " & STANZA
TT.Create Me.ListView1.hwnd
Else
m_bInLable = False
TT.Title = ""
TT.TipText = ""
TT.Destroy
End If
Else
Me.LGIORNO.Caption = ""
End If
End Sub