hvordan få igen den samme teksten når jeg trykker på oppknap

[jjjjjjjjjjeeeeeeeeeeee]

hei

 

jar har laget et chatte program og vil gjerne ha det slik at når jeg trukker på opp pilen så skal det jeg skrev den forrige gangen komme i text1.text

 

hvordan gjør jeg det?

 

og en ting til :

hvordan kan jeg kopiere det som er selected i en listbox ?

 

[ Denne Melding var redigert av: mais på 2002-09-01 13:33 ]

[Cerwell]

Hei.

Her har du et forslag til kode (Copy and paste):

 

Dim strText As String 'Inneholder teksten du skrev.

 

Private Sub cmdSend_Click() 'Knappen du trykker for å sende teksten.

 

strText = Text1.Text 'Lagre tekst.

Text1.Text = "" 'Reset.

 

End Sub

 

 

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 'Detektere "Pil opp".

 

If KeyCode = 38 Then Text1.Text = strText 'Hente forige tekst.

 

End Sub

 

Private Sub CopyText() 'For å kopiere teksten.

 

Clipboard.Clear 'Tømme clipboard.

Clipboard.SetText List1.Text 'Kopiere tekst.

 

End Sub