User controls? Jamen

Run up spørgsmål:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  MsgBox KeyCode
  '37 = venstre
  '38 = op
  '39 = højer
  '40 = ned
End Sub


Virker ikke på min form1. Hvorfor?

det virker fint på min?

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  MsgBox KeyCode
End Sub

Den skriver 37 for venstre, 38 for op, 39 for højre og 40 for ned...

du skal være sikker på at der ikke er andre ting i din form1 der er markerede... fx hvis du har en button på den, virker det ikke...

Trykker jeg på mine piltaster, markerer den blot de forskellige knapper i min user control

og til det andet kan du bare sætte en funktion ind i din UserControl.. fx

Public Sub SetTekst(strTekst as String)
  label1.Caption = strTekst
End Sub

og så på din knap:

Private Sub Command1_Click()
  UserControl1.SetTekst("din tekst")
End Sub

:) jamen så mangler jeg en løsning hvor man godt må ha' knapper på sin form.

.. .det andet holder da ikke ;)

Jeg gennem tester lige dit andet svar senere på dagen :). Pænt smadret efter en lang nat.

Det er lidt skidt stil at stille nye spørgsmål i samme tråd. Ellers bør man i hvert fald øge pointene.
Men hellere holde spørgsmålene adskildt ved at oprette ny tråd. Man skal nok få sit svar alligevel...

mit andet svar holder da heller ikk... beklager... sover vist for meget... jeg har prøvet, men kan ikke finde ud af det... er vist ikke den helt seriøse vb programmer mere... =S beklager