📄 frmfull.frm
字号:
VERSION 5.00
Begin VB.Form frmFull
BorderStyle = 0 'None
ClientHeight = 5445
ClientLeft = 120
ClientTop = 120
ClientWidth = 5595
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
KeyPreview = -1 'True
LinkTopic = "frmMain"
LockControls = -1 'True
Moveable = 0 'False
ScaleHeight = 363
ScaleMode = 3 'Pixel
ScaleWidth = 373
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.Timer timerWatch
Enabled = 0 'False
Interval = 60000
Left = 60
Top = 165
End
Begin VB.Frame frameWatch
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 120
Left = 0
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 465
Begin VB.Label Watch
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "00:00"
ForeColor = &H00C0FFC0&
Height = 180
Left = -15
TabIndex = 2
Top = -45
Width = 480
End
End
Begin Thumb_DB.ucPicScroll Image_Full
Height = 3840
Left = 0
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 3840
_extentx = 6773
_extenty = 6773
appearance = 0
backcolor = 0
backcolor = 0
End
Begin VB.Menu Image_Full_Menu
Caption = "ImageFull"
Visible = 0 'False
Begin VB.Menu opFull
Caption = "&Play"
Index = 0
End
Begin VB.Menu opFull
Caption = "Pau&se"
Checked = -1 'True
Index = 1
End
Begin VB.Menu opFull
Caption = "-"
Index = 2
End
Begin VB.Menu opFull
Caption = "P&revious"
Index = 3
End
Begin VB.Menu opFull
Caption = "&Next"
Index = 4
End
Begin VB.Menu opFull
Caption = "-"
Index = 5
End
Begin VB.Menu opFull
Caption = "&First"
Index = 6
End
Begin VB.Menu opFull
Caption = "&Last"
Index = 7
End
Begin VB.Menu opFull
Caption = "-"
Index = 8
End
Begin VB.Menu opFull
Caption = "&Delay: 3 sec."
Index = 9
Begin VB.Menu opDelay
Caption = "1 sec."
Index = 0
End
Begin VB.Menu opDelay
Caption = "2 sec."
Index = 1
End
Begin VB.Menu opDelay
Caption = "3 sec."
Checked = -1 'True
Index = 2
End
Begin VB.Menu opDelay
Caption = "4 sec."
Index = 3
End
Begin VB.Menu opDelay
Caption = "5 sec."
Index = 4
End
Begin VB.Menu opDelay
Caption = "10 sec."
Index = 5
End
Begin VB.Menu opDelay
Caption = "30 sec."
Index = 6
End
Begin VB.Menu opDelay
Caption = "1 min."
Index = 7
End
End
Begin VB.Menu opFull
Caption = "-"
Index = 10
End
Begin VB.Menu opFull
Caption = "Zoom &in"
Index = 11
End
Begin VB.Menu opFull
Caption = "Zoom &out"
Index = 12
End
Begin VB.Menu opFull
Caption = "100%"
Checked = -1 'True
Index = 13
End
Begin VB.Menu opFull
Caption = "&Best fit"
Index = 14
End
Begin VB.Menu opFull
Caption = "-"
Index = 15
End
Begin VB.Menu opFull
Caption = "&Edit picture"
Index = 16
End
Begin VB.Menu opFull
Caption = "Relo&ad"
Index = 17
End
Begin VB.Menu opFull
Caption = "-"
Index = 18
End
Begin VB.Menu opFull
Caption = "Show &comments"
Index = 19
End
Begin VB.Menu opFull
Caption = "Show &watch"
Index = 20
End
Begin VB.Menu opFull
Caption = "Bac&kground color"
Index = 21
Begin VB.Menu opColor
Caption = "Black"
Checked = -1 'True
Index = 0
End
Begin VB.Menu opColor
Caption = "Blue"
Index = 1
End
Begin VB.Menu opColor
Caption = "Red"
Index = 2
End
Begin VB.Menu opColor
Caption = "Green"
Index = 3
End
End
Begin VB.Menu opFull
Caption = "-"
Index = 22
End
Begin VB.Menu opFull
Caption = "E&xit"
Index = 23
End
End
End
Attribute VB_Name = "frmFull"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ==================
' Thumb DB 1.5
' ==================
' Carles P.V. - 2001
' carles_pv@terra.es
' ==================
Option Explicit
Private Sub Form_Load()
'## Set default background color: black
opColor_Click 0
End Sub
Private Sub Form_Resize()
'## Resize control to form
Image_Full.Width = Me.ScaleWidth
Image_Full.Height = Me.ScaleHeight
End Sub
' =================================================================================
' Menu control
' =================================================================================
Private Sub Image_Full_DblClick()
opFull_Click (23) 'Exit
End Sub
Private Sub Image_Full_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu Image_Full_Menu
End Sub
Private Sub opFull_Click(Index As Integer)
Select Case Index
'## Play
Case 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -