TextBox1 wird nicht...
08.03.2022 13:34:55
wolfgang
das Problem:
Der Courser wird nicht in Textbox1 gesetzt.
Ich habe meine UF neu nachgebaut und Stück für Stück die Inhalte reinkopiert.
Nun habe ich festgestellt das folgendes Makro dafür Schuld ist:
<pre>Private Sub ListBox1_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As Single, ByVal y As Single)
' start tthe hook
HookListBoxScroll
' TextBox1 = " "
' TextBox1.SetFocus
'With TextBox1
' .SetFocus
' .SelStart = 0
' .SelLength = Len(.Text)
'End With
End Sub</pre>
ich brauch aber das Scrollen in der ListBox.
Vielleicht gibt es einen Trick ?
Wenn ich das ins Makro freigebe, kann ich nicht mehr scrollen und teilweise hängt fest.
mfg wolfgang