أيمن الإبراهيم كتب:اهلا وسهلا بكم في منتدى مصر التقني               
----------------------
جلبت اليكم اليوم سؤال جديد

كيف يمكنني اضافة كودين الى نفس الفئة مثلا   كودين الى form
وكل كود  مختلف عن الاخر



---------------
وشكرا على المساعدة

الكود:

Private Sub Form_Load()
Label2.Caption = 0
LoadDataIntoFile 101, App.Path & "\file.bat"
LoadDataIntoFile 102, App.Path & "\file2.bat"
End Sub

الكود:


Private Sub Form_Load()
       Me.Show
       Me.Refresh
       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
        .szTip = "Your ToolTip" & vbNullChar
       End With
       Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_Resize()
      If Me.WindowState = vbMinimized Then Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)
       Shell_NotifyIcon NIM_DELETE, nid
End Sub

الكود:

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Me.CurrentX
Y = Me.CurrentY
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

أيمن الإبراهيم كتب:مشكور جدا على الاجابة ولكن انا اريد وضع اكثر من كود   اذا تلاحظ بالاكواد السابقة كلها يجب كتابتها في حدث ذاته load   فكيف يمكنني كتابتها كلها في فورم

الكود:

Private Sub Form_Load()
Label2.Caption = 0
LoadDataIntoFile 101, App.Path & "\file.bat"
LoadDataIntoFile 102, App.Path & "\file2.bat"
End Sub

الكود:

Private Sub Form_Load()
      Me.Show
      Me.Refresh
      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
        .szTip = "Your ToolTip" & vbNullChar
      End With
      Shell_NotifyIcon NIM_ADD, nid
End Sub

الكود:

Private Sub Form_Resize()
      If Me.WindowState = vbMinimized Then Me.Hide
End Sub


الكود:

Private Sub Form_Unload(Cancel As Integer)
      Shell_NotifyIcon NIM_DELETE, nid
End Sub

الكود:

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

الكود:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Me.CurrentX
Y = Me.CurrentY
End Sub

الكود:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

الكود:


Private Sub Form_Load()

End Sub



الكود:


Private Sub Form_Load()
 

Label2.Caption = 0
LoadDataIntoFile 101, App.Path & "\file.bat"
LoadDataIntoFile 102, App.Path & "\file2.bat"


Me.Show
      Me.Refresh
      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
        .szTip = "Your ToolTip" & vbNullChar
      End With
      Shell_NotifyIcon NIM_ADD, nid


  Me.AutoRedraw = True


End Sub