📄 frmoptions.frm
字号:
TabIndex = 32
Top = 2280
Width = 1575
End
Begin VB.Label Label1
Caption = "Y方向网格点距:"
Height = 255
Index = 1
Left = 360
TabIndex = 17
Top = 1035
Width = 1335
End
Begin VB.Label Label1
Caption = "X方向网格点距:"
Height = 255
Index = 0
Left = 360
TabIndex = 16
Top = 555
Width = 1335
End
End
Begin VB.Frame Frame1
Caption = "梁情况"
Height = 3615
Index = 1
Left = -71040
TabIndex = 11
Top = 720
Width = 3495
End
Begin VB.Frame Frame1
Caption = "柱情况"
Height = 4815
Index = 0
Left = -74760
TabIndex = 10
Top = 720
Width = 3495
Begin MSComctlLib.Toolbar Toolbar1
Height = 1290
Left = 480
TabIndex = 15
Top = 360
Width = 2535
_ExtentX = 4471
_ExtentY = 2275
ButtonWidth = 8758
ButtonHeight = 2275
AllowCustomize = 0 'False
Style = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zhuqing1"
ImageIndex = 1
Style = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zhuqing2"
ImageIndex = 2
Style = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zhuqing3"
ImageIndex = 3
Style = 2
EndProperty
EndProperty
End
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 3
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 5
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample4
Caption = "示例 4"
Height = 1785
Left = 2100
TabIndex = 8
Top = 840
Width = 2055
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 2
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 4
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample3
Caption = "示例 3"
Height = 1785
Left = 1545
TabIndex = 7
Top = 675
Width = 2055
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 1
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 3
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample2
Height = 3705
Left = 0
TabIndex = 6
Top = 0
Width = 5655
End
End
Begin VB.CommandButton cmdApply
Caption = "应用"
Height = 375
Left = 6600
TabIndex = 2
Top = 6360
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 5400
TabIndex = 1
Top = 6360
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 375
Left = 4200
TabIndex = 0
Top = 6360
Width = 1095
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 2040
Top = 6240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdApply_Click()
Foptions = 1
Gridx = Combo1(0).Text
Gridy = Combo1(1).Text
Gridxxxx = Combo1(2).Text
Gridyyyy = Combo1(3).Text
If Check2.Value = Checked Then Gridture = 1
If Check2.Value = Unchecked Then Gridture = 0
If Option1(0) = True Then Wanggelx = 0
If Option1(1) = True Then Wanggelx = 1
Wanggezhj = Text1.Text
Bcolor = Picture1.BackColor
Call tuxing1.Form_Load
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Foptions = 1
Gridx = Combo1(0).Text
Gridy = Combo1(1).Text
Gridxxxx = Combo1(2).Text
Gridyyyy = Combo1(3).Text
If Check2.Value = Checked Then Gridture = 1
If Check2.Value = Unchecked Then Gridture = 0
If Option1(0) = True Then Wanggelx = 0
If Option1(1) = True Then Wanggelx = 1
Wanggezhj = Text1.Text
Bcolor = Picture1.BackColor
Call tuxing1.Form_Load
Unload Me
End Sub
Public Sub Combo1_change(Index As Integer)
If Val(Combo1(0).Text) > 0 Then Combo1(0).Text = Combo1(0).Text
If Val(Combo1(1).Text) > 0 Then Combo1(1).Text = Combo1(1).Text
tuxing1.Command.Text = Str(Gridx) + Str(Gridy)
End Sub
Public Sub Form_Load()
If Foptions = 1 Then
If Gridture = 1 Then Check2.Value = Checked
If Gridture = 0 Then Check2.Value = Unchecked
If Wanggelx = 0 Then Option1(0) = True: Option1(1) = False: Text1.Enabled = False: Label4.Enabled = False
If Wanggelx = 1 Then Option1(1) = True: Option1(0) = False: Text1.Enabled = True: Label4.Enabled = True
Text1.Text = Wanggezhj
Picture1.BackColor = Bcolor
End If
frmOptions.Combo1(0).Text = Gridx
frmOptions.Combo1(1).Text = Gridy
frmOptions.Combo1(2).Text = Gridxxxx
frmOptions.Combo1(3).Text = Gridyyyy
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Wanggelx = 0: Option1(0) = True: Option1(1) = False: Text1.Enabled = False: Label4.Enabled = False
Case 1
Wanggelx = 1: Option1(1) = True: Option1(0) = False: Text1.Enabled = True: Label4.Enabled = True
End Select
End Sub
Private Sub Picture1_Click()
CommonDialog1.ShowColor
Picture1.BackColor = CommonDialog1.Color
End Sub
Private Sub Text1_Change()
Wanggezhj = Text1.Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -