Header (blauwe balk) van userform verbergen ?

[Revdutchie]

Hallo, daar ist ie weer,

Is het mogelijk om van een userform de header, die blauwe info (caption) balk bovenaan, te verbergen ?

 

[Warme bakkertje]

Dit is inderdaad mogelijk
zie http://www.mrexcel.com/forum/showthread.php?t=45533

 

[Revdutchie]

Dit is inderdaad mogelijk
zie http://www.mrexcel.com/forum/showthread.php?t=45533

WOW, dat is wel een hele grote work arround cq Hack. Weet niet of ik dat aandurf of wil, alleen om de balk weg te krijgen.

 

[Hoornvan]

Revdutchie,

Het werkt perfect, de code.
Vergeet niet om een knop op het formulier te plaatsen, zodat je hem kunt unloaden.

 

[snb]

Maar vraag je liever af wat de zin is om die blauwe balk niet zichtbaar te hebben. Wat gaat er mis als ie getoond wordt ?

 

[Hoornvan]

Maar vraag je liever af wat de zin is om die blauwe balk niet zichtbaar te hebben. Wat gaat er mis als ie getoond wordt ?

Ik heb er geen probleem mee.
Als je al de verschillende vragen ziet, vraag ik me wel eens af, zijn de mogelijk heden van Excel onbeperkt?

 

[Revdutchie]

Maar vraag je liever af wat de zin is om die blauwe balk niet zichtbaar te hebben. Wat gaat er mis als ie getoond wordt ?

Omdat het niet mooi is, en mijn sheet op verschillende displays tegelijk wordt getoont.

 

[snb]

Een werkblad (sheet) heeft niets met een gebruikersscherm (userform) te maken.

 

[Revdutchie]

Revdutchie,

Het werkt perfect, de code.
Vergeet niet om een knop op het formulier te plaatsen, zodat je hem kunt unloaden.

Haalt dit de balk weg van alle forms ? Want ik heb er een stuk of 10 ?

 

[Hoornvan]

Haalt dit de balk weg van alle forms ? Want ik heb er een stuk of 10 ?

Nee, want de code staat achter het Formulier.

 

[Revdutchie]

Nee, want de code staat achter het Formulier.

Ja, stom ik zie het, alleen de eerste 5 regels staan in een module, de rest achter het formulier.

Thanks

 

[Hoornvan]

Ja, stom ik zie het, alleen de eerste 5 regels staan in een module, de rest achter het formulier.
Thanks

Ik heb helemaal geen code hiervoor in een module staan.

 

[Revdutchie]

Nee, want de code staat achter het Formulier.

Wim,

Volgens mij heb ik alles gedaan zoals beschreven, maar het werkt niet, ik krijg een foutmelding. Kun jij eens kijken wat ik fout doe ? zie bijlage

 

[Hoornvan]

Nu doet hij het wel.

 

[Revdutchie]

Nu doet hij het wel.

Thanks, dat is wel iets meer code dan zoals op de website, en daar staat ook dat je e.e.a. in een module moet zetten.
En iderdaad, soms denk je wel eens wat kan er niet in excel

Maargoed het werkt :thumb::thumb:

 

[Hoornvan]

Thanks, dat is wel iets meer code dan zoals op de website

Als je verder naar beneden had gescrold dan was je deze code tegen gekomen.
Vergeet niet de vraag als opgelost te zetten, dank u

 

[snb]

Dat kan simpeler:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 CommandButton1_Click()
  Unload Me
End Sub

Private Sub UserForm_Initialize()
    SetWindowLong FindWindow("ThunderDFrame", Me.Caption), -16, 0
    DrawMenuBar FindWindow("ThunderDFrame", Me.Caption)
End Sub

 

[Revdutchie]

Dat kan simpeler:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 CommandButton1_Click()
  Unload Me
End Sub


Private Sub UserForm_Initialize()
    SetWindowLong FindWindow("ThunderDFrame", Me.Caption), -16, 0
    DrawMenuBar FindWindow("ThunderDFrame", Me.Caption)
End Sub

snb, als ik jou code gebruik dan werkt het volgende niet meer.

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   'Code to drag the form
   If wHandle = 0 Then Exit Sub
   If Button = 1 Then
       ReleaseCapture
       SendMessage wHandle, &HA1, 2, 0
   End If
End Sub

 

[Warme bakkertje]

Nu werken ze allebei

 

[Revdutchie]

Nu werken ze allebei

Rudi thanks, in dat geval ga ik voor de code van snb :thumb: