| |

Allgemeine DiskussionenToolbarWindow32 | |  | Autor: abuse | Datum: 03.05.02 21:04 |
| Autor: abuse (---.dipool.highway.telekom.at)
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? |  |
 | 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 |
  |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|