Visual basic 6 form1 op voorgrond

[gebruiker241]

Hee
Ik zit nu al een jaartje dingen te maken met visual basic 6
Maar Ik wou graag weten:

Hoe maak je een programmatje hoe je op Control en delete drukt ( dan gebeurt er wat)

( Zo dus:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeydelete) Then
blabla
end if

)
Maar dan wat moet er komen te staan als ik wil:

Als je control drukt en delete drukt dat dan dit form blijft weer geven (dus als je bijv.: control alt delete doet dat je dan niks kan doen alleen op DIT form dus niets in taak beheer hoe moet dat dan :S weet iemand een code?.:thumb:

Alvast bedankt

 

[That Guy]

control alt delete doet dat je dan niks kan doen alleen op DIT form dus niets in taak beheer hoe moet dat dan

Dat kan niet, geloof ik, omdat taakbeheer via windows geregeld wordt. Ofwel, op het moment dat jij alt-ctrl-del rost, zal windows dit zien en taakbeheer starten. Dit kan je niet uitschakelen via jou prog, wat je bijvoorbeeld wel zou kunnen doen is dat je direct via wat API's de taskmanager-window weer sluit. Maar dit is erg irritant (voor de gebruiker) en erg lastig (voor jou)


:thumb:

 

[gebruiker241]

En kan het ook niet dan mijn form op de voor gront komt?

 

[That Guy]

je hebt geloof ik wel iets waarmee je je form altijd op de voorgrond kan zetten. Weet niet meer precies hoe, maar het kan wel.

:thumb:

 

[gebruiker241]

Weet iemand dan die code:thumb:
bedankt voor alles
Nu alleen de code

 

[albertw]

voor het indrukken van een toets, probeer eens object.KEYDOWN

het naar voeren brengen van een form:
in declaratie...
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

in programma...
Call SetWindowPos(TargetForm.hWnd, ZOrder, 0, 0, 0, 0, 3)
vul voor ZOrder in:
Topmost = -1
Top = 0
NoTopmost = -2
Bottom = 1

 

[gebruiker241]

ik snap je niet helemaal :S

 

[azb100]

Antwoord

gebruik dit meer eens: Form1.TopMost = True:thumb:

 

[gebruiker241]

ik heb nu dit:
Private Sub Command1_Click()
Form1.topmost = True
End Sub

enkomt error

 

[albertw]

niet helemaal goed:

Private Sub Command1_Click()
Call SetWindowPos(TargetForm.hWnd, 0, 0, 0, 0, 0, 3)
End Sub

alleen, als je op een knop kunt drukken, staat het form al voorop ....
hoogstens kun je dan een ander form voorop plaatsen.

 

[gebruiker241]

Werkt niet :S

 

[That Guy]

je moet wel de declaratie bovenaan zetten...

Helemaal bovenaan je formulier-code:

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

overgens is het wel handig als je de fout-code geeft.

 

[gebruiker241]

werkt niet hoor :S

 

[albertw]

goede morgen
zeer vreemd dat je het niet werkend krijgt.
kan ik de code van je zien zoals je die gebruikt?

 

[gebruiker241]

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Command1_Click()
Call SetWindowPos(TargetForm.hWnd, 0, 0, 0, 0, 0, 3)
End Sub

 

[albertw]

code is goed, maar als je nu eens de werkelijke naam van je form invult ipv 'targetform' ??

 

[gebruiker241]

Ik heb het nu in een timer:

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Private Sub Timer1_Timer()
Call SetWindowPos(Form1.hWnd, 0, 0, 0, 0, 0, 3)
End Sub


Er gebeurt niks
timer1 de interval is 5 seconden (5000)

 

[albertw]

dan weeet ik het ook niet meer.
om uit te proberen heb ik deze api-call ook in een timer verpakt, bij mij werkt het wèl.
kunt nog proberen de declaratie in een module te zetten..... ?!
dan moet je wel 'private' weglaten of vervangen door 'public'.

 

[gebruiker241]

Nja het blijft niet werken
Ik verzin wel wat anders ( als dat lukt )
Maarnog bedankt voor de hulp