Visual Basic Forum

Fcnidau · Newbie Anmeldedatum: 14.04.2009 Beiträge: 4

hallo

ich habe eine kleine frage. hoffe ihr könnt mir helfen...

ich möchte eine Funktion schreiben, die je nach wert in ein anderes Label den Wert schreibt. und zwar auf klick auf einen Button.

Der Wert kommt aus Textbox1.text
Jetzt die Frage:

habe die variable test = Textbox1.text

auf Knopfdruck soll sie jetzt in Label1 schreiben wenn man 1 in das Feld eingegeben hat, ins Label2 wenn man 2 in die Textbox eingegeben hat usw....

also wie kann ich das machen?
Label(und wie kann ich jetzt den Wert der variable test in an Label anfügen, dass Label1, Label2 oder so entsteht???).text

das wäre meine frage... wie kann ich den Wert holen und ihn an Label anhängen??
hoffe auf eine schnelle antwort

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Vielleicht ließt du deinen Post noch einmal durch und überlegst, wie due es besser formulieren könntest. Ich habs nun 3 mal gelesen und verstehe nur Bahnhof.

Aber vllt hilft dir

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Wenn ich dich richtig verstanden habe, hilft dir die Select Case Anweisung weiter.
http://openbook.galileocomputing.de/vb_net/msvb020006.htm#Rxxmsvb020006256DieSelectCaseVerzweigung

Fcnidau · Newbie Anmeldedatum: 14.04.2009 Beiträge: 4

also probiere es noch einmal Smile

:

ich habe eine textbox (textbox1) und 3 label (Label1, Label2, Label3). Nun will ich in die Textbox entweder die Zahl 1 2 oder 3 eingeben können und je nach der Zahl soll das Programm dann die Zahl im richtigen Label anzeigen. ( wenn 1 dann Label1 usw)

ich weiss ich könnte das einfach mache mit einer Schlaufe mit 3 if-Anweisungen. Ich suche aber eine Möglichkeit dass so zu machen:

Dim test As Integer

test = Textbox1.text

Label"Wert von test"(hier sollte nun je nach wert von text 1 2 odr 3 eingesetzt werden. Also dass wenn der Wert der Varible test 1 ist soll Label1 stehen usw. In Java geht das zum Beispiel mit "+Variablenname+" und in PHP ähnlich. Geht das in Visual Basic auch?).text = test

Versteht ihr es jetzt besser?

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Marduk hat recht, Select Case Anweisung ist das, was du bruachst ;D
Wüsste nicht, warum du es anders lösen solltest, wenn es damit so einfach geht.

lg ZiuX
ziux[ät]jabber.ccc.de
Z1uX.cn

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Man könnte noch versuchen auf das Control Array zuzugreifen, mit den entsprechenden Indexen aus deiner Variable test.
Man holt sich erst alle Labels in ein eigenes Array und ruft sie dann mit dem Index ab, aber das ist hier aufwendiger als die Select Anweisung.

Und die Methode (lable + test).text = "asdf" geht in VB nicht.

Fcnidau · Newbie Anmeldedatum: 14.04.2009 Beiträge: 4

vielen dank...
hoffe kann jetzt mit meinem programm weitermachen

Fcnidau · Newbie Anmeldedatum: 14.04.2009 Beiträge: 4

so habe schon wieder eine neue Frage:

Ich habe einen verweis erstellt und zum verstehen wie man sachen in Excel speicher einfach mal von einem Internet-Tutorial den Quellcode genommen. Dieser sieht wie folgt aus:

Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen As Integer

xlApp = New Excel.Application
xlApp.Visible = False
xlMappe = _
xlApp.Workbooks.Open("C:\Dokumente und Einstellungen\Sämi\Eigene Dateien\text.xls")
xlBlatt = xlMappe.Worksheets(1)
xlZelle = xlBlatt.Range("A1")
intZeilen = xlZelle.CurrentRegion.Rows.Count
xlZelle.Offset(intZeilen, 0).Value = intZeilen
xlZelle.Offset(intZeilen, 1).Value = Today()
xlZelle.Offset(intZeilen, 2).Value = _
Label1.Text
xlZelle.Offset(intZeilen, 3).Value = Label2.Text

xlMappe.Save()
xlMappe.Close()
xlApp.Quit()

Es gibt mir aber eine Fehlermeldung bei xlApp = New Excel.Application und zwar folgende: "New" kann nicht auf einer Schnittstelle verwendet werden.

Was ist das Problem und wie muss ich das ändern??