TIPP:UserForm Nicht Modal in xl97

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: TIPP:UserForm Nicht Modal in xl97
von: franz
Geschrieben am: 03.07.2002 - 14:56:30

Hallo Excelianer,
diesmal keine Frage sondern ein Tipp für Alle die unter excel97 ein UserForm Non Modal anzeigen möchten.
Folgenden Code eingeben.

'Code Anfang
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "user32" (ByVal _
hwnd As Long, ByVal fEnable As Long) As Long

Private Sub UserForm_Activate()
'dieser Code gibt den Fokus an Excel zurück (Non Modal)
EnableWindow FindWindow("XLMAIN", vbNullString), True
End Sub

'Code Ende

Funktioniert Super, allerdings muss man noch in eine Tabelle klicken damit diese den Fokus erhält.

gesehen unter: http:\\www.vb-fun.de

P.S.: Die Lösung:
SendKeys "{Esc}"
Application.Dialogs(xlDialogOpen).Show
SendKeys "{Esc}"
Application.Dialogs(xlDialogShowToolbar).Show

die ich hier gefunden habe, hat mir aber auch sehr weiter geholfen!!
Ein Dank an den Tippgeber!!

Grüße an Alle
franz

nach oben   nach unten

Re: TIPP:UserForm Nicht Modal in xl97
von: L.Vira
Geschrieben am: 03.07.2002 - 20:31:42

Das ist kein echter nicht modaler Modus, Versuch mal irgeneine Symbolleiste zu benutzen.

nach oben   nach unten

Re: TIPP:UserForm Nicht Modal in xl97
von: franz
Geschrieben am: 04.07.2002 - 14:05:41

Stimmt!
Also doch noch ein...

SendKeys "{Esc}"
Application.Dialogs(xlDialogShowToolbar).Show

...
in die Activate-Methode einfügen


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "CheckBox abschalten"