frmfull.frm

几个不错的VB例子

                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("Play"))
                frmMain.Commands.Buttons("Play").Value = tbrPressed
                
                opFull(0).Checked = True
                opFull(1).Checked = False
                
    '## Pause
        Case 1
                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("Pause"))
                frmMain.Commands.Buttons("Pause").Value = tbrPressed
                
                opFull(0).Checked = False
                opFull(1).Checked = True
                
    '## Previous
        Case 3
                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("Previous"))
                
    '## Next
        Case 4
                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("Next"))
    
    '## First
        Case 6
                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("First"))
    
    '## Last
        Case 7
                Call frmMain.Commands_ButtonClick(frmMain.Commands.Buttons("Last"))
                
    '## Zoom in
        Case 11
                Image_Full.ZoomIn

                If Image_Full.ZoomPercent = 100 Then
                    opFull(13).Checked = True
                Else
                    opFull(13).Checked = False
                End If
                
                opFull(14).Checked = False
    
    '## Zoom out
        Case 12
                Image_Full.ZoomOut
                
                If Image_Full.ZoomPercent = 100 Then
                    opFull(13).Checked = True
                Else
                    opFull(13).Checked = False
                End If
                
                opFull(14).Checked = False
        
    '## 100%
        Case 13
                Image_Full.ZoomReal
                
                opFull(13).Checked = True
                opFull(14).Checked = False
                
    '## Best Fit
        Case 14
                opFull(14).Checked = Not opFull(14).Checked
                
                If opFull(14).Checked = True Then
                    Image_Full.BestFit
                    opFull(13).Checked = False
                Else
                    Image_Full.ZoomReal
                    opFull(13).Checked = True
                End If
        
    '## Edit picture
        Case 16
                frmMain.OpThumb_Click (1)
                
    '## Reload
        Case 17
                tmpPath = ""
                frmMain.Show_Picture
                
    '## Comments
        Case 19
                If opFull(19).Caption = "Show &comments" Then
                   opFull(19).Caption = "Hide &comments"
                   frmComments.Show , Me
                   Image_Full.SetFocus
                Else
                   opFull(19).Caption = "Show &comments"
                   frmComments.Hide
                End If
    
    '## Watch
        Case 20
                If opFull(20).Caption = "Show &watch" Then
                   opFull(20).Caption = "Hide &watch"
                   Watch = Format(Now, "hh:mm")
                   frameWatch.Visible = True
                   timerWatch.Enabled = True
                Else
                   opFull(20).Caption = "Show &watch"
                   frameWatch.Visible = False
                   timerWatch.Enabled = False
                End If
        
    '## Exit
        Case 23
                Me.Hide
                
                '## "Disable" Treeview:
                '## Back to frmMain by DblClick causes node selection (???)
                frmMain.TreeView.Visible = False
                frmMain.timerEnableTreeview.Enabled = True
                
                '## Show preview picture
                If tmpPathPreview <> tmpPath Then frmMain.Show_Picture
                
                '## Update comments form state
                If opFull(19).Caption = "Show &comments" Then
                    frmMain.chkComments = 0
                    frmComments.Hide
                Else
                    frmMain.chkComments = 1
                    frmComments.Show , frmMain
                    frmMain.SetFocus
                End If
                   
    End Select
    
    '## Enable/disable Zoon In
    If Image_Full.ZoomPercent = 200 Then
        opFull(11).Enabled = False
    Else
        opFull(11).Enabled = True
    End If
    
    '## Enable/disable Zoon Out
    If Image_Full.ZoomPercent = 5 Then
        opFull(12).Enabled = False
    Else
        opFull(12).Enabled = True
    End If

End Sub

Private Sub opDelay_Click(Index As Integer)
    
    '## Uncheck all
    For I = 0 To opDelay.Count - 1
        opDelay(I).Checked = False
    Next I
    
    '## Check actual selection
    opDelay(Index).Checked = True
    opFull(9).Caption = "Delay: " & Choose(Index + 1, "1 sec.", _
                                                      "2 sec.", _
                                                      "3 sec.", _
                                                      "4 sec.", _
                                                      "5 sec.", _
                                                     "10 sec.", _
                                                     "30 sec.", _
                                                      "1 min.")
    '## Set new delay
    With frmMain.timerShowPictures
        .Enabled = False
        .Interval = Choose(Index + 1, 1000, 2000, 3000, 4000, 5000, 10000, 30000, 60000)
        If opFull(0).Checked Then .Enabled = True
    End With
    
End Sub

Private Sub opColor_Click(Index As Integer)

    '## Uncheck all
    For I = 0 To opColor.Count - 1
        opColor(I).Checked = False
    Next I
    
    '## Check actual selection
    opColor(Index).Checked = True
    
    '## Set new background color
    Me.BackColor = Choose(Index + 1, vbBlack, vbBlue, vbRed, &HC000&)
    Image_Full.BackColor = Me.BackColor
    frameWatch.BackColor = Me.BackColor
    
    '## Refresh picture
    If opFull(14).Checked Then
        Image_Full.BestFit
    Else
        Image_Full.ZoomPrevious
    End If
    
End Sub

' =================================================================================
' Key control
' =================================================================================

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    Select Case KeyCode
    
    '## PopupMenu ([Alt])
        Case 18
            PopupMenu Image_Full_Menu
            
    '## Play/Stop ([Space])
        Case 32
            If opFull(0).Checked = False Then
                opFull_Click (0) 'Play
            Else
                opFull_Click (1) 'Pause
            End If
                
    '## Previous ([Page up])
        Case 33
            opFull_Click (3)
                
    '## Next ([Page down])
        Case 34
            opFull_Click (4)
                
    '## First ([Start])
        Case 36
            opFull_Click (6)
                
    '## Last ([End])
        Case 35
            opFull_Click (7)
                
    '## Zoom in ([+])
        Case 107
            opFull_Click (11)
                
    '## Zoom out ([-])
        Case 109
            opFull_Click (12)
                
    '## 100 % ([R])
        Case 82
            opFull_Click (13)
                
    '## Best Fit ([B])
        Case 66
            opFull_Click (14)
                
    '## Show/Hide comments ([C])
        Case 67
            opFull_Click (19)
                
    '## Show/Hide watch ([W])
        Case 87
            opFull_Click (20)
                
    '## Exit ([Return])
        Case 13
            opFull_Click (23)
            
    End Select

End Sub

' =================================================================================
' Picture Timing
' =================================================================================

Private Sub timerWatch_Timer()

    Watch = Format(Now, "hh:mm")
    
End Sub