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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 114 18-09-18, 11:28 AM
آخر رد: elgokr
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 123 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  [VB.NET] مساعده عاجله alshandodi 2 99 10-09-18, 06:19 PM
آخر رد: alshandodi
  احتاج شرح بسيط medomshakl20 3 95 26-08-18, 10:57 PM
آخر رد: elgokr
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 11 283 20-08-18, 10:27 PM
آخر رد: elgokr
  مساعده في كود التعديل فراس محي 7 198 09-08-18, 05:18 PM
آخر رد: elgokr
  احتاج كود التحقق من صن محمل على ويب راوزر bidaya 1 83 09-08-18, 04:12 AM
آخر رد: elgokr
  [VB.NET] احتاج كود بسيط medomshakl20 7 212 08-08-18, 10:40 PM
آخر رد: elgokr
  مساعده بخصوص طباعه داتا قريد فراس محي 4 166 01-08-18, 11:28 AM
آخر رد: فراس محي
Music التحكم في أصوت الجهاز YousefOkasha 2 138 23-07-18, 11:57 PM
آخر رد: YousefOkasha

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


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