HACK TÜRKS


 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Mouse & Keybord Kilitleme

Aşağa gitmek 
YazarMesaj
Admin [TEZOoO]
ADMİN - YÖNETİCİ
ADMİN - YÖNETİCİ
Admin [TEZOoO]

Mesaj Sayısı : 380
NERDEN : İstanbul/Sefaköy
Kayıt tarihi : 14/09/08

Kişi sayfası
Rep Puanı:
50000000/0  (50000000/0)

MesajKonu: Mouse & Keybord Kilitleme   Salı Eyl. 16, 2008 11:30 am

GEREKENLER
1 adet label
1 adet buton
1 adet timer nesnesi formumuza ekleyelim.

Const API_FALSE = 0&
Const API_TRUE = 1&

Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub



Private Sub Timer1_Timer()
Static Cnt As Long

Cnt = Cnt + 1
If Cnt > 10 Then
Cnt = 0
Timer1.Enabled = False
Call BlockInput(API_FALSE)
Label1.Caption = ""
Else
Label1.Caption = "Eski Hal İcin Kalan Zaman: " _
& Format$(CStr((10 - Cnt)) / 2, "0.0")
End If
End Sub

_________________

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://hackturks.yetkin-forum.com
 
Mouse & Keybord Kilitleme
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
HACK TÜRKS :: Programlama :: Visual Basic-
Buraya geçin:  
SİTENİ REKLAM VER (BEDAVA)
HACK TÜRKS
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle
Siteni Ekle

BÜYÜK YERİMİZ..!!!
forum kurmak | © phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog.com