تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] احتاج مساعده شرح لجملة التحكم Select Case
#1
Exclamation 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Dim ItId As Long

    On Error Resume Next
    Select Case Button.Key
    
    'It's Very Important!!!!!
    'Button Name Are Case Sensitive...
    
    
    Case "file"
    
     MsgBox "not updated", 32, "info"
     
    Case "Delete"
    
     MsgBox "not updated", 32, "info"
     
    Case "search"
       
    MsgBox "not updated", 32, "info"
    
    Case "print"
    
    MsgBox "not updated", 32, "info"
    
    
        Case "save"
            
            cmdSave_Click
            
        
            
        Case "add"
           
             cmdAdd_Click
             
            
        Case "refresh"
        
             cmdRefresh_Click
             
            
            
Case "exit"

           MsgBox "ãÚ ÇáÓáÇãÉ", 32, "Exit"
                   End
                        
    End Select
    
End Sub

Private Sub tvwAM_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
        Dim x As Integer
        x = MsgBox("Are you sure that you want to delete employee: (" & rs.Fields("name") & ") from the database?", _
               vbQuestion + vbYesNo, "Delete a Contact!")
        If x = vbYes Then
            rs.Delete
            MsgBox "Record has been deleted!", vbOKOnly + vbInformation, "Delete Successfull!"
            rs.Requery
            Call AddNodes
        End If
    End If
End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 85 20-09-17, 04:00 PM
آخر رد: alsouf
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 36 19-09-17, 03:33 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 367 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 79 12-09-17, 02:05 AM
آخر رد: hglogtd
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 124 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  [VB.NET] مساعده لو سمحتم امل عوض 1 88 26-08-17, 11:10 PM
آخر رد: Amir_alzubidy
  مساعده فى التحزيم من الخبراء نبيل كونكت 2 132 26-08-17, 07:33 PM
آخر رد: امل عوض
  [كود] احتاج الى تعديل :( MeDo Ly 2 101 25-08-17, 11:41 PM
آخر رد: أبو نوره
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 137 22-08-17, 11:50 PM
آخر رد: أبو نوره
Smile [VB.NET] ممكن مساعده امل 3 107 22-08-17, 04:44 PM
آخر رد: امل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم