Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  Warum läuft das in VBA und als VB exe nicht

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

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen 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 SolidEdge
Autor Thema:  Warum läuft das in VBA und als VB exe nicht (359 mal gelesen)
amg13
Mitglied



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

Beiträge: 942
Registriert: 20.12.2002

Aktuell:
FSC R550 2x Xeon X5450 QuadCore
8GB RAM
Nvidia FX4800
Dell Precision M6300
Solid Edge ST3
NX 7.5
Solid Works 2010
Pro/E
Das war einmal:
HP Workstation
>80x SolidEdge V19 (Classic & Foundation)
14x SMAP3D Piping/Partfinder

erstellt am: 13. Aug. 2004 15:47    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,

ich komm einfach nicht dahinter.

Ich will einfach einen Save As Dialog aufrufen.
Der angefügte Code funzt in VBA nur in VB gehts net.
Wäre für ne hilfe echt dankbar.
Das Problem ist das GetSaveAsFilename!!!!

cya
AMG

Sub main()

'Connect to a running instance of Solid Edge.
    Set objApp = GetObject(, "SolidEdge.Application")
'Access the currently open document.
    Set objDoc = objApp.ActiveDocument
'Get the ActiveSelectSet
    Set objSelect = objApp.ActiveSelectSet.Item(1)
    If objSelect.Name = "" Then
        MsgBox "No proper selection or nothing selected. Make a selection and run the macro again."
        End
    End If
    cName = Application.GetSaveAsFilename(, , , "Save")
    MsgBox (cName)
   
End Sub

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

Marco Kreutz
Mitglied



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

Beiträge: 640
Registriert: 11.02.2003

SolidEdge 2021, SolidWorks 2021, Inventor 2020, PRO/E Creo1 und Creo2
VB 6.0 / VB.NET / C#.NET
Windows 10 64bit

erstellt am: 13. Aug. 2004 15:59    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 amg13 10 Unities + Antwort hilfreich

Hallo

so funktioniert's....

sub Main()
Dim objApp      As SolidEdgeFramework.Application
set objApp = GetObject(, "SolidEdge.Application")
Set objDoc = objApp.ActiveDocument
Set objSelect = objApp.ActiveSelectSet.Item(1)

If objSelect.Name = "" Then
    MsgBox "No proper selection or nothing selected. Make a selection and run the macro again."
    End
End If

cName = objApp.GetSaveAsFileName(igLinksUpdateWithAltPath, 0)
MsgBox (cName)

end sub

------------------
Marco Kreutz
info@hitteam.de
http://www.hitteam.de

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

amg13
Mitglied



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

Beiträge: 942
Registriert: 20.12.2002

Aktuell:
FSC R550 2x Xeon X5450 QuadCore
8GB RAM
Nvidia FX4800
Dell Precision M6300
Solid Edge ST3
NX 7.5
Solid Works 2010
Pro/E
Das war einmal:
HP Workstation
>80x SolidEdge V19 (Classic & Foundation)
14x SMAP3D Piping/Partfinder

erstellt am: 13. Aug. 2004 17:13    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 Marco,

danke, manchmal steht man wirklich im Wald.
Im objectbrowser stehts ja die syntax.

Mal noch eine andere Frage zu VB.
Man soll ja ein Formular als Icon einer Exe Datei zuweisen können.
Jeder Versuch den ich unternommen habe ist aber fehlgeschlagen.
=> kein eigens Icon.
Muss man beim Erstellen des Formulars fürs Icon etwas beachten?

Ich hab 5 verschiedene Forms probiert und keines wurde als Icon eingebunden.


cya
AMG

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

modeng
Ehrenmitglied V.I.P. h.c.



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

Beiträge: 7061
Registriert: 10.12.2003

erstellt am: 13. Aug. 2004 19:06    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 amg13 10 Unities + Antwort hilfreich


Icon.jpg

 
meinst Du die Angabe eines Icons in Project Properties --> Application?
Wenn dem so ist sollte der Name des Icons gleich dem des Forms sein:
Project Browser:
      Forms
            frmBatch(Batch.frm)
           
das Icon heisst dann : frmBatch.ico
Zuweisen in den Properties fuer das Formular ueber Property --> Icon (siehe Bild)
Das Icon muss als Typ Ico erstellt werden. der Name ist zwar beliebig, aber
so ist es augenfaellig welches Icon zu welchem Form gehoert

Klaus


[Diese Nachricht wurde von modeng am 13. Aug. 2004 editiert.]

[Diese Nachricht wurde von modeng am 16. Aug. 2004 editiert.]

[Diese Nachricht wurde von modeng am 16. Aug. 2004 editiert.]

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

amg13
Mitglied



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

Beiträge: 942
Registriert: 20.12.2002

Aktuell:
FSC R550 2x Xeon X5450 QuadCore
8GB RAM
Nvidia FX4800
Dell Precision M6300
Solid Edge ST3
NX 7.5
Solid Works 2010
Pro/E
Das war einmal:
HP Workstation
>80x SolidEdge V19 (Classic & Foundation)
14x SMAP3D Piping/Partfinder

erstellt am: 16. Aug. 2004 09:50    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 Klaus,

hm wie soll ich sagen.
Ich schaff es nicht. ich will ja nur in der generierten exe ein Symbol haben.
Übrigens das bild von deinem Dampfross ist ja nicht schlecht, hilft mir bei VB aber nicht wirklich weiter :-)

cya
AMG

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

Marco Kreutz
Mitglied



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

Beiträge: 640
Registriert: 11.02.2003

SolidEdge 2021, SolidWorks 2021, Inventor 2020, PRO/E Creo1 und Creo2
VB 6.0 / VB.NET / C#.NET
Windows 10 64bit

erstellt am: 16. Aug. 2004 10:05    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 amg13 10 Unities + Antwort hilfreich

Hallo,

folgende Schritte sind dafür nötig:

1. Für die Startform ein icon in den Properties zuordnen
2. Im "Projekt Propties" die Option "Startup Object" auf die Startform setzen

Beachte bitte, dass dies nur bei einer Standard exe möglicht ist

------------------
Marco Kreutz
info@hitteam.de
http://www.hitteam.de

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

modeng
Ehrenmitglied V.I.P. h.c.



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

Beiträge: 7061
Registriert: 10.12.2003

erstellt am: 16. Aug. 2004 10:05    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 amg13 10 Unities + Antwort hilfreich

Moin,

kann ich mir denken -- gehoert eigentlich zum anderen Thread -- ich
hols nochmal nach -- dauert ein bischen ...

Klaus

[Diese Nachricht wurde von modeng am 16. Aug. 2004 editiert.]

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

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
Antwort erstellen


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

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

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

(c)2023 CAD.de | Impressum | Datenschutz