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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation مساعده في مشروع تخرجي مهم جدا RFY 0 65 25-11-18, 11:18 PM
آخر رد: RFY
  كيف اجعل الترتيب في امر select بواسطة متغير تناسيم 4 89 25-11-18, 02:23 PM
آخر رد: حريف برمجة
  [VB.NET] استفسار :- بخصوص select top 10 dubai.eig 2 89 13-11-18, 09:11 AM
آخر رد: dubai.eig
Heart احتاج كود بحث ahmadpal 2 88 08-11-18, 08:42 PM
آخر رد: ahmadpal
  مساعده فى البحث عن اسم بدلاله رقم vb2010 4 169 28-10-18, 11:22 PM
آخر رد: elgokr
  مساعده بتصميم قاعدة البيانات Rabeea Qbaha 6 235 26-10-18, 04:33 PM
آخر رد: عبد العزيز البسكري
  مساعده فى التريفيو vb2010 2 121 24-10-18, 08:12 PM
آخر رد: vb2010
Star التحكم في الحاسوب عن طريق الأوامر الصوتية YousefOkasha 0 81 21-10-18, 11:22 PM
آخر رد: YousefOkasha
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 101 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 154 16-10-18, 04:55 PM
آخر رد: mohamedgadain61

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


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