【VB开源代码栏目提醒】:网学会员VB开源代码为您提供frmFull.frm参考,解决您在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 = 405
Begin VB.Label Watch
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "00:00"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFC0&
Height = 195
Left = 0
TabIndex = 2
Top = -45
Width = 420
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
BackColor = 0
BackColor = 0
Picture = "frmFull.frx":0000
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
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
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").Va