Visual basic - Basic spørsmål?

[torbisen]

Finnes ingen dumme spørsmål har jeg lært. Vi får se

 

Har diverse TextBox1, TextBox2, TextBox3 osv.. Der man skal fylle inn navn og adresse. Og en button1. Når man trykker på button1 vil jeg at følgende skal skje:

 

I en RichTextBox1 lengere ned på siden skal det da komme opp f.eks. "Kunden heter Tor Nilsen og bor i Fjøsveien 4 i Oslo. Postnummeret er 0781. Henter da data fra TextBox. Det jeg ikke får til er all den teksten som ikke kommer fra TextBox1,2,3 osv.

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

richtextbox1.text = ???

End Sub

 

Takker for svar

[Harald Staff]

richtextbox1.text = "Kunden heter " & textbox1.text & " og bor i " & textbox2.text & " og er en elendig " & textbox3.text & osv osv

 

HTH. Beste hilsen Harald

[torbisen]

Enklere var det ikke. Takk skal du ha. Vet du om det finnes en kode som jeg kan bruker for å plutselig komme til neste

linje?

 

Er det noe locate funksjon man kan bruke?

 

Hilsen Torbjørn

[Harald Staff]

Hehe "plutselig" betyr overraskende også på deg selv. Da må du i gang med litt avansert matte.

Men linjeskift er et tegn (eller en kombinasjon av to):

 

"Linje 1" & vbNewLine & "Linje 2"

 

Mistenker at både Help og Google ville hjulpet deg med disse ganske kjapt, så vi avslutter nå før du blir lat og bortskjemt.

 

HTH. Beste hilsen Harald

[Wubbable]

Også kan man unngå å bruke Microsoft.VisualBasic fordi det er treigt, og heller bruke Environment.NewLine

[Harald Staff]

Jeg ser ikke at den opprinnelige oppgaven tjener merkbart på det der, men hvis du først skal ha det kjapt og enkelt så styr unna wrappere og namespacer og lange trylleformler og gjør det så enkelt som mulig:

"Linje 1" & Chr(10) & "Linje 2"

 

Beste hilsen Harald

[Wubbable]

Eller bruke Convert.ToChar(10), siden Chr() også er Microsoft.VisualBasic...

Må du ikke ha en carriage return også? (13)

 

Dobbelt så rask:

Dim s As New Stopwatch
s.Start()

For i As Integer = 1 To 1000000000
'Fjern ' på testsubject :P
'Microsoft.VisualBasic.Chr(10)
'Convert.ToChar(10)
Next

MessageBox.Show(s.ElapsedMilliseconds)

Endret 11. januar 2009 av Wubbable