/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
F1
Fra : Jens


Dato : 16-04-01 02:29

Er der en nem måde at få F1 til at have en function ???

Eller er jeg nød til at gå ind i alle knapper og text felter og skrive


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 112 Then MsgBox "Du trykket F1 !"

End Sub

Er der ikke noget hotkey eller noget ... og hvordan virker det ???

Mvh
Jens
til@infojens.dk



 
 
Jens (16-04-2001)
Kommentar
Fra : Jens


Dato : 16-04-01 03:07

Fandt selv en løsning


' I et Modul
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
As Integer


Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyF1) Then
MsgBox "It works :)"
End If

End Sub

Mvh
Jens
til@infojens.dk





Morten Fast (16-04-2001)
Kommentar
Fra : Morten Fast


Dato : 16-04-01 07:43


"Jens" <til@infojens.dk> wrote in message
news:9bdhsf$2au$1@news.inet.tele.dk...

> Eller er jeg nød til at gå ind i alle knapper og
> text felter og skrive

Du kan sætte KeyPreview = True på din form.

Så kan du nøjes med at lave koden i formens KeyDown/KeyPress/KeyUp.

--
Vh Morten



Jens (16-04-2001)
Kommentar
Fra : Jens


Dato : 16-04-01 15:08

Meget bedere løsning

Kanon sejt.....tak Morten





Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste