UserForm Reaktion auf Mausclick in Textbox
Christian Schiller
ich versuche mein erstes UserForm zu erstellen (Excel 2000 und 2002). Beim
Klick in eine Textbox soll das "Datei öffnen" Fenster erscheinen, eine Datei
ist zu wählen und der Pfad für diese in die Textbox zu übernehmen (für´s
Erste noch nicht mehr). Mit der VBA Hilfe bin ich leider nicht sehr weit
gekommen. Aus früheren Beiträgen in dieser NG habe ich folgendes
Probier-Makro zusammengebastelt:
Public datei As Variant
_______________________________________________________
Sub xyz()
Load UserForm1
UserForm1.Show
MsgBox (datei)
End Sub
_________________________________________________________
und im UserForm:
_________________________________________________________
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case xlPrimaryButton
MsgBox "Linke Maustaste!"
Case xlSecondaryButton
Exit Sub
Case Else
Exit Sub
End Select
UserForm1.TextBox1.Value = Application.GetOpenFilename("GAEB-Dateien
(*.d81), *.d81")
End Sub
_________________________________________________________
Private Sub UserForm_Terminate()
datei = UserForm1.TextBox1.Text
End Sub
Das funktioniert auch ganz gut so, aber die Meldung "Linke Maustaste!"
jedesmal wegklicken ist nicht so optimal. Wenn ich aber statt dem
MsgBox-Kommando ein: datei=Application.GetOpenFilename("GAEB-Dateien
(*.d81), *.d81") stattdessen einbaue, öffnet sich zwar das
Datei-öffnen-Fenster, aber es werden keine Mausklicks mehr angenommen!? Weiß
jemand eine Lösung?
Gruß von
Christian
Konrad Hauke
versuchs mal so:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
TextBox1.Value = Application.GetOpenFilename("GAEB-Dateien(*.d81), *.d81")
End Sub
--
Exel_&_VBA http://www.xakte.de
und tschüss...
Konrad Hauke
----------Original Nachricht----------
"Christian Schiller" <ci...@pfaffenhofen.de> schrieb im Newsbeitrag
news:9jf7d9$ms3$03$1...@news.t-online.com...
Christian Schiller
danke für die schnelle Antwort. Aber der Effekt ist leider der gleiche. Das
Datei-öffnen-Fenster öffnet sich und es werden keine Mausklicks mehr
angenommen. Keine Ahnung warum. Eigentlich schaut´s doch logisch aus?
Gruß von
Christian
"Konrad Hauke" <Hauke....@web.de> schrieb im Newsbeitrag
news:OWE#McuEBHA.1652@tkmsftngp04...
Wolf W. Radzinski
Christian Schiller schrieb in Nachricht
<9jfbtf$92l$01$1...@news.t-online.com>...
versuchs doch mal mit MouseUp statt MouseDown, dann WAR die Maustaste
gedrückt worden ... vielleicht hilfts ja dein Problem zu lösen?
Christian Schiller
das funktioniert! Danke.
Ich verstehe zwar nicht warum MouseDown nicht geht, aber was solls :-)
Gruß von
Christian
"Wolf W. Radzinski" <Wolf.W.R...@onlinehome.de> schrieb im Newsbeitrag
news:9jfd2b$2n1$02$1...@news.t-online.com...
Wolf W. Radzinski
Christian Schiller schrieb in Nachricht
>das funktioniert! Danke.
>Ich verstehe zwar nicht warum MouseDown nicht geht, aber was solls :-)
es ist einfach ein Unterschied, ob ich eine Taste LOSLASSE oder GEDRÜCKT
HALTE. Eine gedrückte Taste kann wohl kaum auf weitere Mausklicks
reagieren, eine die man vorher losgelassen hat wohl schon?!
das Ereignis MouseUp wird wohl immer nur 1x ausgelöst, während MouseDown
bei EINEM Druck auf die Maustaste durchaus mehrmals ausgelöst werden
kann - hängt davon ab, wie lang die Maustaste gedrückt bleibt - ich
nutze z.B. KeyDown in einer Userform, um mittels Pfeiltasten durch das
aktive Arbeitsblatt zu scrollen - gescrollt wird, solange eine der 4
Tasten gedrückt ist
Ullrich Schwarz
als "normal" kann man das von Christian beschrieben Verhalten trotzdem nicht
bezeichnen. Testweise habe ich beim DropDown-Ereigniss einer ComboBox das
ÖffnenDialogfeld aufgerufen. Dabei trat derselben Effekt auf (häufig, aber
nicht immer), das ÖffnenDialogfeld hatte den Fokus verloren, weder per Maus
noch per Tastatur war eine Auswahl möglich. Erst wenn man mit der Maus
einmal auf die Userform klickt (diese wird dabei optisch_nicht_aktiviert),
erhielt das ÖffnenDialogfeld wieder den Fokus. Wird das ÖffnenDialogfeld mit
'Abbrechen' geschlossen, landete ich häufig in der Tabelle und konnte dort
normal arbeiten, obwohl die Userform noch angezeigt wurde. Eine
modeless-Userform in Excel97 - schon sehr eigenartig. Fazit: Ich lasse
lieber die Finger von diesen Ereignissen und verwende stattdessen einen
zusätzlichen Button.
MfG Ullrich
"Wolf W. Radzinski" <Wolf.W.R...@onlinehome.de> schrieb im Newsbeitrag
news:9jgiqg$j6j$02$1...@news.t-online.com...
Hauke
verwende doch das DblClick Ereignis dann müßte es ohne Probs gehen.
--
Excel & VBA http://www.xakte.de
und tschüs...
Konrad Hauke
"Christian Schiller" <ci...@pfaffenhofen.de> wrote in message news:<9jfbtf$92l$01$1...@news.t-online.com>...