¡ÒÃá·Ã¡»ØèÁ¤ÓÊÑè§ ToolBar ã¹ ARViewer ¢Í§ Active Report 2.0

Option Explicit

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
    With ARViewSample
        .Zoom = 80   ' ¤èÒ % ·Õèãªé㹡ÒÃáÊ´§¼Åº¹ Active Report Viewer
        
        ' ·´Êͺ¡ÒÃá·Ã¡äÍà·Á (Insert) ä»·Õè index = 5
        ' ËÃ×͵ÑÇ·Õè 6 à¾ÃÒÐÇèÒÁѹàÃÔèÁµé¹¹Ñº¨Ò¡ 0 ¹èФÃѺ
        .ToolBar.Tools.Insert 5, "áÊ´§¡è͹¾ÔÁ¾ì" ' ã¹à¤Ã×èͧËÁÒ Double Quote "" Áѹ¤×Í Caption ¹èФÃѺ
        .ToolBar.Tools.Item(5).AddIcon LoadPicture(App.Path & "\Preview.ico")
        ' ËÃ×Í ¡Ó˹´¤èÒ ID (Identifier) ãËé¡Ñº Item ¹Õé à»ç¹¤èÒµÑÇàÅ¢¨Ó¹Ç¹àµçÁẺ Integer  ¹èФÃѺ
        ' àÃÒ¡Ó˹´àÍÒàͧ áµè¨ÐÁÕºÒ§¤èÒã¹ÃдѺËÅÑ¡ËÁ×è¹¢Öé¹ä» ¨Ðà»ç¹¤èÒ·ÕèʧǹàÍÒäÇéãªé§Ò¹¢Í§µÑÇÁѹàͧ¤ÃѺ
        ' ¡ç¡Ó˹´¤èÒµèÓæàÍÒäÇé¡çä´é ËÒ¡Áѹ«éÓ»ÃÐà´ÕëÂÇÁѹ¡ç¿éͧÍÍ¡ÁÒàͧáËÅÐ
        ' »ÃÐ⪹ìà¾×è͹Óä»ãªé·´ÊͺÇèÒ¼Ùéãªé§Ò¹à¢Ò (ËÃ×Íà¸Í) ¡´»ØèÁÍÐäÃä§ÅèФÃѺ ... ¾Õè¹éͧ
        .ToolBar.Tools(5).ID = 5
        
        
        .ToolBar.Tools.Insert (6), "Export Excel"
        .ToolBar.Tools.Item(6).AddIcon LoadPicture(App.Path & "\Excel.ico")
        ' ¡Ó˹´¤èÒ ID (Identifier) ãËé¡Ñº Item ¹Õé
        .ToolBar.Tools(6).ID = 6
        
        
        ' à¾ÔèÁ Item ·ÕèµÓá˹觷éÒÂÊØ´¢Í§¨Ó¹Ç¹ Item ·Ñé§ËÁ´·ÕèÁÕÍÂÙè
        .ToolBar.Tools.Add "µÑ駤èÒà¤Ã×èͧ¾ÔÁ¾ì"
        ' ËÒ¡ÍÂÒ¡ÃÙéÇèÒÁÕ Item ·Ñé§ËÁ´áÅéÇ¡ÕèµÑÇ ¡ç¹Ñº¨Ó¹Ç¹¢Í§ Item ´éÇ Count
        ' MsgBox .ToolBar.Tools.Count
        ' ÍÂèÒÅ×ÁÇèÒ¡ÒùѺ¤èÒ Index 㹤ÍÁ¾ÔÇàµÍÃì ÁÑ¡¨ÐàÃÔèÁµé¹·Õè¤èÒ 0 ¹èФÃѺ
        ' Åͧ´Ù¤ÓÊÑ觹Õéä´é MsgBox .ToolBar.Tools(0).Caption
        ' ãÊèäͤ͹ãËé¡ÐÁѹ«èÐ
        .ToolBar.Tools.Item(23).AddIcon LoadPicture(App.Path & "\printer.ico")
        .ToolBar.Tools(23).ID = 7
    End With
End Sub

