anoniem Geplaatst: 19 mei 2004 Delen Geplaatst: 19 mei 2004 Het zal wel simpel wezen maar ik kan het niet vinden. als in mijn programma bijvoorbeeld enter wordt gedrukt moet hij een actie ondernemen. Das op zich niet zo moeilijk, maar hoe regel ik dat ik niet een aparte sub routine hoef aan te roepen? Dus niet zo: [code:1:9af67bc246] Private Sub toets_Keypress(KeyAscii As Integer) If KeyAscii = 13 Then Bereken End If End Sub[/code:1:9af67bc246] Quote Link naar reactie
anoniem Geplaatst: 19 mei 2004 Auteur Delen Geplaatst: 19 mei 2004 Denk niet dat het anders kan hoor. Quote Link naar reactie
anoniem Geplaatst: 20 mei 2004 Auteur Delen Geplaatst: 20 mei 2004 [quote:03d3df16db="Wiep Corbier"]Denk niet dat het anders kan hoor.[/quote:03d3df16db] Ok, dan heb ik het zo geprobeerd: [code:1:03d3df16db] Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 116 Then ophoging = ophoging + 1 Text1.text = empty End If End Sub [/code:1:03d3df16db] Punt waar ik dan last van krijg is dat hij pas naar End Sub de letter t in het tekstvlak neerzet. Text1.text = empty zou dan in principe na de End Sub moeten komen. Maar is er niet een manier om dat binnen deze routine te ondervangen? Quote Link naar reactie
anoniem Geplaatst: 20 mei 2004 Auteur Delen Geplaatst: 20 mei 2004 Dat was erg simpel, kwam er achter dat ik dat op dezelfde manier kon ondervangen als die beep die hij geeft in een textvlak. Dit heb ik dus weer opgelost door de Keyascii op 0 te zetten. Quote Link naar reactie
anoniem Geplaatst: 20 mei 2004 Auteur Delen Geplaatst: 20 mei 2004 je kunt sowiso form1.refresh (of hoe dat moet heten, je form iig) doen in een proceduure; dan wordt je form opnieuw geplaatst met gewijzigde dingen... text1.refresh zou ook kunnen werken, ben ik niet 100% zeker van :) Quote Link naar reactie
anoniem Geplaatst: 21 mei 2004 Auteur Delen Geplaatst: 21 mei 2004 Hallo Diniz, [code:1:e6aa2fdc6b]function CheckKey(KeyCode) ' deze functie geeft 1 als de toets die jij bewaakt ' wordt gebruikt. calldll #user32, "GetAsyncKeyState", _ KeyCode as ulong, _ CheckKey as boolean end function if CheckKey(_VK_UP) then gosub [UP] [/code:1:e6aa2fdc6b] De functie GetAsyncKeyState staat in USER32.DLL Abcott Quote Link naar reactie
anoniem Geplaatst: 21 mei 2004 Auteur Delen Geplaatst: 21 mei 2004 Ik zal het ff proberen, bedankt voor t mee denken :P . Quote Link naar reactie
anoniem Geplaatst: 21 mei 2004 Auteur Delen Geplaatst: 21 mei 2004 [quote:446eb1add8="diniz"]Ik zal het ff proberen, bedankt voor t mee denken :P .[/quote:446eb1add8] Hmmm, Let op, ik heb een stukje Liberty Basic getoond. Jij moet de VB versie maken. D.w.z. dat je de declaraties nog moet plaatsen. En waarschijnlijk moet de USER32.DLL nog even apart openen. Abcott Quote Link naar reactie
anoniem Geplaatst: 21 mei 2004 Auteur Delen Geplaatst: 21 mei 2004 ik heb zelf een keer een keylogger gemaakt, hier is de belangrijkste code: [code:1:b0cc81e998] Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Timer1_Timer() txt = "" For i% = 1 To 255 key = GetAsyncKeyState(i%) If key = -32768 Then txt = Chr(i%) 'dit is je tekst end if next i% end sub [/code:1:b0cc81e998] Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen