Toolbar Button

[Saee730d]

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 Const WM_USER = &H400
Private Const TB_PRESSBUTTON = (WM_USER + 3)
Private Const TB_GETBUTTON = (WM_USER + 23)

Type TBBUTTON
iBitmapas As Integer
idCommand As Integer
fsState As Byte
fsStyle As Byte
dwData As Long
iString As Integer
End Type

Private Sub Form_load()
Dim but As TBBUTTON
SendMessage Toolbar1.hwnd, TB_GETBUTTON, 1, but '1 is the index button.
SendMessageToolbar1.hwnd, TB_PRESSBUTTON, but.idCommand, True
End Sub

I want to press to a button toolbar without using mouse .
What is wrong with this code. And Thank You..

[miben]

how are you inserting the buttons using the api?

[miben]

Haha, does anyone know how?

[Kaverin]

You'd add them with TB_INSERTBUTTON or TB_ADDBUTTONS. I've never tried it myself since using the control stuff is much easier, and I've not been able to get info out of a toolbar with API things before, even something as paltry as getting the number of buttons already in it via SendMessage and TB_BUTTONCOUNT.

[miben]

The API is sooo much better then the controls. You have all the
options and flexibility you want and most of all, its FAST!
I have created the Toolbar with the API and i can see it, but I
cant seem to bet a button on it
Anyone have and example of using TB_INSERTBUTTON ? I cant find
any on the net.

[rippin]

Well, if you are using the toolbar control supplied by Microsoft (MSCOMCTL.OCX) then you cannot use the API to modify the toolbar. If you fire up Spy++ and point it at the toolbar on your form you will see that it is not a "true" toolbar. It appears to be a superclass of the comctl32.dll toolbar ("ToolbarWindow32"). Sending TB_INSERTBUTTON does not have any affect.

BTW, this may not be the case if you are using VB5, I myself use VB6 and cannot test it on VB5.

However, if you are using a real API toolbar you can use TB_INSERTBUTTON like so:

Dim nPos As Long
Dim tbb As TBBUTTON
 
' You only have to send the TB_BUTTONSTRUCTSIZE message once, before inserting the first button.
SendMessage hwndTb, TB_BUTTONSTRUCTSIZE, Len(tbb), ByVal 0&
 
' Since we want to insert the button at the end of the toolbar, set
' nPos to the number of buttons in the toolbar
nPos = SendMessage(hwndTb, TB_BUTTONCOUNT, 0, ByVal 0&)
 
' Fill in the button structure
tbb.idCommand = 50 ' Change the ID to be whatever you want
tbb.iBitmap = -1 ' Change this value to indicate the index of the button icon, or -1 for no icon
tbb.iString = -1 ' If your toolbar button needs to display text, you need to send the toolbar a TB_ADDSTRING message and set iString to the value returned
tbb.fsState = TBSTATE_ENABLED
tbb.fsStyle = TBSTYLE_BUTTON
 
' Insert the button
SendMessage hwndTb, TB_INSERTBUTTON, nPos, tbb
 
' You could also have used:
SendMessage hwndTb, TB_ADDBUTTONS, 1, tbb

[miben]

Oh Ya! Thats what i was looking for. Thanks. And yes, all my crontrols are created with the API CreateWindowEx function. I created a ListView DLL for the windows api and added classes for ListItems and Subitems..I even have options to change scrollbar colors and states. Thanks.

[miben]

You wouldnt happen to have values for those constants would
you?