Keskustelu: Ohjelmointikysymykset: VB6: ToolTipText

Elikkäs saisiko RichTextBoxissa tuon tooltiptextin näkymään esim jos painetaan vaikka "," näppäintä tjnt näppäintä siis tuo buttonin tarkistus onnistuu mutta miten tuon tooltiptextin saa näkyviin

Moikka Tesmu!

Vaikkapa näin...

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
 If KeyCode = 32 Then
  RichTextBox1.ToolTipText = "Teksti"
  Else: RichTextBox1.ToolTipText = ""
 End If
End Sub

Mouse kursori pitää siirtää RichTextBoxin päälle

No mutta tarkoitinki että mouse kursoori ei ole siinä päällä ja tooltiptext tulee näkyville kun jotain nappia painetaan. Kyllä tuonkin olisin ihan ite keksinyt jos sen noin olisi pitäny toimia.

Moikka tesmu!

Controll'in ToolTipText ei tule näkyviin ellei hiiriosoitin ole asianomaisen controll'in päällä eli sisällä!

[k]'moduuliin[/k]
Public mx, my

[k]'formiin[/k]
Private Declare Sub SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long)

Private Sub Form_Load()
   mx = ((Me.Left + RichTextBox1.Left + (RichTextBox1.Width / 2)) / Screen.TwipsPerPixelX)
  my = ((Me.Top + RichTextBox1.Top + (RichTextBox1.Height / 2)) / Screen.TwipsPerPixelY)
End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 112 Then ' F1
  SetCursorPos mx, my
  RichTextBox1.ToolTipText = "Teksti"
  Else: RichTextBox1.ToolTipText = ""
 End If
End Sub

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 112 Then ' F1
   SetCursorPos mx, my + (RichTextBox1.Height / 2 / Screen.TwipsPerPixelX)
  End If
End Sub

Mutta tuohon tooltiptextiin taisi olla oma API myös... Otetaan esimerkkinä visual-basicin koodieditorissa kun kirjotat funktionnimi( niin tulee tooltiptextinä funktion esittely... Tälläistä kaipaisin.

tesmu hyvä!

Siinä tapauksessa sinun lienee parasta käyttää kyseistä API-funktiota, muuta en osaa sanoa...

Osaako kukaan sanoa sen apinfunktion esittelyä koska sitä juuri haen. =/

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/tooltip/usingtooltips.asp

En oikeen tuosta saanut väkerrettyä VB versiota... Saisiko joku muu?

Moikka tesmu!

Declare Sub InitCommonControls Lib "comctl32" ()

Public Function CreateToolTip(ByVal ParentHwnd As Long) As Boolean
...
sovella...