Hej!
jag ska skriva in text in textruta, när jag trycker på enter så ska texten flyttas från textrutan till en listruta, med koden vbKeyReturn(=13), men hur ska koden se ut och var ska den ligga?
/martin

i KeyUp i den textbox du skriver in texten i

If inparameterKeyAscii = vbenterkey then
'förflytta text till listbox
lista1.additem(text1.text)
else
'inte göra något alls?
End if

/Emma

Hej
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then List1.AddItem Text1.Text 'vbKeyReturn
End Sub

mvh
Sven

Borde inte detta vara lättast?

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
List1.AddItem Text1.Text
End If
End Sub

Hej
Varför skulle det vara lättare ???????????????
Till att börja med har du skrivit fler programrader
och ??? varför skall man använda KeyDown när KeyAscii finns ??
Du förstår inte , så du gör som du brukar !

Tror och tycker och undrar över påståendet.
Sven