20.03.2019, 13:12
21.03.2019, 11:53
Hey, das ist echt eine sehr gute Lösung. Vielen Dank :)
Allerdings bekomme ich sie irgendwie nicht umgesetzt:
Mein Problem:
1. Das Textfeld steht bereits beim Öffnen der Userform da, ohne mit der Maus über den Button zu fahren.
2. Das Textfeld verschwindet erst wieder, wenn ich mit der Maus das Fenster komplett verlasse.
3. Das Fenster hat eine RGB Hintergrundfarbe. Ich würde den Rahmen des textfeldes gerne verschwinden lassen - ihn also in der gleichen Farbe machen. Wenn ich im UserForm_Initialize() TextBox1.BorderColor = RGB(10, 10, 10) mache verändert sich die Farbe trotzdem nicht und ich sehe den störenden Rahmen weiterhin.
Allerdings bekomme ich sie irgendwie nicht umgesetzt:
Code:
Private Sub RK1_1_Click()
Application.ScreenUpdating = False
Worksheets("Input").Activate
RK1_1.BackColor = &H80000015 ' Farbe auf rot setzen
RK2_1.BackColor = &H8000000F
RK3_1.BackColor = &H8000000F
Worksheets("Input").Range("C10").Value = "Risikoklasse 1"
Application.ScreenUpdating = True
TextBox1.Visible = False
MsgBox "Geht doch!!"
End Sub
Private Sub RK1_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Visible = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Visible = False
End Sub
1. Das Textfeld steht bereits beim Öffnen der Userform da, ohne mit der Maus über den Button zu fahren.
2. Das Textfeld verschwindet erst wieder, wenn ich mit der Maus das Fenster komplett verlasse.
3. Das Fenster hat eine RGB Hintergrundfarbe. Ich würde den Rahmen des textfeldes gerne verschwinden lassen - ihn also in der gleichen Farbe machen. Wenn ich im UserForm_Initialize() TextBox1.BorderColor = RGB(10, 10, 10) mache verändert sich die Farbe trotzdem nicht und ich sehe den störenden Rahmen weiterhin.
21.03.2019, 11:59
Ich habe das Problem gefunden. Ich verwende noch Register.
Erst wenn ich das Register mit der Maus komplett verlasse wird die TextBox wieder ausgeblendet. Wenn ich wieder auf das Register zurück komme wird es wieder eingeblendet.
Geht das auch mit Registern?
Erst wenn ich das Register mit der Maus komplett verlasse wird die TextBox wieder ausgeblendet. Wenn ich wieder auf das Register zurück komme wird es wieder eingeblendet.
Geht das auch mit Registern?
21.03.2019, 12:00
ad 1) Setze die Eigenschaft Visible der Textbox auf False - dann ist sie standardmäßig unsichtbar
ad 3) Setze die Eigenschaft BorderStyle der Textbox auf 0 - fmBorderStyleNone
ad 2) Schwer zu glauben, aber ohne Beispielmappe nicht nachvollziehbar für mich
ad 3) Setze die Eigenschaft BorderStyle der Textbox auf 0 - fmBorderStyleNone
ad 2) Schwer zu glauben, aber ohne Beispielmappe nicht nachvollziehbar für mich
21.03.2019, 12:01
Code:
Private Sub TabStrip1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Visible = False
End Sub
21.03.2019, 12:06
1. Danke - hätte ich wohl auch selbst drauf kommen können.
2. probiere ich gleich aus
3. Boarder Style steht bereits auf 0 - trotzdem wird ein grauer Rahmen angezeigt.
2. probiere ich gleich aus
3. Boarder Style steht bereits auf 0 - trotzdem wird ein grauer Rahmen angezeigt.
21.03.2019, 12:09
Verwende nicht UserForm_Initialize, sondern UserForm_Activate.
Außerdem kannst du doch bei BorderColor den Eintrag auf Fensterhintergrund stellen.
Außerdem kannst du doch bei BorderColor den Eintrag auf Fensterhintergrund stellen.
21.03.2019, 12:10
Also: Jetzt wird die TextBox Initial nicht angezeigt. Wenn ich einmal über den Button komme wird sie angezeigt - geht dann aber nicht mehr weg - auch wenn ich das Fenster mit der Maus verlasse.
Und der Rahmen ist noch da:
[attachment=23206]
Und der Rahmen ist noch da:
[attachment=23206]
21.03.2019, 12:12
Zeig doch mal komplett die Eigenschaften von Userform und der Textbox.
Wäre natürlich wesentlich einfacher, du kopierst die komplette Userform in eine Mappe und lädst diese hoch. Das erspart uns die Herumeierei...
Wäre natürlich wesentlich einfacher, du kopierst die komplette Userform in eine Mappe und lädst diese hoch. Das erspart uns die Herumeierei...
21.03.2019, 12:24
Userform:
[attachment=23208]
TextBox:
[attachment=23209]
Dazu dann noch das hier:
Private Sub UserForm_Activate()
TextBox1.Visible = False
TextBox1.BorderColor = RGB(0, 160, 230)
End Sub
Und trotzdem wird mir der Rahmen vor dem blauen Hintergrund angezeigt.
Der blaue Hintergrund ist sehr aufwändig per VBA Code programmiert.
Egal welchen Boarderstyle ich auswähle - ich sehe immer den Rahmen.
[attachment=23208]
TextBox:
[attachment=23209]
Dazu dann noch das hier:
Private Sub UserForm_Activate()
TextBox1.Visible = False
TextBox1.BorderColor = RGB(0, 160, 230)
End Sub
Und trotzdem wird mir der Rahmen vor dem blauen Hintergrund angezeigt.
Der blaue Hintergrund ist sehr aufwändig per VBA Code programmiert.
Egal welchen Boarderstyle ich auswähle - ich sehe immer den Rahmen.