2 Simple Questions

[absalom]

How Do you get the kewl menu that IE has the one where it is a menu but beside of that there is that animation second question:
How do you change another programs caption say if I had calculator open I could change the caption of it to say like Adding machine

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()
Dim hCalc As Long
'find Calculator's hWnd
hCalc = FindWindow("SciCalc", vbNullString)
'use SetWindowText to set the caption
Call SetWindowText(hCalc, "Adding Machine")
End Sub

[absalom]

No one has answered my first question yet come on I 'm sure one of ya's knows

IE uses a ToolBar for it's menu.

[absalom]

Then How do they get the video and menu on the toolbar

The video is not on the ToolBar, rather it's beside it. For this you can use a simple Animation Control.

[absalom]

Yes but how do you get the menu in the toolbar

[parksie]

IE uses a Rebar control for it's toolbars, which allows it to use menus in that way. It's way too complex for me to understand so I won't try and explain. V(ery) had some groovy code to do stuff like that, though.

[hitcgar]

You could use the toolbar ButtonMenus to do this very easily as it's part of the standard functionality.


Private Sub Form_Load()
Dim i As Integer
Dim btn As Button

' Add five Button objects to the Toolbar control.
For i = 1 To 5
Set btn = tb1.Buttons.Add(Caption:="button " & i, Style:=tbrDropdown)
' Add two ButtonMenu objects to each Button.
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End Sub


Beyond that I would suggest checking the MSDN site http://search.microsoft.com/us/dev/default.asp for the
original toolbar control http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbcon98/vbconnegotiatingmenutoolbarappearance.htm
and see if it doesn't have more functionality than what's avail. in VB. :cool:

[hitcgar]

You could use the toolbar ButtonMenus to do this very easily as it's part of the standard functionality.


Private Sub Form_Load()
Dim i As Integer
Dim btn As Button

' Add five Button objects to the Toolbar control.
For i = 1 To 5
Set btn = tb1.Buttons.Add(Caption:="button " & i, Style:=tbrDropdown)
' Add two ButtonMenu objects to each Button.
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End Sub


Beyond that I would suggest checking the MSDN site http://search.microsoft.com/us/dev/default.asp for the
original toolbar control http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbcon98/vbconnegotiatingmenutoolbarappearance.htm

:cool:

[hitcgar]

You could use the toolbar ButtonMenus to do this very easily as it's part of the standard functionality.


Private Sub Form_Load()
Dim i As Integer
Dim btn As Button

' Add five Button objects to the Toolbar control.
For i = 1 To 5
Set btn = tb1.Buttons.Add(Caption:="button " & i, Style:=tbrDropdown)
' Add two ButtonMenu objects to each Button.
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End Sub


Beyond that I would suggest checking the MSDN site http://search.microsoft.com/us/dev/default.asp for the
original toolbar control http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbcon98/vbconnegotiatingmenutoolbarappearance.htm

:cool:

[hitcgar]

You could use the toolbar ButtonMenus to do this very easily as it's part of the standard functionality.


Private Sub Form_Load()
Dim i As Integer
Dim btn As Button

' Add five Button objects to the Toolbar control.
For i = 1 To 5
Set btn = tb1.Buttons.Add(Caption:="button " & i, Style:=tbrDropdown)
' Add two ButtonMenu objects to each Button.
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End Sub


Beyond that I would suggest checking the MSDN site http://search.microsoft.com/us/dev/default.asp for the
original toolbar control http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbcon98/vbconnegotiatingmenutoolbarappearance.htm

:cool:

[hitcgar]

You could use the toolbar ButtonMenus to do this very easily as it's part of the standard functionality.


Private Sub Form_Load()
Dim i As Integer
Dim btn As Button

' Add five Button objects to the Toolbar control.
For i = 1 To 5
Set btn = tb1.Buttons.Add(Caption:="button " & i, Style:=tbrDropdown)
' Add two ButtonMenu objects to each Button.
btn.ButtonMenus.Add Text:="Help"
btn.ButtonMenus.Add Text:="Options"
Next i
End Sub


Beyond that I would suggest checking the MSDN site http://search.microsoft.com/us/dev/default.asp for the
original toolbar control http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbcon98/vbconnegotiatingmenutoolbarappearance.htm

:cool:

[parksie]

Yes...we get the point!!!!

:D

[V(ery) Basic]

All four of them in fact ;)



Originally posted by parksie
IE uses a Rebar control for it's toolbars, which allows it to use menus in that way. It's way too complex for me to understand so I won't try and explain. V(ery) had some groovy code to do stuff like that, though.

Thanks. Cash or cheque? Or an all-expenses paid with Alyssa?

PS (so that ppl don't call this post useless) I can post you some code. Any code. It's like the IE thing with Kick-ass menus. You can modify the code a little to make space for a little animation control in d corner.

[parksie]

Cash or cheque? Or an all-expenses paid with Alyssa?

Hmmm...who's Alyssa? Blonde or brunette?

PS: Anti-useless post thingie: Could you send me that?

[hitcgar]

Sorry guys. I remember only posting that thing ONCE!
Search me why it showed up thrice??:eek: