Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevPopUp Fehler?
Autor: icewather
Datum: 01.12.07 18:20
Hallo Wenn ich nur zwei Einträge im sevPopUp definiere, wird der zweite Eintrag nicht korrekt abgefangen, wenn man die linke Maustaste benutzt. Mit den Pfeiltasten und Enter kann man den Eintrag hingegen korrekt wählen. Erst durch ein mehrfaches klicken mit der Maustaste, wird der Befehl ungefähr beim 5-8x ausgelöst. - Merkwürdigt, das ist nur beim zweiten Eintrag der Fall. Kann das jemand nachvollziehen? Hier die Syntax der betreffenden Aktion - ich möchte eine Datei öffnen oder löschen: Public Sub PopUpgrFile(vRow As Long) If TypeName(rsFile) = "Nothing" Then Exit Sub With sPopUp ' Menü erstellen .Clear .AddItem "Datei öffnen... (Doppel-Klick)", "mnÖffnen", , 6114, True .AddItem "Datei löschen... (Shift-Klick)", "mnLöschen", , 6124, True 'DoEvents nItem = .Show() If nItem > 0 Then ' Auswahl auswerten Select Case .KeyFromID(nItem) Case "mnÖffnen" Dim x As Long With rsFile .FindFirst "Datei = '" & foStart.grFile.Text(vRow, 2) & "'" If Not .NoMatch Then x = ShellExecute(foStart.hwnd, "open", IIf(InStr(!Pfad, "//"), Mid(!Pfad, InStr(!Pfad, "//") + 3), !Pfad) & !Datei, "", "", vbNormalFocus) If x = 2 Then If sMsgBox.MsgBox("Soll impress nach der Datei suchen?" & zs & "Die Suchparameter können Sie unter Einstellungen eingeben.", vbYesNoCancel + vbDefaultButton3 + vbQuestion, "Datei konnte nicht gefunden werden") = vbYes Then 'Call SeekDatei End If End If End If End With Case "mnLöschen" Call ResFileDelete End Select End If End With End Sub

sevPopUp Fehler?	728	icewather	01.12.07 18:20
Re: sevPopUp Fehler?	555	Dieter	02.12.07 10:39
Re: sevPopUp Fehler?	418	icewather	02.12.07 14:10
Re: sevPopUp Fehler?	418	Dieter	02.12.07 14:27
Re: sevPopUp Fehler?	435	icewather	02.12.07 15:49
Re: sevPopUp Fehler?	430	icewather	03.12.07 10:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen