📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form 图片查看
BorderStyle = 1 'Fixed Single
Caption = "FEM计算结果查看"
ClientHeight = 9045
ClientLeft = 45
ClientTop = 330
ClientWidth = 11010
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9045
ScaleWidth = 11010
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 9015
Left = -120
TabIndex = 1
Top = 0
Width = 11085
_ExtentX = 19553
_ExtentY = 15901
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "FEM计算结果图片显示"
TabPicture(0) = "frmMain.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame4"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "cmdPre"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmdNext"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "cmdFirst"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "cmdLast"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "framShowPhotoPath"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmdExit_0"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmdfd"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "cmdsx"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).ControlCount= 9
TabCaption(1) = "FEM计算结果图片管理"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "cmdExit_1"
Tab(1).Control(1)= "Frame3"
Tab(1).Control(2)= "cmdDelete"
Tab(1).Control(3)= "Frame1"
Tab(1).Control(4)= "cmdAdd"
Tab(1).Control(5)= "Frame2"
Tab(1).Control(6)= "CommonDialog1"
Tab(1).ControlCount= 7
Begin VB.CommandButton cmdsx
Caption = "缩小"
Height = 375
Left = 9840
TabIndex = 19
Top = 7020
Width = 975
End
Begin VB.CommandButton cmdfd
Caption = "放大"
Height = 375
Left = 9840
TabIndex = 18
Top = 6000
Width = 975
End
Begin VB.CommandButton cmdExit_0
Caption = "结束"
Height = 375
Left = 9840
TabIndex = 17
Top = 8040
Width = 975
End
Begin VB.CommandButton cmdExit_1
Caption = "结束"
Height = 375
Left = -66000
TabIndex = 16
Top = 4320
Width = 1095
End
Begin VB.Frame framShowPhotoPath
Caption = "第 张（共 张）"
Height = 855
Left = 240
TabIndex = 14
Top = 7920
Width = 9375
Begin VB.Label lblShowPhotoPath
ForeColor = &H000000FF&
Height = 495
Left = 360
TabIndex = 15
Top = 240
Width = 5895
End
End
Begin VB.CommandButton cmdLast
Caption = "最后一张"
Height = 375
Left = 9840
TabIndex = 13
Top = 3360
Width = 975
End
Begin VB.CommandButton cmdFirst
Caption = "第一张"
Height = 375
Left = 9840
TabIndex = 12
Top = 480
Width = 975
End
Begin VB.CommandButton cmdNext
Caption = "下一张"
Height = 375
Left = 9840
TabIndex = 11
Top = 2400
Width = 975
End
Begin VB.CommandButton cmdPre
Caption = "上一张"
Height = 375
Left = 9840
TabIndex = 10
Top = 1440
Width = 975
End
Begin VB.Frame Frame4
Caption = "有限元计算结果图片显示"
Height = 7335
Left = 240
TabIndex = 9
Top = 360
Width = 9375
Begin VB.Image imgShowPhoto
Height = 6855
Left = 120
Stretch = -1 'True
Top = 240
Width = 9015
End
End
Begin VB.Frame Frame3
Caption = "图片预览"
Height = 1455
Left = -66120
TabIndex = 8
Top = 2160
Width = 1215
Begin VB.Image imgYulanPhoto
Height = 1095
Left = 120
Stretch = -1 'True
Top = 240
Width = 975
End
End
Begin VB.CommandButton cmdDelete
Caption = "删 除"
Height = 375
Left = -66000
TabIndex = 7
Top = 1320
Width = 1095
End
Begin VB.Frame Frame1
Caption = "所有图片"
Height = 3675
Left = -72480
TabIndex = 5
Top = 2400
Width = 4815
Begin VB.ListBox lstAllPhotos
Height = 3300
ItemData = "frmMain.frx":0038
Left = 120
List = "frmMain.frx":003A
TabIndex = 6
Top = 240
Width = 4575
End
End
Begin VB.CommandButton cmdAdd
Caption = "添 加"
Height = 375
Left = -66000
TabIndex = 4
Top = 720
Width = 1095
End
Begin VB.Frame Frame2
Caption = "对应图片文件"
Height = 1095
Left = -72600
TabIndex = 2
Top = 7080
Width = 6135
Begin VB.Label lblPhotoPath
ForeColor = &H000000FF&
Height = 780
Left = 120
TabIndex = 3
Top = 240
Width = 5850
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = -71160
Top = 5520
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 375
Left = 8280
TabIndex = 0
Top = 8040
Width = 1215
End
End
Attribute VB_Name = "图片查看"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim FileName As String '照片文件名称
Dim PhotoName As String '照片名称
Dim Photos() As PhotoType '定义一自定义类型PhotoType类型的动态数组，用来存储所有添加到像册中的照片信息
Dim PhotoCount As Integer '照片张数
Dim PhotoFile As String '存放像册内照片信息的文件名
Dim CurrentRecord As PhotoType '照片信息
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -