mdiform again

shahrinn
04-08-2003, 10:13 PM
can i make mdiform with no control bar ?

thanx a lot..

Flyguy
04-09-2003, 06:22 AM
1. Have you tried?
2. What do you mean with "control bar"?

shahrinn
04-15-2003, 03:43 AM
1. Have you tried?
2. What do you mean with "control bar"?

i get 1 code to do that from planet source code but the code will generate horizontal scroll bar...
i'll give the code later

shahrinn
04-15-2003, 03:44 AM
1. Have you tried?
2. What do you mean with "control bar"?


what i meant with control bar is the bar where caption of mdiform located..

Machaira
04-15-2003, 06:44 AM
Try this:

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
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME

Private Sub MDIForm_Load()

Dim style As Long

style = GetWindowLong(Me.Height, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, style Or WS_SIZEBOX

End Sub

shahrinn
04-24-2003, 11:52 PM
Try this:

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
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME

Private Sub MDIForm_Load()

Dim style As Long

style = GetWindowLong(Me.Height, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, style Or WS_SIZEBOX

End Sub


thanks, its working one more thing can i make it cannot resizeable


thank you so much for the code...

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum