Help ActiveX Pagrindinių lenta ..

[smartsarath2003]

Hai,
Can anyone help me ActiveX valdymo pagrindai.Bandau sukurti ActiveX automatizavimo programavimo programinė įranga.Ar galima sukurti apie klavišų paspaudimus, ty klavišus ALT F, downarrow ir įveskite sukuriant C funkcija arba pasinaudojant esama funkcija.Ar įmanoma tai padaryti?Man pavyko atidaryti savo programavimo įranga, paskambinę. Exe failą.Čia aš bandau automatizuoti bendras programavimo prodedure tiesiog vykdančioji kodas modulis.Can anyone help me įgyvendinti kai kurie klaidingai raktų lenta smūgių

Ačiū

 

[valcarni]

Yes it is ..but I don't think it's activeX?
Anyways tai ką aš naudoju savo žaidimą I've made Lands of Crom
I'll apkrova iki VB6 ir gausite jums kodą.

Asmeninis Pripažinti Pareigos GetAsyncKeyState Lib "User32" _
(ByVal vKey Kaip KeyCodeConstants) As Long
Asmeninis Pareigos KeyDown (ByVal vKey Kaip KeyCodeConstants) _
As Boolean
KeyDown = GetAsyncKeyState (vKey) O & H8000
End Function

Private Sub Timer1_Timer ()
Jei KeyDown (vbKeyN) Tada Form1.NewGame
Jei KeyDown (vbKeyS) Tada Form1.Story
Jei KeyDown (vbKeyI) Tada Form1.Instructions
Jei KeyDown (vbKeyC) Tada Form1.Credits
Jei KeyDown (vbKeyE) Tada Form1.Register
Jei KeyDown (vbKeyL) Tada Form1.LoadGame
Jei KeyDown (vbKeyH) Tada Form1.High
Jei KeyDown (vbKeyR) Tada Form1.ResumePlay
Jei KeyDown (vbKeyV) Tada Form1.Version
Jei KeyDown (vbKeyQ) Tada Form1.QuitGame
End Sub
Sub QuitGame ()
Form1.Hide
Form1.Timer1.Interval = 0
Form3.Show
End Sub
Private Sub Command1_Click ()
Form1.QuitGame
End Sub
Sub ResumePlay ()
Jei Form13.Text17 = 1 Tada Form1.Timer1.Interval = 0
Jei Form13.Text17 = 1 Tada Form2.Timer2.Interval = 80
Remas Jei Form30.Text35 = 1 then if Form30.Text33 = 0 THEN Form9.OLE5.DoVerb
Remas Form30.Text33 = 1
Jei Form13.Text17 = 1 Tada Form1.Hide
Jei Form13.Text17 = 1 Tada Form2.Show
Remas Jei Form13.Text17 = 0 THEN Form1.Hide
Remas Jei Form13.Text17 = 0 THEN Form5.Show
End Sub

anyways tikiuosi, galite suprasti, kad

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Šypsotis" border="0" />

You gotta kaip susieti laikmatis klaviatūros paimti ką pasakyti ..tačiau jis pasireiškia ne laiku kaip ir norma ...tiesiog kartais ir paspauskite klavišą ilgiau nei 1ms

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Šypsotis" border="0" />

Tai štai kodėl aš tai 80 ir 0 yra turning it off.

Jeigu norite būti gražūs ir dovanoti kai kuriuos dalykus, būčiau labai dėkingas, ir tikiuosi, kad tai, ką norite.

ir prisiminti "Lands of Crom"

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Šypsotis" border="0" />