تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الى عباقرة البرمجة جملة select غير عادية الحسين احمد 8 124 21-02-18, 02:45 AM
آخر رد: الحسين احمد
  سلام عليكم احتاج كود يقوم بطباعة Report Viewer 1 بشكل اتوماتيكي مجرد فتح الفورم mohamedgadain61 0 0 16-02-18, 04:30 PM
آخر رد: mohamedgadain61
  احتاج تركيب كود hglogtd 2 0 12-02-18, 07:31 PM
آخر رد: hglogtd
  هل يمكن التحكم في البرنامج من خلال صفحة html anes 33 6 09-02-18, 05:59 PM
آخر رد: anes
  احتاج مساعدة عادل ادعبدالله 2 0 03-02-18, 04:03 PM
آخر رد: عادل ادعبدالله
Sad [VB.NET] مساعده من فضلكم جاسم عوط 0 0 03-02-18, 01:29 PM
آخر رد: جاسم عوط
  احتاج تعديل هذا الاستعلام nooralcown 0 0 01-02-18, 12:09 AM
آخر رد: nooralcown
  التحكم بعدد الاعداد العشرية بعد الفاصلة الميساني 25 279 28-01-18, 11:54 PM
آخر رد: الميساني
  التحكم بالخصائص الموجودة بـPropertyGrid Basil Abdallah 9 83 26-01-18, 02:45 PM
آخر رد: Basil Abdallah
  جملة select بها مشكلة atefkhalf2004 5 65 23-01-18, 04:49 PM
آخر رد: عبدالله الدوسري

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


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