erocm
07-24-2002, 09:15 AM
Is there anyway to get rid of the title bar at the top. I have a very small app were the title bar takes up the same amount of room as the title bar.
Thanks Again!
ErocM
Thanks Again!
ErocM
Title Barerocm 07-24-2002, 09:15 AM Is there anyway to get rid of the title bar at the top. I have a very small app were the title bar takes up the same amount of room as the title bar. Thanks Again! ErocM peet 07-24-2002, 09:17 AM set the forms boarder style to 0-None peet 07-24-2002, 09:21 AM you might want to still be able to move the form... in order to do so, do like this: Option Explicit Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "User32" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngReturnValue As Long If Button = vbLeftButton Then Call ReleaseCapture lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _ HTCAPTION, 0&) End If End Sub erocm 07-24-2002, 09:32 AM Great ! I had to add this code to my labels too because my two lables take up the whole form and I had very little room to click and drag on the form. Once I did that it worked fine ! Thanks (for a second time today) ErocM peet 07-24-2002, 09:54 AM glad I could help you erocm :) |
EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum