İlk Şunu Soylemek İstiyorum Proje Benim Yapımım DEĞİLDİR...
İlk Once Projemize 3 Adet Forum Ve 1 Adet Modul Ekleyelim,
Şimdi Her Foruma 2 Adet Timmer Ve 1 Adet Picture Box Ekliyoruz,
Picture Box Ekliceniz İcon Ben Vereyim İsteyenler Başka İcon'da Kullanabilir.
http://rapidshare.com/files/293372020/ae_con.zip.html
İcon Nasıl Eklenileceni Biliyordur Herkes Heralde
(Picture Box Uzerine 1 Defa Tıklayıp " Properties " Picture 'e Tıklayıp İcon Ekleyebiliriz...)İlk Olarak Modulu Acıyoruz Ve Aşağıdaki Kodları Module Kopyalıyoruz;
Modul:
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As _
NOTIFYICONDATA) As Long
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 NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
'Make your own constant, e.g.:
Public Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDOWN = &H204
Şimdi Forum1:
Timmer 1: Enabled : True
InTerval : 200
Timmer 2 : Enabled : True
InTerval : 100
Bunları Yaptıkdan Sonra Foruma Şu Kodları Ekleyeceğiz:
Form1 :
Private Sub Form_Load()
Form2.Show
Form3.Show
App.TaskVisible = False
End Sub
Public Sub CreateIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Picture1.Picture
Tic.szTip = Chr$(0)
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub DeleteIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub
Private Sub Timer2_Timer()
If Me.Visible = True Then
Me.Hide
DeleteIcon
Else
Me.Show
Me.SetFocus
CreateIcon
End If
End Sub
Private Sub Timer1_Timer()
DeleteIcon
Me.Hide
Randomize
Me.Left = CStr(Rand(0, Screen.Width))
Me.Top = CStr(Rand(0, Screen.Height))
Me.Show
Me.SetFocus
CreateIcon
End Sub
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Şimdi Form2 Gelelim:
Aynı Şekilde Timmerler
Timmer 1: Enabled : True
InTerval : 200
Timmer 2 : Enabled : True
InTerval : 100
Forum 2 Kodları :
Public Sub CreateIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Picture1.Picture
Tic.szTip = Chr$(0)
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub DeleteIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub
Private Sub Timer2_Timer()
If Me.Visible = True Then
Me.Hide
DeleteIcon
Else
Me.Show
Me.SetFocus
CreateIcon
End If
End Sub
Private Sub Timer1_Timer()
DeleteIcon
Me.Hide
Randomize
Me.Left = CStr(Rand(0, Screen.Width))
Me.Top = CStr(Rand(0, Screen.Height))
Me.Show
Me.SetFocus
CreateIcon
End Sub
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Son Olarak Forum3:
Timmer Yine Aynı Şekilde
Timmer 1: Enabled : True
InTerval : 200
Timmer 2 : Enabled : True
InTerval : 100
Forum3 Kodları :
Public Sub CreateIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Picture1.Picture
Tic.szTip = Chr$(0)
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub DeleteIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
DeleteIcon
Me.Hide
Randomize
Me.Left = CStr(Rand(0, Screen.Width))
Me.Top = CStr(Rand(0, Screen.Height))
Me.Show
Me.SetFocus
CreateIcon
End Sub
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub Timer2_Timer()
If Me.Visible = True Then
Me.Hide
DeleteIcon
Else
Me.Show
Me.SetFocus
CreateIcon
End If
End Sub
PHP Code:
[CODE][CODE]
Evet Arkadaşlar Yazdıkları Mı Sırası İle Okuyup Yaparsanız Herkesin Yapabileceği Eğlenceli Bir Proje
Yapamayanlar Olursa Ozelden Veya Burdan Yardımcı Olmaya Calışıcam.
İyi Forumlar...
__________________