Guten Morgen Paul, Danke für deine schnelle Antwort(Frage).
Ich bleibe an >>LoadResPicture(101, vbResIcon)<< hängen, komme damit nicht klar, was ich da machen muß???
Dim oIcon As IPictureDisp
Set oIcon = LoadResPicture(101, vbResIcon)
Set oButtonDefinition1 = oControlDefinitions.AddButtonDefinition( _
"Button 1", "invrSampleCommand1", _
kQueryOnlyCmdType, "CLSID of the AddIn", _
"This is button 1.", "Button 1", _
oIcon, oIcon)
PS: Habe schon eine Möglichkeit gefunden, Buttons in der Leiste einzufügen, dachte mir aber über VB im Inventor und als Aufgabe zur Übung mit Lerneffekt, wäre es schöner und schneller!!
Vielen Dank im voraus Dieter!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP