HERBERS Excel-Forum - die Beispiele

Thema: UserForm ohne Schließkreuz

Home

Gruppe

API

Problem

Eine UserForm ohne Schließkreuz soll erstellt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
StandardModule: Modul1

Sub CallForm()
   frmCross.Show
End Sub

ClassModule: frmCross

Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Private Declare Function _
   FindWindow Lib "User32" Alias "FindWindowA" ( _
   ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
Private Declare Function _
   GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
   ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function _
   SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
   ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
Private Declare Function _
   DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Activate()
   'Code von Nepumuk
    Dim xl_hwnd, lStyle
    xl_hwnd = FindWindow(vbNullString, Me.Caption)
    If xl_hwnd <> 0 Then
        lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
        lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU)
        DrawMenuBar xl_hwnd
    End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und Dialog

Excel to Word Kapitel VBA Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht Googel Maps API in Excel VBA einfügen
xlDialogInsertHyperlink.show Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog Berechnung vom Endkapital
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
Grösse Dialogfenster der InputBox API? - xl-Parameter aus Long-Wert bestimmen
Berechnung Kapitalanlage Telefonnummer auslesen per TAPI
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog Ordnerdialog und dateidialog
Läuft RSAPI.DLL mit WIN2000 und XP? Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
JAVA API mit VBA verwenden Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren Dialogfenster zum kopieren
FileDialog-Objekt unter O2k Abrage von Dialogfeldargumenten
Datei Auswählen Dialog (Application.FileDialog) xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs Das Dialogfeld "sortieren" aufrufen?
Keine Dialogbox bei SaveAs Dialogbox
Bei xlDialogSaveAs Dateinamen vorgeben Blattauswahldialog...
speichern unter dialogbox problem Speicherndialog bei BeforeClose unterbinden