enter i text

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

Således:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0 'Undgå beep
    MsgBox "Text1 Indeholdte: " + Text1.Text, vbOKOnly, "Text1.Text"
  End If
End Sub

Mvh,

Thomas Nielsen

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

<pre>

if VK_return then
begin
//gør et eller andet
end;

</pre>

Denne kode skrives så i formens eller komponentens OnKeyDown

MVH.

Computerfreack.

http://www.friserverplads.dk/computerfreack[Redigeret d. 16/09-02 14:38:28 af computerfreak]

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

<pre>
dim Svar as integer

Svar=msgbox ("Tekst",vbyesno+vbquestion,"titel")
'vbyesno laver to knapper ja og nej

if Svar=vbyes then
'her skrive du den kode den skal udføre
'else
' her skrive du den kode der skal udføres hvis der skal ske noget ved et nej. husk og fjerne tegne " ' " før else
end if
</pre>

mvh.
Thomas Christensen
[Redigeret d. 16/09-02 15:25:20 af Thomas Christensen]

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

UP'S[Redigeret d. 16/09-02 14:37:46 af computerfreak]

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

UPS
[Redigeret d. 16/09-02 14:38:07 af computerfreak]

Hvordan kan jeg gøre sådan at jeg trykker enter i en textbox og så gør den et eller andet som msgbox (text1.text)

/ETA

Mener du:

private sub command1_click()

Dim indtast as string

indtast = text1.text

msgbox indtast

end sub

Hvis den skal reagere på [enter] skal du tilføje følgende....

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
Command1_Click
'Kan også være kommando som ovenstående.....
End Select
End Sub


Håber dette hjælper!

Mvh

Christian