Opgelost Control Tip Text

[DutchOirs]

Goedemiddag

Zit met een vraagje over ControlTipText van een Textbox etc.
Denk dat de lengte een string is dus 255 tekens.
Maar zou het mogelijk zijn om dit te verdelen op meerdere regels?
Ben aan het zoeken geweest maar kom er niet uit.

Already many thanks.
Dutch

 

[edmoor]

Dat zal niet gaan en is een Tooltip ook niet voor bedoeld.

 

[DutchOirs]

Hoi Edmoor,

Was ik al bang voor.

Dacht als je veel text hebt voor uitleg, zou het leesbaarder zijn op meerdere regels vandaar.
Maar antway thanks voor het meedenken.


Maar anyway thanks

 

[edmoor]

Als je er echt iets voor wilt hebben dan kan dat wel met een userform die wordt aangeroepen middels het MouseMove event van een object.

 

[DutchOirs]

Hoi Edmoor,
Zat een uitgebreid help uitleg te maken voor m'n program.
Dacht dus met ControlTipText het makkelijker te kunnen verwezenlijken.
MouseMove heb ik nog nooit gebruikt, maar opent weer deuren
Nu een leuke manier vinden voor extra uitleg

Zou leuk zijn als je met je rechtermuisknop een helpfile (msgbox) kunt starten.
Gebruik hem om op CommandButton te gebruiken.
Met MouseMove blijft ie boven de knop hangen.

 

[AHulpje]

Of vul een hidden label met de gewenste tekst en maak gebruik van de MouseMove events:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.Visible = True
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.Visible = False
End Sub

Maar daar moet je dan wel ruimte voor hebben op je formulier.
Je kunt ook één label gebruiken dat je op het moment suprême vult met de tekst die bij het betreffende besturingselement hoort.

 

[edmoor]

Wat AHulpje bedoelt:

 

[AHulpje]

Precies, en deze kun je toevoegen voor de combobox:

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    lblStop.Caption = "Selecteer uit deze " & vbLf & "keuzelijst" & vbLf & "het door u" & vbLf & "gewenste item"
    lblStop.Visible = True
End Sub

 

[DutchOirs]

Top, een mooie manier.
Gebruik hem in een UserForm met allemaal knoppen, dus heb er niet echt plaats voor, maar zou inderdaad een algemene kunnen maken die boven dat Userform hangt.
Thanks fooks voor het meedenken

Zit me net te bedenken dat boven al die knoppen (45) hij waarschijnlijk constant aan-uit gaat als je met je cursor er overheen gaat.
Zou dan eigenlijk een move moeten zijn die je zelf doet, zoals ik al zei met je rechtersmuis klik

 

[AHulpje]

Zoiets misschien?

 

[DutchOirs]

Heb even een klein opzetje gemaakt.
Kan het Label niet boven de bewuste knop hangen dus dit zo verdeeld.
Als jullie nog een mooi idee hebben.

 

[DutchOirs]

AHulpje, dat is hem.

Thanks ga er morgen mee verder.

 

[DutchOirs]

Goedemorgen,
AHulpje werkt perfect, heb hem net nagemaakt viel me 2 dingen op.
1e:
je declareert EersteKeer As Boolean, dit snap ik even niet je gebruikt geen EersteKeer verder.

2e:
gebruik option explicit en onder initialize gebruik je ctrl. Deze moet ik dan declareren, maar met wat voor een declaratie?

Maar al met al heel blij met deze oplossing, geeft weer meer mogelijkheden.
Wat je al niet uit VBA kan halen

 

[snb]

Zonder overbodige variabelen

label1.visible = not label1.visible

 

[AHulpje]

EersteKeer was een experimentje, vergeten weg te halen.
Als je Option Explicit gebruikt dan:

    Dim ctrl As Control

 

[DutchOirs]

Goedemiddag AHulpje,
Thanks duidelijk.

 

[DutchOirs]

Goedemiddag weer AHulpje,

Even bovenstaande geïmplementeerd in m'n programma.
Perfecto ben heel blij met dit succes thanks.
Blijft een klein vraagje over, ter perfectie.

Is het ook mogelijk een autosize op het UserForm frmInfo toe te passen.
Even bezig geweest maar het een raakt het ander..

Is een extra weet het, maar zal dit veel gaan gebruiken..
Goede hulp bij program is belangrijk en men wil na een jaartje nog wel eens wat vergeten
Dus belangrijk om het goed uit te leggen.

 

[AHulpje]

Voor lblInfo het volgende in de eigenschappen gewijzigd

    WordWrap = False
    AutoSize = True

En dit toegevoegd aan frmInfo:

Private Sub UserForm_Activate()
    Me.Width = lblInfo.Left + lblInfo.Width + 15
    Me.Height = lblInfo.Height + 60
End Sub

En de infoteksten wat aangepast om het effect beter te kunnen beoordelen, zie bijlage.

 

[AHulpje]

Hm, moet ik die bijlage wel toevoegen natuurlijk...

 

[DutchOirs]

Thanks AHulpje,
Mooie uitleg en duidelijk weer wat geleerd