Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Gökhan KILIÇ-Recep TÜRK
 
AnasayfaKapıTakvimGaleriSSSKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Leman Sam-Kıyamam Sana
Çarş. Mart 17, 2010 5:48 pm tarafından BTA

» Leman Sam-Rüzgar
Çarş. Mart 17, 2010 5:47 pm tarafından BTA

» Komik Videolar 3
Çarş. Mart 17, 2010 5:44 pm tarafından BTA

» Komik Videolar 2
Çarş. Mart 17, 2010 5:43 pm tarafından BTA

» Komik Videolar 1
Çarş. Mart 17, 2010 5:41 pm tarafından BTA

» Leman Sam - Anladım
Salı Mart 09, 2010 6:32 pm tarafından BTA

» Alışveriş Merkezinde Kız Kavgası
Ptsi Mart 08, 2010 11:35 am tarafından BTA

» Canı Sıkılan Anket Çözmeye
Cuma Mart 05, 2010 12:29 am tarafından BTA

» Samsung B3410W Ch@t
Perş. Mart 04, 2010 11:34 pm tarafından BTA

Tarıyıcı
 Kapı
 Indeks
 Üye Listesi
 Profil
 SSS
 Arama
Forumlar
Ortaklar
bedava forum

Paylaş | 
 

 Gün İçinde Bilgisayarınızı Kullanırken Kaç Tıklama Yapıtığınız Merak Ediyor Musunuz?

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
BTA
Admin
avatar

Mesaj Sayısı : 244
Points : 732
Reputation : 0
Kayıt tarihi : 28/02/10
Yaş : 25
Nerden Nerden : TOKAT/Reşadiye

MesajKonu: Gün İçinde Bilgisayarınızı Kullanırken Kaç Tıklama Yapıtığınız Merak Ediyor Musunuz?   Perş. Mart 04, 2010 12:54 pm

Gün İçinde Bilgisayarınızı Kullanırken Kaç Tıklama Yapıtığınız Merak Ediyor Musunuz?

Forumunuza 2 adet Label ve 1 adet Buton ekleyin.
"LabelSolDeger" ve "LabelSagDeger" olarak iki labelinizi, "CmdSifirla" olarak ta butonunuzu isimlendirin.

'*********** Module yapıştırılacak alan **************
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Const VK_TAB = &H9
Public Const VK_F1 = &H70
Public Const VK_F10 = &H79
Public Const VK_F11 = &H7A
Public Const VK_F2 = &H71
Public Const VK_F7 = &H76
Public Const VK_F8 = &H77
Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean



'********Forma yapıştırılacak alan*****
Dim SayL, SayR As Long
Dim nid As NOTIFYICONDATA

Private Sub CmdSifirla_Click()
SayL = 0
SayR = 0
LabelSolDeger = SayL
LabelSagDeger = SayR
Me.Caption = "TıkSay " & Time & "' den beri"
End Sub

Private Sub Form_Load()
CmdSifirla = True
End Sub

Private Sub MnuExit_Click()
End
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then
SayL = SayL + 1
LabelSolDeger = SayL
ElseIf GetAsyncKeyState(VK_RBUTTON) Then
SayR = SayR + 1
LabelSagDeger = SayR
End If

End Sub

Sub minimize_to_tray()
Me.Hide
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim msg As Long
Dim sFilter As String

msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
PopupMenu Mnu
Case WM_RBUTTONDBLCLK
End Select

End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
minimize_to_tray
End Sub
Sayfa başına dön Aşağa gitmek
http://resadiye-eml.yetkinforum.biz
 
Gün İçinde Bilgisayarınızı Kullanırken Kaç Tıklama Yapıtığınız Merak Ediyor Musunuz?
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» küçük bilgisayar oyunları
» En iyi sistem bakım programları
» AviSub 2.2
» Google Site İçi Arama Kodu !
» Fısıldama Özelliğini Nasıl Kullanabilirim?

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı :: Programlama :: Visual Basic Dilinde Hazır Programlar-
Buraya geçin: