📄 frmview.frm
字号:
Index = 3
Left = 210
TabIndex = 16
Top = 2070
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "颜色："
Height = 180
Index = 2
Left = 210
TabIndex = 15
Top = 1710
Width = 780
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 930
Index = 1
Left = 1140
TabIndex = 14
Top = 4140
Width = 2625
WordWrap = -1 'True
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 0
Left = 1140
TabIndex = 13
Top = 1305
Width = 2640
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "描述："
Height = 180
Index = 1
Left = 210
TabIndex = 12
Top = 4140
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "名称："
Height = 180
Index = 0
Left = 210
TabIndex = 11
Top = 1320
Width = 765
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "样品信息"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 435
Left = 1125
TabIndex = 10
Top = 330
Width = 1875
End
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6900
Width = 9795
_ExtentX = 17277
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 5
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3881
MinWidth = 3881
Text = "正在进行样品浏览 ..."
TextSave = "正在进行样品浏览 ..."
Key = ""
Object.Tag = ""
Object.ToolTipText = "状态"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Object.ToolTipText = "当前记录号"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Object.ToolTipText = "总共记录"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Key = ""
Object.Tag = ""
Object.ToolTipText = "操作员"
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
AutoSize = 1
Object.Width = 4630
Key = ""
Object.Tag = ""
Object.ToolTipText = "公司名称"
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ToolImage
Left = 90
Top = 585
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 7
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":0C58
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":0F72
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":128C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmView.frx":15A6
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sx As Long, Sy As Long, Mx As Long, My As Long, LB As Boolean
Dim PictureName(9) As String, CycleT As Boolean
Dim DB As Database, EF As Recordset, HR As Boolean, RN As Long, AN As Long
Public CycleP As Boolean
Private Sub AutoTimer_Timer()
If CycleT = True Then
RN = 0
EF.MoveFirst
CycleT = False
End If
If RN = AN And CycleP = False Then
Dim ConRN As Integer
ConRN = MsgBox("浏览完成,如果要继续浏览,请按(Y)。", vbYesNo + vbExclamation, "浏览结束")
If ConRN = 7 Then
'结束浏览
AutoTimer.Enabled = False
V_Toolbar.Buttons.Item(1).ToolTipText = "自动浏览"
V_Toolbar.Buttons.Item(1).Image = ToolImage.ListImages.Item(1).Index
If RN > 1 Then
V_Toolbar.Buttons.Item(2).Enabled = True
End If
If RN <> AN Then
V_Toolbar.Buttons.Item(3).Enabled = True
End If
V_Toolbar.Buttons.Item(4).Enabled = True
V_Toolbar.Buttons.Item(5).Enabled = True
V_Toolbar.Buttons.Item(7).Enabled = True
CycleP = False
CycleT = False
Else
RN = 0
EF.MoveFirst
End If
End If
RN = RN + 1
Me.MousePointer = 11
Check2.Value = 0
If EF.EOF Then
For x = 0 To 9
PictureName(x) = ""
Info(x) = ""
Next
RN = 0
EF.MoveFirst
Else
On Error Resume Next
If RN <> 1 Then
EF.MoveNext
End If
If EF.EOF Then
EF.MoveLast
RN = AN
If CycleP = True Then
CycleT = True
End If
Else
For x = 0 To 9
PictureName(x) = ""
Info(x) = ""
On Error Resume Next
If Not IsNull(EF.Fields(x).Value) Then
PictureName(x) = EF.Fields(x).Value
Info(x) = PictureName(x)
End If
Next
CycleT = False
DisplayPicture.Picture = LoadPicture(PictureName(9))
EF.MoveNext
If EF.EOF Then
EF.MoveLast
RN = AN
If CycleP = True Then
CycleT = True
End If
Else
EF.MovePrevious
CycleT = False
End If
End If
End If
Me.MousePointer = 0
StatusBar1.Panels.Item(2).Text = "当前记录：" & Str(RN)
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DisplayPicture.MouseIcon = LoadPicture(Browser + "Pmove.Cur")
DisplayPicture.Stretch = False
HScroll1.Value = 0
VScroll1.Value = 0
HScroll1.Max = DisplayPicture.Width - Picture1.Width + 280
VScroll1.Max = DisplayPicture.Height - Picture1.Height + 280
VScroll1.Visible = Picture1.Height < DisplayPicture.Height
HScroll1.Visible = Picture1.Width < DisplayPicture.Width
If HScroll1.Visible Or VScroll1.Visible Then
Command3.Visible = True
Else
Command3.Visible = False
End If
Else
DisplayPicture.Height = 5880
DisplayPicture.Width = 5295
DisplayPicture.Stretch = True
DisplayPicture.Move 0, 0
VScroll1.Visible = False
HScroll1.Visible = False
Command3.Visible = False
DisplayPicture.MouseIcon = LoadPicture()
End If
End Sub
Private Sub Command3_Click()
If HScroll1.Value < HScroll1.Max - 100 Then
HScroll1.Value = HScroll1.Value + 100
End If
If VScroll1.Value < VScroll1.Max - 100 Then
VScroll1.Value = VScroll1.Value + 100
End If
End Sub
Private Sub DisplayPicture_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
LB = True
Sx = x
Sy = y
If Check2.Value = 1 Then
DisplayPicture.MouseIcon = LoadPicture(Browser + "Smove.Cur")
Else
DisplayPicture.MouseIcon = LoadPicture()
End If
End Sub
Private Sub DisplayPicture_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If HScroll1.Visible = True Or VScroll1.Visible = True Then
If LB = True Then
Mx = x
My = y
If HScroll1.Value + (Mx - Sx) / 50 <= HScroll1.Max And HScroll1.Value + (Mx - Sx) / 50 > 0 Then
HScroll1.Value = HScroll1.Value + (Mx - Sx) / 50
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -