[VB] witregel maken wil niet werken

[Verwijderd]

okeej ik hoop dat iemand mij hier kan helpen.
Ben nog niet zo lang bezig met Visual basic 6.0 en zit met een probleempje.
Ik heb een soort eigen autorun menu gemaakt om files te starten films, games en andere zooi (in dit geval games).
nu heb ik dat zo gedaan dat als je op een game klikt in de ListBox dat er in de PictureBox een screenshot komt van de game.
Nou moet daarbij onder het screenshot in een TextBox ook nog een beschrijving komen. Maar ik krijg het niet voor elkaar om meerdere regels te plaatsen...
Wie weet hoe je een carriage return in code zet...
want Ctrl + Enter gaat moeilijk in code...

FF hieronder wat ik nu heb aan code:

Private Sub Command1_Click()
Msg = List1.ItemData(List1.ListIndex) & " "
If Msg = 0 Then Shell "setup.exe"
If Msg = 1 Then Shell "../C&C Renegade/setup.exe"
If Msg = 2 Then Shell "../Grand Theft Auto III/setup.exe"
If Msg = 3 Then Shell "../Hooligans/setup.exe"
If Msg = 4 Then Shell "../Stronghold/setup.exe"
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Form_Load()
List1.AddItem "Black & White"
List1.ItemData(List1.NewIndex) = 0
List1.AddItem "Command & Conquer: Renegade"
List1.ItemData(List1.NewIndex) = 1
List1.AddItem "Grand Theft Auto III"
List1.ItemData(List1.NewIndex) = 2
List1.AddItem "Hooligans"
List1.ItemData(List1.NewIndex) = 3
List1.AddItem "Stronghold"
List1.ItemData(List1.NewIndex) = 4
End Sub

Private Sub List1_Click()
Msg = List1.ItemData(List1.ListIndex) & " "
If Msg = 0 Then Text1.Text = "Black & White"
If Msg = 1 Then Text1.Text = "Command & Conquer : Renegade"
If Msg = 2 Then Text1.Text = "Grand Theft Auto III"
If Msg = 3 Then Text1.Text = "Hooligans"
If Msg = 4 Then Text1.Text = "Stronghold"
If Msg = 0 Then Picture1.Picture = LoadPicture("../screen/baw.jpg")
If Msg = 1 Then Picture1.Picture = LoadPicture("../screen/ccr.jpg")
If Msg = 2 Then Picture1.Picture = LoadPicture("../screen/gta.jpg")
If Msg = 3 Then Picture1.Picture = LoadPicture("../screen/hls.jpg")
If Msg = 4 Then Picture1.Picture = LoadPicture("../screen/sgh.jpg")
End Sub


en dan gaat het om het VETTE deel code...
waar steeds de naam staan van de game, daar moet dus een omschrijving komen van de game zoals:

Black & White:
In dit spel ben jij god.
Jij mag bla bla bla.

Iemand???

[Skinny]

Beetje manual werk he (volgende keer ff zoeken)

code:

frmForm.txtTextBox.Text = "Regel 1" & vbCrLf & "Regel 2"

Wel even de "MultiLine" property van je control op "True" zetten.

[Verwijderd]

TextBox.MultiLine = True

Voor een nieuwe regel gebruikt je vbCrLf

[Verwijderd]

Op maandag 22 juli 2002 16:33 schreef dev het volgende:
TextBox.MultiLine = True

Voor een nieuwe regel gebruikt je vbCrLf

Laat maar, ben weer eens laat
_{en per ongeluk quote gebruikt}

[Verwijderd]

Ik dank jullie!
Het werkt nu wel...

[Verwijderd]

Kan ook met Chr(13)
vb

"Regel 1" + Chr(13) + "Regel 2"
Zo doe ik het altijd

[mulder]

dat kan half kloppen, want vbCrLf staat voor Chr(13) + Chr(10), carriage return + linefeed

[johnwoo]

vbCr = vbNewline = Chr$(13) ' Carriage Return = Newline
vbLf = Chr$(10) ' Linefeed
vbCrLf = vbCr & vbLf

Als het alleen gaat om de text in de GUI zou ik vbNewline nemen, een extra linefeed is overbodig. Als je de text ook naar file zou willen schrijven, of over een ASCII protocol wilt versturen, dan zou ik vbCrLf gebruiken