' à˵ءÒóì·Õèà¡Ô´¢Ö鹵͹àÃÒ¤ÅÔê¡àÁÒÊìàÅ×Í¡¨Ò¡ ToolBar ·ÕèÍÂÙèã¹ ARViewer
Private Sub ARViewSample_ToolbarClick(ByVal Tool As DDActiveReportsViewer2Ctl.IDDTool)
    ' ¡ÒÃãªé§Ò¹ IDDTool Íѹ¹ÕéãËé´Ùà¾ÔèÁàµÔÁ¨Ò¡ Help ä´é¤ÃѺ

    ' ¡Ò÷´Êͺà§×è͹ä¢ä´é 2 Ẻ ¤×Í
    ' 1. ´éÇ Caption »ÃШӵÑǢͧ Item
    ' 2. ´éÇ ID ·ÕèàÃÒ¡Ó˹´ãËé¡Ñº Item áµèÅеÑÇàͧ

    ' ¡Ò÷´Êͺ´éÇ Caption
    Select Case Tool.Caption
        Case "áÊ´§¡è͹¾ÔÁ¾ì"
            MsgBox "¤Ø³¡´»ØèÁ áÊ´§¡è͹¾ÔÁ¾ì", vbOKOnly + vbInformation, "ÃÒ§ҹ"
        Case "Export Excel"
            MsgBox "¤Ø³¡´»ØèÁ Export Excel", vbOKOnly + vbInformation, "ÃÒ§ҹ"
        Case "µÑ駤èÒà¤Ã×èͧ¾ÔÁ¾ì"
            ' àÃÕ¡ãªé§Ò¹¿Ñ§¤ìªÑ蹡ÒõÑ駤èÒà¤Ã×èͧ¾ÔÁ¾ì ...
            ' ¡ç¤×Í AR Áѹä»àÃÕ¡ãªé API ·ÕèÁÕÍÂÙèã¹ "àÅ硹ÔèÁ - Microsoft" ¹Ñè¹àͧ
            ARViewSample.Printer.SetupDialog
    End Select
    
    ' ËÃ×Í ·´Êͺ´éǤèÒ ID (Identifier) ·ÕèàÃÒ¡Ó˹´
    Select Case Tool.ID
        Case 5
            MsgBox "¤Ø³¡´»ØèÁ áÊ´§¡è͹¾ÔÁ¾ì", vbOKOnly + vbInformation, "ÃÒ§ҹʶҹÐ"
        Case 6
            MsgBox "¤Ø³¡´»ØèÁ Export Excel", vbOKOnly + vbInformation, "ÃÒ§ҹʶҹÐ"
        Case 7
            MsgBox "¤Ø³¡´»ØèÁ µÑ駤èÒà¤Ã×èͧ¾ÔÁ¾ì", vbOKOnly + vbInformation, "ÃÒ§ҹʶҹÐ"
    End Select
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' ¨Ðãªé§Ò¹ä´éµéͧ¡Ó˹´¤Ø³ÊÁºÑµÔ¢Í§¿ÍÃìÁ KeyPreview = True ¡è͹¹èФÃѺ
    Select Case KeyCode
        Case vbKeyF1: MsgBox "No help now."
        Case vbKeyF10:
                    cmdExit_Click
   End Select
End Sub

Private Sub Form_Resize()
    fraData.Width = Me.ScaleWidth - 30
    fraData.Height = Me.ScaleHeight - fraCommand.Height
    ARViewSample.Move 15, 120, fraData.Width - 60, fraData.Height - 180
    fraCommand.Move 15, fraData.Top + fraData.Height, Me.ScaleWidth - 30
    cmdExit.Move fraCommand.Width - cmdExit.Width - 60
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    ' ¡ÒÃÊÃéÒ§ÃÒ§ҹÁÑ¡¨ÐÁÕä¿Åì Temporary à¡Ô´¢Öé¹ÁÒ à¾×èÍäÁèãËéà¡Ô´¤ÇÒÁáÃاÃѧã¹â¿Åà´ÍÃì
    ' àÃÒ¨Ö§µéͧÊÑè§Åºä¿ÅìàËÅèÒ¹Õé´éǤÓÊÑè§ Kill Í͡令ÃѺ ... ¾Õè¹éͧ
    If Dir$(App.Path & "\*.tmp") <> "" Then
        Kill App.Path & "\*.tmp"
    End If
    End
End Sub