User form code for unload me when Title bar is removed

[lady_alina]

Hi,

I have a user form where I have used the below code to remove the title bar but the problem is the unload me sub doesn't work. Can somebody help with the code for user form load me button. Also if soembody can help me with the code to auto populate some of the text boxes based on the combo box.

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 UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84080080&
DrawMenuBar hWnd
End Sub

 

[Kyle123]

Can you give an example of a userform that exhibits this behaviour. "Unload Me" works fine for me

 

[royUK]

If you hide the Title bar then you need a button to unload the form. Have you added one?

Here's an example to populate TextBoxes after selecting from a ComboBox

Populate TextBoxes with ComboBox

 

[lady_alina]

Thanks for the reply... Yes I did try the code given below, but looks liek it takes forever when I click on it in the user form.

Private Sub COMMANDBUTTON1_Click()

Unload Me


End Sub

 

[lady_alina]

Thanks so much RoyUK for the file. I'll try it in some times and see if I can modify it as per my needs.

 

[royUK]

Unloading a UserForm should not take long. What else is happening/

Can you upload the file to OneDrive, DropBox or similar then provide a download link here?

 

[lady_alina]

Thanks RoyUK I modified the userform code for auto populating text box and its working perfectly. I'm just facing one problem that is the combo box is also showing the header in the drop down, I tried to change the below line but it doesn't really help.

Me.ComboBox1.List = Sheet1.Cells(1, 1).CurrentRegion.Value

to

Me.ComboBox1.List = Sheet1.Cells(2, 2).CurrentRegion.Value

Also the above code which i used for removing the title bar, could that be used with the user form initialize sub you gave, if yes will you be able to help me with it. Sorry I am very new to VBA.

The unload button is working perfectly now. I guess there was some problem in my excel or system..

 

[royUK]

Change it to

Me.ComboBox1.List = Sheet1.Cells(1, 1).CurrentRegion.Offset(1).Value

 

[lady_alina]

Tried it but it gives a blank list when I open the form.

 

[royUK]

Where does the actual list start?

Can you upload an example userform to a file sharing site like OneDrive or DropBox then post a link here