Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  IV-Buttonicons - VB.Net AddIn

  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Thema geschlossen  Thema geschlossen!
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

Dieser Beitrag ist erfolgreich in das Forum Autodesk.NET/ARX verschoben worden.

nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  IV-Buttonicons - VB.Net AddIn (1432 mal gelesen)
BernhardU
Mitglied
Techniker / Konstrukteur / Student


Sehen Sie sich das Profil von BernhardU an!   Senden Sie eine Private Message an BernhardU  Schreiben Sie einen Gästebucheintrag für BernhardU

Beiträge: 328
Registriert: 17.08.2005

Windows XP SP3
IV Prof 2012
VS 2010

erstellt am: 06. Dez. 2005 17:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen!!
Jaja ich bins schon wieder mal!
Das AddIn funktioniert ohne Probleme, doch ich würd jetzt noch gern Icons für den Button in IV integrieregn!
Hab auch ein Beispiel in der IV10 -API Hilfe gefunden!

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)


Doch wie schaut das in VB.Net aus?

Ich hab schon alles mögliche versucht, doch ich bin noch zu keiner lösung gekommen!!

und ein Button ohne Icon ist doch nur ein halber button!!

Vielen Dank!!

MFG

Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

BernhardU
Mitglied
Techniker / Konstrukteur / Student


Sehen Sie sich das Profil von BernhardU an!   Senden Sie eine Private Message an BernhardU  Schreiben Sie einen Gästebucheintrag für BernhardU

Beiträge: 328
Registriert: 17.08.2005

Windows XP SP3
IV Prof 2012
VS 2010

erstellt am: 12. Dez. 2005 09:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Leute hat sich schon erledigt!
Hab schon herausgefunden, wie es funktioniert!!

Dim smallico As stdole.IPictureDisp
                Dim largeico As stdole.IPictureDisp
                Dim sma, lar As Image
                sma = System.Drawing.Image.FromFile("C:\Programme\Autodesk\Inventor 10\Bin\Macros\Modul1.Schriftfeld.small.bmp")
                lar = System.Drawing.Image.FromFile("C:\Programme\Autodesk\Inventor 10\Bin\Macros\Modul1.Schriftfeld.large.bmp")
                smallico = VB6.ImageToIPictureDisp(sma)
                largeico = VB6.ImageToIPictureDisp(lar)

                obutton = InventorApplication.CommandManager.ControlDefinitions.AddButtonDefinition("Schriftfeld", "Schriftfeld_einfügen:cmdintname1", CommandTypesEnum.kQueryOnlyCmdType, "{ID}"Test", "Test", smallico, largeico)
                obutton.Enabled = True

es funktioniert!!!

Das ist toll an einem Montag Morgen so ein erfolgserlebnis!! 

Trotz dem vielen Dank für eure Bemühungen!!

MfG Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Moderator
Softwareentwickler




Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 16. Dez. 2005 06:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für BernhardU 10 Unities + Antwort hilfreich

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag öffnen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz