Form Caption

[djreiswig]

I am trying to make a form be maximized with no title bar, no min/max buttons, and no control box. Basically just the form covering the entire screen. I also want the form to show up on the taskbar with an icon and the name of the program. That way when you alt+tab you can choose the program.

The problem is that if I try to give the form a caption then the title bar appears. If I don't give it a caption, then the taskbar shows a blank button.

How can I make this work?

I am open to any suggestions, even API if necessary...

Thanks

[FOOBAR]

make the form bordersytle none

[FOOBAR]

and also make the show in taskbar property set to ture

[HeSaidJoe]

'Show the icon of a titleless form in taskbar tray 

Private Declare Function SetWindowLong Lib "user32" _ 
Alias "SetWindowLongA" (ByVal hwnd As Long, _ 
ByVal nIndex As Long, ByVal dwNewLong As Long) _ 
As Long 

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

'<<<<<< Form load >>>>>> 

Private Sub Form_Load() 
Call SetWindowLong(Me.hwnd, GWL_STYLE, WS_SYSMENU) 
End Sub

[djreiswig]

Thanks,

This seems to work, but it gives my form a control menu, which has the move and close choices enabled. I cannot have a control menu available on this form. Could this have something to do with the WS_SYSMENU constant? What should I change this to, so that I won't have a system menu??

Also, what does the GWL_STYLE constant do?

Thanks again

[djreiswig]

Any Ideas?

[mdake]

If you mean the menu that pops up when you right click the title bar or a minimized app, then set the forms Control Box property to False.

I believe the WS_SYSMENU controls whether an application that is reudced to an icon has a System Menu or not.

[Dementia Freaks]

in the properties menu, set the controlbox to false, and set the borderstyle to none. Then, to make it cover the WHOLE screen, including the tasbar, insert this code:

Private Sub form_load()
form1.height=screen.height
form1.width=screen.width
end sub

I believe thats all you need. I cant help with having a captoin in the taskbar button without a title bar, sorry.

[djreiswig]

I get the form to fill the screen by setting the form to maximize. I get rid of all of the title bar stuff, and the form displays fine, but when I look at the taskbar the button is blank. It seems that you have to have a caption on the form to have something other than a blank button on the taskbar. The problem is that if I put a caption on the form, it will show the title bar. How can I force the titlebar on the form to stay hidden?

Thanks for any help...

[shragel]

here you have got what you want.
But you need to make a way to exit the program.
and you need to compile it, it want work good in Debug.

[djreiswig]

Thanks. I'll check it out and give it a try.

[shragel]

Is it working for you?
Please Post.

[djreiswig]

Sorry, but this doesn't really do anything that I need. The button on the taskbar does have the caption on it, but there is no icon for the program. Also, the form has a caption on it. This is what I have been trying to get rid of.

Thanks for trying to help me.

[shragel]

I realy dont know what you are talking about. Are you talking of the sample i posted. if yes check out this Exe its a compiled version of that code.

[Arcom]

OK, try this. It will show the form's caption in the task bar only...and as for the icon, dunno...


Set the following form properties:

BorderStyle - 0
Caption - "Hello World"
ShowInTaskbar - True

And that's it!

[shragel]

The same thing that i posted.

[Arcom]

Where? In attachment?

FOOBAR posted the same thing also...

[djreiswig]

I have done all of this, and I still can't get the icons to work properly. When I press ALT+Tab and get the task manager, the icon for my program is the windows logo. Also, the task bar button for the form has no icon.

I don't know if it makes a difference, but this form is not the main form for my program. I hide the main from when I show this form, and I want this form to be full screen and act like it is now the main form. This means it should have a button with an icon, and show the proper icon on the task menu.

Any ideas on how to do this?

Thanks.

[Tygur]

The solution to your problem should be simple enough. Set up the form to be maximized (Set the WindowState property to vbMaximized) and put this code in:

'These are the API declarations
'Put this in the area above the rest of the form code (the General Declarations area)
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) 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 Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_DLGFRAME = &H400000
Private Const WS_THICKFRAME = &H40000
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
 
 
 
'This is the code to take out the border
'You probably want it in Form_Load
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not (WS_BORDER Or WS_DLGFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_THICKFRAME)
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
SetWindowPos Me.hwnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER

The form will be maximized with no border so it takes the whole screen. When you look at the taskbar, the form will still have an icon and caption.

[FUBAR]

u cant get a icon when u hit ctrl+alt+del but there must be some how to get it.... defualt is that windows icon

[tWiZtEr]

He isnt talking about the CTRL-ALT-DEL menu, he means the Alt-Tab Task Manager

[Tygur]

Oh..
oops
I'll see what I can do, then..

[Tygur]

Yeah, the icon does show in the Alt-Tab window. The program has to be running from an exe. You won't see the icon in the Alt-Tab window when you run the program from within the VB IDE. But if you compile it to an exe and run that, you see the icon just fine.

[FUBAR]

oh ok, yea i meant alt+tab

[shragel]

Yes Tygur that Api does the job.

[djreiswig]

Thank you Tygur.

Now I may be getting a little picky here, but the form I am using this code on is not the main form for my program. When I bring up this form I hide the main form to prevent someone from Alt+Tabbing to the main form and messing around. I can't show the form modal, because I also show a small form with some other information. The user must be able to work with either form so it can't be modal.

I guess I should state the problem before I go into detail, but for those of you still reading. When I use this code, the taskbar button doesn't have an icon. The icon shows up fine in the Alt+Tab thingy, but not on the taskbar. Is this possible to do or should I quit being so technical?

I want the second form to appear to be the main form while the main form is hidden.

Any ideas?

[nabeels786]

i had to make one of those for a "lock computer", cuz my little bro jumps for the comp when i leave it for a sec.


In form properties, set the border style to normal, then double click on the title bar. it'll maximize the form. then set the border style to none. so it'll start up maximized (when you close VB then open the project again, it won't be maximized in the design view, but at runtime it will be)

then to set the icon, click on the form and in the properties, choose your icon

the in form_load(), put:

Me.Caption = "Caption"

have it show up in the taskbar, and ur done.

hope it helps,
nabeel

[djreiswig]

Sorry, but that would give me the same problem I was having before with the title in the button, but no title bar.

I think I need to use Tygur's API code, but there must be a switch to turn the icon on in the button.

Thanks for trying to help me.

[Tygur]

So the icon's not showing up in the taskbar button?

Make sure ControlBox is True
Also make sure the borderstyle is not None, Fixed Toolwindow, or Resizable Toolwindow.

If the icon still isn't showing, let me know and I'll see what else could be preventing it.


The form setup you're explaining confuses me, but if you want to show a form and have it always stay on top of another form while you can still use the other form, this works:
Form2.Show , Form1

[nabeels786]

it's

me.icon.render(me.hdc,something....)

im figuring that out

to get a form to stay on top

in module:

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
 
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 
Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
   If (Topmost) Then
      SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
   Else
      SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
      SetTopMostWindow = False
   End If
End Function

then to call it

'on top:
SetTopMostWindow Me.hwnd, True
 
'not on top
SetTopMostWindow Me.hwnd, False

hope it helps

-Nabeel

[djreiswig]

Tygur,

I changed the controlbox and border on my form, and now the icon shows up, but if I hit ALT+SPACEBAR when my form is visible, I get a control menu with Move (disabled) and close. If I have controlbox False then the icon disappears.

This would probably work, because there is no sign that there would be a control menu. The user would just have to guess and hit the ALT+SPACE.

Any ideas on this one?

[Tygur]

so you don't want the control menu?
why not?

[djreiswig]

I just think it looks kind of wierd for a control menu to pop up out of the top of the window when you hit ALT+SPACE. I suppose the ideal way for it to be would be to have the control menu only display off of the taskbar, and not from the window at all, but I don't think that is possible. I think I should be able to work with things the way they are now. Atleast there are no visible signs of the menu, and now all of the icons work properly.

Thanks to all of you who helped me out with this problem.

[nabeels786]

did you try via API?

Private Declare Function SetWindowText Lib "user32" _
Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
 
 
dim cap as string
cap = "the new caption"
SetWindowText Me.hwnd, cap

[macai]

hay, i found this control on the internet which literally puts an icon in the tray/takes it out with a simple setting. check it out