Visual Basic
 

Hey Guys..

Ich hab ein Prob mit Visual Basic. Und zwar will ich mittels eines Command Buttons den Text eines Labels ändern und zugleich auch die Schriftfarbe.

Das Ganze sollte wie folgt gehen: Wenn ich einmal klicke soll, das Label sichtbar werden (label.visible= true) und der erste Text(label.caption="text") soll erscheinen. Bei dem zweiten Klicken soll der Text geändert werden also von "text" nach "nichts" zum Beispiel!?
Nur weiß ich par tout nicht was ich tun soll...
Ich brauche unbedingt eure Hilfe...!!!

DANKE

AW: Visual Basic
 

also ich würde es mit ner If-Abfrage kurz machen und zb. abfragen, ob "text" in der Caption steht, wenn ja, dann durch "nichts" ersetzen und wenn nicht, "text" reinschreiben und das Label auf "visible" setzen ;)

kannst auch wenn du "nichts" ins Label schreibst, noch gleichzeitig das Label wieder "invisible" machen, so dass er nach jedem Klick den Vorgang abwechselnd macht :)

AW: Visual Basic
 

genauso mit der farbe.
du kannst mit den befehlen meist setzen und auslesen. also tb.text="text"
und text=tb.text
du kannst auch prügen obs gread unsichtbar ist
if tb.visible=true then tb.visible=false... to be continued ;)

AW: Visual Basic
 

Ja ok, aber wenn ich auf den Button klicke, dann geschieht nichts, wenn:

[code]

Private Sub cmdOnOFF_Click()
If Laser = True Then
label1.Caption = "deaktiviert"
label1.ForeColor = vbRed
Laser = False
Exit Sub
Else

label1.Caption = "aktiviert"
label1.ForeColor = &HC000&
Laser = True
Exit Sub
End If
End Sub

[/code]

der Code ist und in der Form Load

[Code]
Laser = true
[/Code]

steht. es wird höchstens in der Caption "aktiviert" reingeschrieben...und nicht danach "DeAktiviert", wie es im Wechsel sein soll.

AW: Visual Basic
 

hmm aber irgendwie kann ich ned glauben, dass der Quellcode 100% richtig ist bzw. wie wird in Visual Basic zwischen "Zuweisung" und "Gleichheitszeichen" unterschieden (bei C/C++ ist es "=" und "==" und bei Delphi (Pascal) sind es ":=" und "=")?

mein Visual Basic ist ewig her, deswegen frage ich, aber ich kann nicht glauben, dass "=" einmal "Zuweisung" und ein ander mal "Gleichheitszeichen" sein soll, denn so intelligent ist kein Compiler, der das unterscheiden kann :?

daher check das mal in der Syntax, denn da liegt vermutlich der Fehler

AW: Visual Basic
 

ne bei basic gibts keine unterscheidung
dasfür ist ja das if da

button.visible=true <-- zuweisung
if button.visible=true then <-- 'abfrage' /vergleich

AW: Visual Basic
 

[CODE] Private Sub cmdOnOFF_Click()
If label1.ForeColor = vbRed Then
label1.Caption = "aktiviert"
label1.ForeColor = &HC000&
Else
label1.Caption = "deaktiviert"
label1.ForeColor = vbRed
End If
End Sub
[/CODE]

das sollte reichen
das exit sub ist über dafür haste ja das if then else

AW: Visual Basic
 

Danke BomberD, das war das , was ich suchte...!!