hvordan laver man en genvejstast

Det kan lade sige gøre men kan ikke anbefales.

Måden du gør det på er at sætte din

form.keypreview = true

Så vil din form modtage alle tastetryk før dine kontroller og du kan så i din form.keypress event validere tastetrykket.

f.x.

dim strKey as string
strKey=chr$(keyascii)
if ucase$(strKey) = "X" then
  btnX.value = True
end if

Men som sagt kan det ikke anbefales da fx. en tekstbox jo også kan indeholde et x. Så vil x'et i tekstboksen trigge din knap istedet for at skrive et x i boksen

//vbcoder

:o(

Hvad var der i vejen med svaret? siden du afviser det ?

//vbcoder

fejl!

Du omdøber en (selvlavet) knap på værkstøjslinjen, så x indgår i navnet og sætter & foran (fx  e&xponer)
Knappen vises med x understreget og den bagvedliggende makro kan aktiveres ved at taste Alt + x.
Hvis du mener standard-knapper, tror jeg ikke du kan omdøbe dem, men du kan lave en makro der gør det samme og så give den "x-navnet".

der er ikke nogle fejl i det som vbcoder har skrevet, men du har nok ikke sat det rigtig sammen....

'------------------- Form1 -------------------
Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
Dim strKey As String
  strKey = Chr$(KeyAscii)
  If UCase$(strKey) = "X" Then
    MsgBox "Du har trykked på: X eller x"
      Else
    MsgBox "Du har trykked på: " & strKey
  End If
End Sub

Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
'------------------- Form1 -------------------

t0b1a5 : Hvis du forsøger at formulere dig lidt mere præcist end "fejl" får du nok bedre hjælp :o)

Der findes en anden måde at gøre det på ....

Mange programmer har menupunkter som svarer til knapper på formen - altså at man kan bruge enten en menu eller en knap for at opnå samme resultat.

I menu editoren for formen kan du associere genvejstaster f.x. Ctrl+F1 eller Shift+X m.fl.

Lad os antage du laver et menupunkt der hedder E&xit med navnet mnuExit og associerer Ctrl+X med dette menupunkt.

Du har også en knap der hedder btnExit.

Du kan så i click_event for din mnuExit sætte btnExit=true.

Når du kører din form vil et tryk på ctrl+x trigge menupunktet exit og derved trigge din click_event for knappen.

Måske denne er mere anvendelig ;0)

//vbcoder

vbcoder: Smart ide! Og hvis t0b1a5 ikke vil have vist menuen, kan han bare sætte den til .Visible=False

jeps - det er set før

//vbcoder

følgende linje

Du kan så i click_event for din mnuExit sætte btnExit=true.

skulle have været

Du kan så i click_event for din mnuExit sætte btnExit.value=true

for nu at være helt præcis ;o)

Nu kan jeg ikke se hvad dit problem er....

Du ved jo godt hvordan du skal gøre..