---

Schriftfeld.jpg

Beim umprogrammieren von Stefan`s Schriftfeldprogramm haben wir als absolute Programmieranfänger ein Problem.

Wie könnten wir folgende Aktionen programmieren?

Wir haben drei OptionButtons ins Programm eingefügt. Durch die Buttons soll ein vordefinierter Text (evtl. mit Zeilenumbruch) in das SW-Schriftfeld eingefügt werden.

Der erste Button (kein Text) soll die Funktion haben, dass das Textfeld leer bleibt.

Beim zweiten und dritten Button soll der Text (jeweils ein anderer Text) aber auch, so wie alle anderen Werte, erst nach dem Drücken des Werte-Eintragen-Buttons in das Schriftfeld eingefügt werden.

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

---

Hi decadhund.

mit:
If.....
  ...Anweisung
ElseIf
  ...Anweisung
Else
  ...Anweisung
End If

oder:

Select Case....

ist das lösbar. Wenn Du noch "newby" in VBA bist, empfehle ich Dir das Buch "VBA für Dummys" (das heisst wirklich so  !). Damit kannst Du dich wunderbar in die Grundlagen von VBA einarbeiten.

------------------
Gruss
Andreas
A+E Müller AG

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

---

Hallo cadhund,
hier der Link, der mir selbst letztens sehr geholfen hat:
http://www.aboutvb.de/khw/artikel/khwselectoption.htm

und hier der entscheidende Absatz aus der Seite:

Zitat Anfang:
"...Eigentlich ist die Antwort ganz einfach: Der zu vergleichende Wert ist "True". Das Select Case...-Prinzip lässt sich nämlich auch umkehren. Anstelle den variablen Wert obenan dem "Select Case" zuzuordnen und mit den möglichen "fixen" Werten in den Case-Verzweigungen zu vergleichen, können Sie auch den fixen Wert obenan stellen und die veränderbaren, variablen Werte den Case-Verzweigungen zuordnen:

Private Sub Command_Click()
  Select Case True
    Case Option(0).Value
      ' Aktion 1
    Case Option(1).Value
      ' Aktion 2
    ...
    Case Option(x).Value
      ' Aktion x
  End Select
End Sub     
..."
Zitat Ende

------------------
Gruß
  Harry  

[Diese Nachricht wurde von HarryD am 24. Feb. 2005 editiert.]

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

---

Hallo zusammen,
wir haben unser Problem jetzt so gelöst:

  If Option2 = True Then
   
        dummy = Model.DeleteCustomInfo("Text")
       
        dummy = Model.AddCustomInfo("Text", "Text", "ohne Schwund")
    End If

Nun stellt sich nur noch die Frage, wie wir `nen Zeilenumbruch mit einprogrammieren können?

z.B. ABCDE
        FGHIJ

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

---

Frage hat sich soeben erledigt (wir haben den Umbruch)  ;-)

    If Option2 = True Then
   
        dummy = Model.DeleteCustomInfo("Text")
       
        dummy = Model.AddCustomInfo("Text", "Text", "ohne Schwund" & vbCrLf & "Text")
    End If

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