✔ Text für Text...

A

arcBOUND

Moin,

Eine kleine Frage: Wie kann ich Text in einem textfeld dazu bringen hintereinander zu kommen? Beispiel: Ich habe einen Button(Button) und ein textfeld(Text).

private_sub.....button.....click....blablabla

Text.Text = "dies"
Text.Text = "ist"
Text.Text = "ein"
Text.Text = "Test"

end_sub

wenn ich den Button jetzt ausführe, wird natürlich nur der letzte text "Test" angezeigt.
Wie bekomm ich das jetzt hin das beim ersten click auf den Button "dies" und auf den zweiten "ist" und so weiter erscheint?

Ich benutze VB 2005 Express .
 
Text.Text = Text.Text & "dies"
Text.Text = Text.Text & "ist"
Text.Text = Text.Text & "ein"
Text.Text = Text.Text & "test"
 
erstmal Danke, hat aber leider nicht geholfen... wenn ich jetzt auf den button clicke kommt nur der der erste text und dann geht es nciht weiter. Mein Code sieht im moment wie folgt aus:
Code: 
  Private Sub BSFLgenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSFLgenerate.Click
        TFkey.Text = TFkey.Text & "NTEW-DXD7-T3S5-B1A5-M3Q0"
        TFkey.Text = TFkey.Text & "AB3K-T7EY-K0H6-B4M7-O6O7"
        TFkey.Text = TFkey.Text & "S34U-S6GN-O3E2-52A4-P2G8"
        TFkey.Text = TFkey.Text & "ADUC-RTBJ-S6K8-S6U8-Y1A5"
        TFkey.Text = TFkey.Text & "QYH9-FUQX-Y0C2-M3F5-V0B0"
        TFkey.Text = TFkey.Text & "KAFF-EDVY-H2R8-A5E6-F4B8"
        TFkey.Text = TFkey.Text & "GRL4-PUVZ-K8K1-32V7-T8J8"
        TFkey.Text = TFkey.Text & "NTWN-45TL-G6I1-D3Q5-H0B7"
        TFkey.Text = TFkey.Text & "IG4C-E8AS-M6V1-B8S2-B5Y3"
        TFkey.Text = TFkey.Text & "EXX7-P7GL-H2F5-D1R1-G5D0"
        TFkey.Text = TFkey.Text & "NCDV-HZG8-Y1E0-Z6A8-P8H5"
        TFkey.Text = TFkey.Text & "PHFX-ESA6-U3J1-Y1V5-N3Q0"
        TFkey.Text = TFkey.Text & "QU2A-MRTS-P5O8-P5X4-V4H5"
        TFkey.Text = TFkey.Text & "Y53B-BNF7-P5R2-75D4-D2J7"
        TFkey.Text = TFkey.Text & "OSPF-HSVB-I5M6-N6R8-H7U2"
        TFkey.Text = TFkey.Text & "FG2J-WAUT-T1I2-77F5-W6H3"
        TFkey.Text = TFkey.Text & "X2CC-XNFK-K8N5-L3G1-H3I8"
        TFkey.Text = TFkey.Text & "PTZZ-DMFY-N8F7-Y2U2-Q4K1"
        TFkey.Text = TFkey.Text & "ADUC-RTBJ-S6K8-S6U8-Y1A5"
        TFkey.Text = TFkey.Text & "EJWW-YNNH-T0G2-R2J4-S7V2"
        TFkey.Text = TFkey.Text & "C4XF-ZGHF-M4O6-Q5Q2-U5L8"
    End Sub

Ihr könnt euch sicherlich denken was das werden soll....
 
hm machst n Counter der Pro Klick nach oben zählt und je nach Zahl wird Text eingefügt.
Füllst also den Text in ein Array und lässt den Text direkt mittels Array(Counterzahl) auslesen.
Wenn Du so was meinst?
 
Ich versteh leider nur Grob was du mir sagen willst... Beispiel plz
 
@arcBOUND: Wie ich sehe, benutzt du VB.NET (auch VB2005 ist VB.NET). Stell deine Frage doch bitte im .NET-Unterforum, VB hat seit .NET eine veränderte Syntax und daher ein anderes Unterforum.


Der Doc!
 
