pil op og knap går op

Hej.

Mener du ikke ned?

m.v.h.  Jørn

nej knappen skal bevæge sig ned af

Hej.

Jeg har forsøgt lidt med keypress event.  Det du ønsker tror jeg ikke er muligt.  I øvrigt undrer det mig, hvad du vil opnå???


Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyAscii = 38 Then Command1_Click
End Sub


Use KeyDown and KeyUp event procedures to handle any keystroke not recognized by KeyPress, such as function keys, editing keys, navigation keys, and any combinations of these with keyboard modifiers. Unlike the KeyDown and KeyUp events, KeyPress doesn't indicate the physical state of the keyboard; instead, it passes a character.

M.v.h.  Jørn

Hvad for en knap skal gå op - hvad mener du?

Vil du trykke på en piletask, og så skal en knap på din form bevæge sig op (Huh) ?

Hvis det er tilfælder (at du vil flytte en knap på din form ved at bruge piletasterne) kan du jo bruge

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyAscii = 38 Then
    Command1.Top = Command1.Top + X 'Angiv selv hvor meget den skal flyttes
  End If
End Sub

det kan også være en label den skal bare flytte sig når jeg trykker på en af piltasterne.... (eller måske musen)

Hej.

Når du anvender en tast på tastaturet opfanges ascii-koden af den kontrol på din form, der har focus.  Kun én kontrol ad gangen kan have focus!
Din idé med at et klik på en piltast skal få en kontrol til at bevæge sig lyder meget uklar.  Vil du lave en knap der driller ved at flytte sig, kan du anvende mousemove og dér flytte knappen væk fra musens position.
Jeg står imidlertid af spørgsmålet nu, det er ikke interessant.

M.v.h.  Jørn

kredefrapuls: Nu har du ønsket at få en knap til at gå op og ned, uden at forklare hvad du egentligt mener, og en label der skal flytte sig når du gør noget med musen - hmmmm? Det er umuligt at hjælpe med...

Skriv præcis hvad du vil - så skal du nok få et svar :o)

Hvis du vil flytte rundt med dine ting på formen mens du er i design mode skal du markere den kontrol du vil flytte med og holde CTRL nede mens du bruger piletasterne.

du kan bruge dette lille stykke kode

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyAscii = 38 Then
    Command1.Top = Command1.Top + X 'Angiv selv hvor meget den skal flyttes
  End If
End Sub