📄 dlgobjectselection.frm
字号:
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 4
Left = 480
TabIndex = 6
Top = 4080
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 5
Left = 3360
TabIndex = 5
Top = 720
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 6
Left = 3360
TabIndex = 4
Top = 1560
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 7
Left = 3360
TabIndex = 3
Top = 2400
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 8
Left = 3360
TabIndex = 2
Top = 3240
Width = 1725
WordWrap = -1 'True
End
Begin VB.Label Label1
Height = 555
Index = 9
Left = 3360
TabIndex = 1
Top = 4080
Width = 1725
WordWrap = -1 'True
End
End
Attribute VB_Name = "dlgObjectSelection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
n = Val(tobj)
Option1(n).Value = True
If ttrain = "100" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验" '什么用?
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "牵引绕组a1x1+a3x3对地及其它"
Label1(2).Caption = "牵引绕组a2x2+a4x4对地及其它"
Label1(3).Caption = "辅助绕组对地及其它"
For i = 0 To 15
Label1(i + 4).Visible = False
Option1(i + 4).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "200" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1+a2x2+a3x3+a4x4对地及其它"
Label1(2).Caption = "(a1x1+a2x2)对(a4x4+a3x3)对地及其它"
Label1(3).Caption = "a5x5对地及其它"
Label1(4).Caption = "a6x6对地及其它"
For i = 0 To 14
Label1(i + 5).Visible = False
Option1(i + 5).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "300" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1+a2x2+a3x3+a4x4对地及其它"
Label1(2).Caption = "(a1x1+a2x2)(a4x4+a3x3)对地及其它"
Label1(3).Caption = "a5x5对地及其它"
Label1(4).Caption = "a6x6对地及其它"
For i = 0 To 14
Label1(i + 5).Visible = False
Option1(i + 5).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "400" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它(X端)"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a5x5+a6x6对地及其它"
Label1(4).Caption = "a7x7对地及其它"
Label1(5).Caption = "a8x8+a9x9对地及其它"
For i = 0 To 13
Label1(i + 6).Visible = False
Option1(i + 6).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "500" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它(X端)"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a5x5+a6x6对地及其它"
Label1(4).Caption = "a7x7对地及其它"
Label1(5).Caption = "a8x8+a9x9对地及其它"
For i = 0 To 13
Label1(i + 6).Visible = False
Option1(i + 6).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "600" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它(X端)"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a5x5+a6x6对地及其它"
Label1(4).Caption = "a7x7对地及其它"
Label1(5).Caption = "a8x8+a9x9对地及其它"
For i = 0 To 13
Label1(i + 6).Visible = False
Option1(i + 6).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "700" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它(X端)"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a5x5+a6x6对地及其它"
Label1(4).Caption = "a7x7对地及其它"
Label1(5).Caption = "a8x8+a9x9对地及其它"
For i = 0 To 13
Label1(i + 6).Visible = False
Option1(i + 6).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "800" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它(X端)"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a5x5+a6x6对地及其它"
Label1(4).Caption = "a7x7对地及其它"
Label1(5).Caption = "a8x8对地及其它"
Label1(6).Caption = "a9x9对地及其它"
For i = 0 To 12
Label1(i + 7).Visible = False
Option1(i + 7).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "900" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1；a3x3分别对地及其他"
Label1(2).Caption = "a2x2；a4x4分别对地及其他"
Label1(3).Caption = "a5x5对地及其他"
For i = 0 To 15
Label1(i + 4).Visible = False
Option1(i + 4).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "1000" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1；a2x2分别对地及其他"
Label1(2).Caption = "a3x3；a4x4分别对地及其他"
Label1(3).Caption = "a5x5对地及其它"
Label1(4).Caption = "a6x6对地及其它"
Label1(5).Caption = "a7x7对地及其它"
Label1(6).Caption = "a8x8对地及其它"
For i = 0 To 12
Label1(i + 7).Visible = False
Option1(i + 7).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "1100" And ttype = "8" Then
dlgManualTest.Caption = "外施工频耐压试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1；a3x3对地及其它"
Label1(2).Caption = "a2x2；a4x4对地及其它"
Label1(3).Caption = "a5x5对地及其它"
Label1(4).Caption = "a6x6对地及其它"
Label1(5).Caption = "a7x7对地及其它"
For i = 0 To 13
Label1(i + 6).Visible = False
Option1(i + 6).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "100" And ttype = "3" Then
dlgManualTest.Caption = "变比测试"
Label1(0).Caption = "AX/a1x1+ a3x3"
Label1(1).Caption = "AX/a2x2+ a4x4"
Label1(2).Caption = "AX/a1x1"
Label1(3).Caption = "AX/a3c3"
Label1(4).Caption = "AX/a3b3"
Label1(5).Caption = "AX/a3x3"
Label1(6).Caption = "AX/a2x2"
Label1(7).Caption = "AX/a4b4"
Label1(8).Caption = "AX/a4x4"
Label1(9).Caption = "AX/a6b6"
Label1(10).Caption = "AX/a6x6"
For i = 0 To 8
Label1(i + 11).Visible = False
Option1(i + 11).Visible = False
Next i
dlgObjectSelection.Width = 9057
ElseIf ttrain = "100" And ttype = "5" Then
dlgManualTest.Caption = "直流电阻试验"
Label1(0).Caption = "AX之间直流电阻"
Label1(1).Caption = "a1x1之间直流电阻"
Label1(2).Caption = "a3c3之间直流电阻"
Label1(3).Caption = "a3b3之间直流电阻"
Label1(4).Caption = "a3x3之间直流电阻"
Label1(5).Caption = "a2x2之间直流电阻"
Label1(6).Caption = "a4b4之间直流电阻"
Label1(7).Caption = "a4x4之间直流电阻"
Label1(8).Caption = "a6b6之间直流电阻"
Label1(9).Caption = "a6x6之间直流电阻"
For i = 0 To 9
Label1(i + 10).Visible = False
Option1(i + 10).Visible = False
Next i
dlgObjectSelection.Width = 6038
ElseIf ttrain = "100" And ttype = "6" Then
dlgManualTest.Caption = "绝缘电阻试验"
Label1(0).Caption = "AX对地及其它"
Label1(1).Caption = "a1x1+a3x3对地及其它"
Label1(2).Caption = "a2x2+a4x4对地及其它"
Label1(3).Caption = "a6x6对地及其它"
For i = 0 To 15
Label1(i + 4).Visible = False
Option1(i + 4).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "100" And ttype = "10" Then
Label1(0).Caption = "耐压前"
Label1(1).Caption = "耐压后"
For i = 0 To 17
Label1(i + 2).Visible = False
Option1(i + 2).Visible = False
Next i
dlgObjectSelection.Width = 3019
ElseIf ttrain = "100" And ttype = "13" Then
Label1(0).Caption = "x1-a1, a1-x3, x2-a4, a2-x4"
Label1(1).Caption = "x1-a3, a1-b3, x2-a4, a2-b4"
Label1(2).Caption = "a1-x1, a2-x2"
Label1(3).Caption = "a3-x3, a4-x4"
Label1(4).Caption = "x1-a3, a1-x3"
Label1(5).Caption = "x1-a3, a1-b3"
Label1(6).Caption = "a1-x1,"
Label1(7).Caption = "x2-a4, a2-x4"
Label1(8).Caption = "x2-a4, a2-b4"
Label1(9).Caption = "a2-x2"
Label1(10).Caption = "a3-c3"
Label1(11).Caption = "a6-x6"
For i = 0 To 7
Label1(i + 12).Visible = False
Option1(i + 12).Visible = False
Next i
dlgObjectSelection.Width = 9057
ElseIf ttrain = "100" And ttype = "15" Then
Label1(0).Caption = "试验电流100A时的误差"
Label1(1).Caption = "试验电流200A时的误差"
Label1(2).Caption = "试验电流240A时的误差"
For i = 0 To 16
Label1(i + 3).Visible = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -