Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Ohjelmointikysymykset: VB6: Muuntelua

Sivun loppuun

CoDeR [23.05.2004 12:07:54]

#

Mul ois tässä tämmlnen koodi:

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal lSw As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim ikkuna(6000) As Integer
Dim MaxHw As Integer

Sub LockComp()
   For i = 1 To MaxHw
       Z = ShowWindow(i, 0) 'piilotetaan ikkunat
       If Z <> 0 Then ikkuna(i) = 10 'asetetaan ikkunalle muistitagi jos se ei ole jo piilossa
   Next i
End Sub

Sub UnLockComp()
   For i = 1 To MaxHw
       If ikkuna(i) <> 0 Then ShowWindow i, 5 'käydään kaikki ikkunat läpi ja palautetaan ne näkyville
   Next i
End Sub

Private Sub Form_Load()
   MaxHw = 4000 'Pilotettavien ikkunoiden määrä
   Form1.Caption = "PAINAMALLA F5 PIILOTAT KAIKEN / PAINAMALLA F6 PALAUTAT KAIKEN NORMAALIKSI"
   Timer1.Interval = 100 'näppäin valvojan ajastin
   Timer1.Enabled = True 'näppäin valvoja päälle
End Sub

Private Sub Timer1_Timer()
   If GetAsyncKeyState(vbKeyF5) Then 'jos F5 painettu
       LockComp 'lukitse kone
   End If
   If GetAsyncKeyState(vbKeyF6) Then 'Jos F6 Painettu
       UnLockComp 'vapauta kone
   End If
End Sub

Mietinkin vaan että osasko joku muuttaa tota sillee et se menee heti ohjelman käynnistyessä lukkoon? formiinhan se tulee mutta... tai jos ton tekis niinku näppistä matkimalla.. tai en tiiä... ??????

hunajavohveli [23.05.2004 12:11:39]

#

No pistä tuo lukituskoodi(?) Form_Loadiin. Tajusinkohan nyt oikein...

CoDeR [23.05.2004 12:14:20]

#

No en oikeen tiedä ku tossahan on toi näppäinvalvontakin ni eiks sen koneen niinku pitäs saada ymmärrettyy et F5:sta painettiin. ?

tuomas [23.05.2004 12:19:31]

#

kirjoitat vain ton sanan lockcomp sinne formin loadiin.

hunajavohveli [23.05.2004 13:41:07]

#

Aivan niin, eli vaihdat siis vain tämän koodin nykyisen Form_Loadin tilalle.

Private Sub Form_Load()
MaxHw = 4000 'Pilotettavien ikkunoiden määrä
Form1.Caption = "PAINAMALLA F5 PIILOTAT KAIKEN / PAINAMALLA F6 PALAUTAT KAIKEN NORMAALIKSI"
Timer1.Interval = 100 'näppäin valvojan ajastin
Timer1.Enabled = True 'näppäin valvoja päälle
Call LockComp
End Sub

CoDeR [23.05.2004 16:01:08]

#

Siis meinaatko et siihen ei tarvii muuta ku ton formin?..
eipä taida toimii..

hunajavohveli [23.05.2004 16:22:38]

#

No tietenkin kaikki muutkin subit tarvitaan, mutta korvaat Form_Load-subin tuolla antamallani koodilla.

CoDeR [23.05.2004 16:33:11]

#

joo huomasin jo :D

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta