Tipp 0168 UserForm ungebunden anzeigen
Autor/Einsender:
Datum:
  Angie
28.11.2001
Entwicklungsumgebung:   Excel 97
Ab Microsoft Office 2000 ist es möglich, eine UserForm auch ungebunden anzuzeigen mit
 
UserForm1.Show vbModeless
 
Wenn ein UserForm-Objekt in Microsoft Office 97 als ungebunden angezeigt werden soll, löst obige Show-Methode einen Laufzeitfehler aus. Wie dieser Tipp zeigt, ist es aber durchaus möglich, mit Hilfe von API-Funktionen auch in Office-97-Anwendungen eine UserForm ungebunden anzuzeigen.
Der hier abgebildete Code funktioniert nur in Excel, der Quellcode für Word 97 ist im Download-Beispiel enthalten.
Code im Codebereich des Moduls
 
Option Explicit

Public Sub ShowUserFormModeless()
  #If VBA6 Then
    frmUserFormModeless.Show vbModeless
  #Else
    frmUserFormModeless.Show
  #End If
End Sub
 
Code im Codebereich der UserForm
 
Option Explicit

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()
  Dim hwndForm As Long

  If Left$(Application.Version, 1) = 8 Then
     hwndForm = FindWindow("XLMAIN", vbNullString)
     If hwndForm <> 0 Then
        EnableWindow hwndForm, True

        SendKeys "{Esc}"
        Application.Dialogs(xlDialogShowToolbar).Show
     End If
  End If
End Sub
 
Links zum Thema
UserForm minimieren/maximieren
UserForm mit Icon in der Titelleiste
UserForm ohne Titelleiste anzeigen
UserForm Schließen-Schaltfläche deaktivieren
UserForm Schließen-Schaltfläche entfernen
UserForm verschieben verhindern
Hinweis
Die im Download befindlichen *.frm- und *.bas-Dateien können sowohl in Excel als auch in Word im VB-Editor importiert werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Anwendung/VBA-Version
Access 97
Access 2000
Access XP
Access 2003
Access 2007
Access 2010
Excel 97
Excel 2000
Excel XP
Excel 2003
Excel 2007
Excel 2010
Word 97
Word 2000
Word XP
Word 2003
Word 2007
Word 2010
PPT 97
PPT 2000
PPT XP
PPT 2003
PPT 2007
PPT 2010
Outlook 97
Outlook 2000
Outlook XP
Outlook 2003
Outlook 2007
Outlook 2010


Download  (16,2 kB) Downloads bisher: [ 1042 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 31. Mai 2011