Doc, er sagt er benutzt 2005 Express?
Ich hab kein Plan von den Versionen, aber ich nehm an VB6 und 2005 Express haben den selben Syntax.
Da ich net sicher bin, erklär ichs mal ohne Code.
Setzt nen Integer im Formular
Setzt diesen beim Laden auf 0 und erstellt einen Array, in dem die Werte, die du ausgegeben haben willst gespeichert sind.
Pro Buttonklick liest du Den Arraywert, dessen Index der I ist, heraus und gibst diesen aus.
Nach dem Vorgang setzt du i = i +1.
Gibt sicher elegantere Lösungen aber diese hier hast ja in 3 Mins gemacht.
 
Nö, VB6 und VB2005 (egal ob Express oder nicht) sind doch deutlich verschieden. Die Versionen bis VB6 hatten alle für die VB-Internen Funktionen eigene DLL-Dateien, ab VB.NET (also VB7, die 2005er ist VB8) wird für alle .NET-Sprachen das .NET-Framework benutzt. Einher ist auch eine deutliche Veränderung und Ausweitung der Sprachsyntax gegangen, Teile erkennt man sicher noch als Basic. Diese Änderung bewirkt auch, dass man VB6-Programme nicht so ohne weiters in VB.NET (ich sag das mal so für alle VB.NET-Versionen, also auch VB2005) wandeln kann, da ist noch deutliche Handarbeit notwendig.

Daher auch die Anpassung mit einem eigenen Unterforum, ich denke mal die Admins sollten einmal deutlicher (am Unterforumsnamen) kennzeichnen, dass hier nur bis VB6 behandelt wird.


Der Doc!
 
Muss dem Doc recht geben.
VB6 und VB.NET sind von Grundauf verschieden.

Es ist nicht nur die Syntax die eine Programmiersprache ausmacht - auch das "Framework" auf dem es basiert...

Aber zur Frage...
Lös es doch so:

Code: 
DIM mText as String
DIM i as Integer

  Private Sub BSFLgenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSFLgenerate.Click

        mText[0] = "NTEW-DXD7-T3S5-B1A5-M3Q0"        
        mText[1] =  "AB3K-T7EY-K0H6-B4M7-O6O7"
        mText[2] =  "S34U-S6GN-O3E2-52A4-P2G8"
        mText[3] =  "ADUC-RTBJ-S6K8-S6U8-Y1A5"
        mText[4] =  "QYH9-FUQX-Y0C2-M3F5-V0B0"
        mText[5] =  "KAFF-EDVY-H2R8-A5E6-F4B8"
        mText[6] =  "GRL4-PUVZ-K8K1-32V7-T8J8"
        mText[7] =  "NTWN-45TL-G6I1-D3Q5-H0B7"
        mText[8] =  "IG4C-E8AS-M6V1-B8S2-B5Y3"
        mText[9] =  "EXX7-P7GL-H2F5-D1R1-G5D0"
        mText[10] =  "NCDV-HZG8-Y1E0-Z6A8-P8H5"
        mText[11] =  "PHFX-ESA6-U3J1-Y1V5-N3Q0"
        mText[12] =  "QU2A-MRTS-P5O8-P5X4-V4H5"
        mText[13] =  "Y53B-BNF7-P5R2-75D4-D2J7"
        mText[14] =  "OSPF-HSVB-I5M6-N6R8-H7U2"
        mText[15] =  "FG2J-WAUT-T1I2-77F5-W6H3"
        mText[16] =  "X2CC-XNFK-K8N5-L3G1-H3I8"
        mText[17] =  "PTZZ-DMFY-N8F7-Y2U2-Q4K1"
        mText[18] =  "ADUC-RTBJ-S6K8-S6U8-Y1A5"
        mText[19] =  "EJWW-YNNH-T0G2-R2J4-S7V2"
        mText[20] =  "C4XF-ZGHF-M4O6-Q5Q2-U5L8"

        TFkey.Text = mText(i)

        i = i + 1

    End Sub
 
wär es nicht am allereinfachsten mit einem timer?

Visual Basic: 
timer1_timer()
zahl = zahl + 1
if zahl = 1 then 
   text1.text = "Das"
   End if
if zahl = 2 then
   text1.text = "ist"
   end if

und so weiter, oder verstehe ich da etwas falsch?
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück