RSS

Saatin Yanında Simge Oluşturalım(System Traya ikon ekleme)

17 Nis

Bu dersimizde herkesin çok işine yarayacak bir uygulamadan söz edelim.System Tray Yani görev çubuğunda saatin yanında programımızın saklanması.Bir çok kişinin işine yaracağını düşünüyorum teşekkür için KPSS yi kazanmamı dilemeniz yeterli😀..
GEçelim kodlarımıza api tanımlamalarımızı ben yapıyorum size sadece form bölümünü anlatacam şimdi aşağıdaki kodları formun boş bir yerine Form_Load Kısmına Değil yapıştıralım.

Option Explicit
Private Type NOTIFYICONDATA
cbboyutu As Long
hWnd As Long
uld As Long
iconumuz As Long
gerimesaj As Long
gorunenikon As Long
sanalkurs As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Dim a As Long

Evet bunları yapıştırdıktan sonra gelelim sizi ilgilendiren aşağı kısım yukardaki kodlardan hemen sonra bunları yazın PictureBox nesnesi eklemeyi unutmayın

Private Sub Form_Load()
t.cbboyutu = Len(t)
t.hWnd = Picture1.hWnd
t.uld = 1&
t.iconumuz = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.gerimesaj = WM_MOUSEMOVE
t.gorunenikon = Me.Icon
t.sanalkurs = "SaNaLKuRS.NeT İnan YILMAZ" & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Me.Hide
App.TaskVisible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell_NotifyIcon NIM_DELETE, t
End Sub




Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
MsgBox ("Farenin Sol tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştırın")

Case WM_RBUTTONDOWN:
MsgBox ("Farenin Sağ tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız  o kodu yapıştırın")

End Select
rec = False
End If
End Sub

orda Sanalkurs.net olan kısmı kendinize göre değiştirin..
Farenin sol ve sağ tuşuna tıkladığında ben mesaj ile uyarı vermişim siz ne olmasını istiyorsanız onu yazın .Örneğin sol tuşuna basıldığında Me.Show yaparak formu gösterin sağ tuşuna menü koyabilirsiniz
Kolay Gelsin!…

 
Yorum yapın

Yazan: 17 Nisan 2011 in Genel

 

Etiketler: , , , ,

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

 
%d blogcu bunu beğendi: