---

Hallo an alle,

ich hab mal wieder eine Frage bezüglich programmierung.

Es handelt sich dabei nicht um eine umsetztung in CATIA sondern um die User_Form.

Hab ein Makro geschrieben das wunderbar läuft, würde desshalb gerne noch ein Oberfläche erstellen.

hab insgesamt 4 x Textbox wo werte eingeben werden und 1 checkbox. Ausgangssituation ist das zu begin Textbox1 und Textbox2 aktiv sind, sprich es können werte eingegeben werden und Textbox3 und 4 deaktiviert.
Wenn der Anwender auf die Checkbox den hacken macht werden Textbox 1 und deaktivieert und 4,5 aktiviert.

Also möchte wissen was ich bei der beschreibung der Checkbox-Funktion eingeben muss.

Danke

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

---

Zitat:

---

hab insgesamt 4 x Textbox wo werte eingeben werden und 1 checkbox. Ausgangssituation ist das zu begin Textbox1 und Textbox2 aktiv sind, sprich es können werte eingegeben werden und Textbox3 und 4 deaktiviert.
Wenn der Anwender auf die Checkbox den hacken macht werden Textbox 1 und deaktivieert und 4,5 aktiviert.

---

hier heißt die Checkbox 'CheckBox1', und die Textboxen 'TextBox1' bis 'TextBox4'. Den code einfach in die Userform kopieren und namen entsprechend ändern. gruß

Code:

---

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.Enabled = False
        Me.TextBox2.Enabled = False
        Me.TextBox3.Enabled = True
        Me.TextBox4.Enabled = True
    Else
        Me.TextBox1.Enabled = True
        Me.TextBox2.Enabled = True
        Me.TextBox3.Enabled = False
        Me.TextBox4.Enabled = False
    End If
End Sub

---

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

---

Servus
Schau mal hier.
Hilft das weiter?

Gruß
Bernd

PS: Bitte Systeminfo ausfüllen.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

1.gif

Danke für die schnelle Rückmeldung,

hat aber nicht so richtig funktioniert. Im screenshot kann man sehen was ich umgesetzt habe.

es erscheint dabei die Meldung.

            Fehler beim Kompilieren
            Methode oder Mitgliedsdaten nicht gefunden

Was mache ich da Falsch???

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

---

was ist denn Text_Radius genau? schätze mal eine Textbox..
wo steht dieser code, in der userform oder einem modul?

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

---

Ich hab jetzt ein paar sachen ausprobiert nun klapt es auch mit dem ein und ausschalten.

Ich würde jetzt gerne auf den grund kommen wieso ich diese Textbox's erstellt habe.

Beim der Anwendung des Makros wird ein Corner erstellt :
Set oCorner1 = HSFactory.AddNewCorner(oRefHilfsLine1, oRefSuppot, Nothing, 0.5, -1, -1, False)
    oCorner1.DiscriminationIndex = 1
    oCorner1.beginofcorner = 2
    oCorner1.FirstTangentOrientation = -1
    oCorner1.SecondTangentOrientation = -1
    oCorner1.trimmode = 2

wobei oRefHilfsLine1 eine zuvor erstellte Linie und  oRefSuppot ein zuvor erstelltes Join ist. Der Radius des Corner beträgt hier 0.5 mm wie kann ich jetzt definieren das als radius immer der Wert genommen wird den der Anwender im Textfeld eingibt?

Reicht es aus wenn ich zu begin vorgebe dass:

xVal = Text_Radius.Value
.
.
.
.
Set oCorner1 = HSFactory.AddNewCorner(oRefHilfsLine1, oRefSuppot, Nothing, xVal, -1, -1, False)

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

---

Servus
Ggf musst den String aus dem Textfeld noch in einen Double umwandeln:
Set oCorner1 = HSFactory.AddNewCorner(oRefHilfsLine1, oRefSuppot, Nothing, Cdbl(xVal), -1, -1, False)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Nach langem hin und her konnte ich ne lösung finden die auch funktioniert.

Ich musste halt die user form ansprechen, das endresultat schaute dann so aus:

kVal = frmStart.Text_offset_pos.Text
.
.
.
.
.
Set oCurve1 = HSFactory1.AddNewCurvePar(oRefSketch, oRefPlane, kVal, False, False)

Danke nochmal an alle für die Rückmeldungen.

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