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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information مساعده حول كود ! YousefOkasha 3 47 17-06-18, 03:10 AM
آخر رد: elgokr
  احتاج رأيكم في رسائل sms hglogtd 20 405 10-06-18, 07:17 AM
آخر رد: hglogtd
  احتاج مساعدة في كود التعديل maram2423 5 106 08-06-18, 03:53 PM
آخر رد: elgokr
  احتاج مساعدتكم في كود الطباعة maram2423 0 37 05-06-18, 08:54 PM
آخر رد: maram2423
  [كود] التحكم بعناصر DataGrid vb.net Ahmed.noor 2 65 04-06-18, 10:07 PM
آخر رد: mrnooo2000
  احتاج كود يقوم بتقريب هذا الرقم 2.500 الي 5 farah112233 2 78 01-06-18, 06:25 AM
آخر رد: sendbad100
Thumbs Up مساعده برمجيه ipv.o 1 43 29-05-18, 06:08 PM
آخر رد: elgokr
  التحكم في نوع الخط فى نظام الباركود nabil.1710 5 154 23-05-18, 06:14 PM
آخر رد: nabil.1710
  احتاج مساعدتكم لتغيير رقم المكتب mram3242 3 84 22-05-18, 03:39 AM
آخر رد: elgokr
  لو سمحتو احتاج كود لتحويل mram3242 2 71 20-05-18, 02:28 AM
آخر رد: mram3242

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


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