Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ToolbarWindow32
Autor: abuse
Datum: 03.05.02 20:34
also ich habs geschaft beim MSN Unterhaltungs fenster neben dem button: Blockieren Text und Smily meinen eigenen hinzuzufügen nur verwendet der scheiss button immer den buttontext des ersten buttons warum, die integer müssten alle stimmen? ''''''*********** deklarationen etc... Public Const WM_USER = &H400 Public Const TB_ADDSTRING = 1052 Public Const TB_BUTTONCOUNT = 1048 Public Const TB_INSERTBUTTON = (WM_USER + 21) Public Type TBBUTTON iBitmap As Long idCommand As Long fsState As Byte fsStyle As Byte bReserved1 As Byte bReserved2 As Byte dwData As Long iString As Long End Type ''' ****************** sub SNIPPET CODE ----- start ****************** Dim Button As TBBUTTON Dim sBuffer As String Dim NewStyle As Long Dim ChildWin As Long Dim ParentWin As Long ParentWin& = FindWindow("IMWindowClass", vbNullString) ToolBarWnd = FindWindowEx(ParentWin&, 0&, "ToolbarWindow32", vbNullString ButtonText = "TEST" Buffer = String$(50, 0) sBuffer = Trim(ButtonText) Ret = SendMessageByval(ToolBarWnd, TB_ADDSTRING, 0, sBuffer) Button.iBitmap = 12 Button.idCommand = 14 Button.fsState = 1 Button.fsStyle = TBSTYLE_BUTTON Or NewStyle Button.dwData = 0 Button.iString = 14 Call adddebuginfo("id:" & id, False) 'get button count um ihn nach dem letzten hinzuzufügen Ret = SendMessage(ToolBarWnd, TB_BUTTONCOUNT, 0, 0) Ret = SendMessage(ToolBarWnd, TB_INSERTBUTTON, Ret, Button) '************************* END SUB SNIPPET CODE was ist daran falsch?

ToolbarWindow32

83

abuse

03.05.02 20:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen