تقييم الموضوع :
  • 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] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  التحكم في برامج youssef1 3 78 20-05-17, 03:05 PM
آخر رد: Amir_alzubidy
  طريقة طباعة فاتورة و التحكم بشكلها Basil Abdallah 1 66 19-05-17, 12:34 PM
آخر رد: Adrees
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 65 16-05-17, 12:29 AM
آخر رد: alma2
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 284 11-05-17, 11:54 AM
آخر رد: khaled12345
  [VB.NET] مساعده بسيطه - مثال TreeView dubai.eig 7 179 03-05-17, 08:48 AM
آخر رد: dubai.eig
  كيفية التحكم في تنسيق عمود خلايا واحد في الداتا جريد تناسيم 3 103 30-04-17, 06:31 PM
آخر رد: alma_fandi
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 143 22-04-17, 06:16 PM
آخر رد: عبـدالله
  احتاج كود انتقل فيه من textbox1 الى textbox2 بواسطه كود وليس tab contrlo mohammed.gadain61 6 160 22-04-17, 12:55 AM
آخر رد: A-R
  مساعده في حذف واضافة وتحديث قاعدة بيانات بالفيجوال a_abdullah 6 206 21-04-17, 05:44 PM
آخر رد: a_abdullah

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


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