Hallo,
Meine Aufgabenstellung ist folgende
ich habe eine Tabelle 3*3 Kästchen
Durch anklicken der Checkbox1
soll checkbox2 und textbox1 gesperrt werden aber gleichzeitig ein anderes dokument bzw ein anderer text ( andere datei ) in textbox2 eingefügt werden.
textbox 2 soll aber erhalten bleiben also die umrandung etc.
wenn checkbox 1 nicht aktiv ist soll man in textbox 1 einen text eingeben und durch anklicken von checkbox 2 soll dieser text in textbox1 eingefügt werden.
Hättet ihr da eine Musterlösung ? Mein Hauptproblem ist das Einfügen des anderen Dokumentes
Extern Intern
Messtechnik Checkbox1 Checkbox2
Textbox1
Textbox2
Soweit bin ich gekommen:
Private Sub CheckBox1_Click()
TextBox1.Locked = CheckBox1 = True
CheckBox2.Locked = CheckBox1 = True
End Sub
Private Sub CheckBox2_Click()
CheckBox2.Enabled = True
CheckBox2.Locked = False
If CheckBox2.Value = True Then
TextBox2.Text = TextBox1.Text
End If
End Sub
Private Sub TextBox1_Change()
TextBox1.Enabled = True
TextBox1.Locked = False
End Sub
Private Sub TextBox2_Change()
End Sub
Meine Aufgabenstellung ist folgende
ich habe eine Tabelle 3*3 Kästchen
Durch anklicken der Checkbox1
soll checkbox2 und textbox1 gesperrt werden aber gleichzeitig ein anderes dokument bzw ein anderer text ( andere datei ) in textbox2 eingefügt werden.
textbox 2 soll aber erhalten bleiben also die umrandung etc.
wenn checkbox 1 nicht aktiv ist soll man in textbox 1 einen text eingeben und durch anklicken von checkbox 2 soll dieser text in textbox1 eingefügt werden.
Hättet ihr da eine Musterlösung ? Mein Hauptproblem ist das Einfügen des anderen Dokumentes
Extern Intern
Messtechnik Checkbox1 Checkbox2
Textbox1
Textbox2
Soweit bin ich gekommen:
Private Sub CheckBox1_Click()
TextBox1.Locked = CheckBox1 = True
CheckBox2.Locked = CheckBox1 = True
End Sub
Private Sub CheckBox2_Click()
CheckBox2.Enabled = True
CheckBox2.Locked = False
If CheckBox2.Value = True Then
TextBox2.Text = TextBox1.Text
End If
End Sub
Private Sub TextBox1_Change()
TextBox1.Enabled = True
TextBox1.Locked = False
End Sub
Private Sub TextBox2_Change()
End Sub