Hallo,
Ich wollte mir nen Startmenu für Unigraphics erstellen in dem man die Sprache usw. auswählen kann.
Es ändert die Variablen, aber Unigraphics wird immer in der gleichen Sprache gestartet.
Startet man Unigraphics von Hand, also ohne die letzten "Shell" Zeilen geht es.
Ich habe so angefangen:
***********************
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objShell As Object
' Verweis auf den Windows Scripting Host
objShell = CreateObject("WScript.Shell")
objShell.Environment("user")("UGII_LANGUAGE_FILE") = "C:\Program Files\ugs\Nx 5.0\localization\UGII_German.lng"
objShell.Environment("user")("UGII_LANG") = "German"
Shell("C:\Program Files\UGS\NX 5.0\UGII\ugraf.exe")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objShell As Object
' Verweis auf den Windows Scripting Host
objShell = CreateObject("WScript.Shell")
objShell.Environment("user")("UGII_LANGUAGE_FILE") = "C:\Program Files\UGS\NX 5.0\UGII"
objShell.Environment("user")("UGII_LANG") = "English"
Shell("C:\Program Files\UGS\NX 5.0\UGII\ugraf.exe")
*****************************************************
Danke für Euche Hilfe!
Viele Grüße Lars
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
