?? formsetup.frm
字號:
VERSION 5.00
Begin VB.Form FormSetup
BorderStyle = 3 'Fixed Dialog
Caption = "數據通道設置"
ClientHeight = 3360
ClientLeft = 45
ClientTop = 330
ClientWidth = 2895
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3360
ScaleWidth = 2895
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton CmdUseMoren
Caption = "使用系統默認節點與域"
Height = 375
Left = 120
TabIndex = 7
Top = 120
Width = 2655
End
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 240
TabIndex = 6
Top = 2880
Width = 855
End
Begin VB.CommandButton CmdOk
Caption = "確定"
Default = -1 'True
Height = 375
Left = 1800
TabIndex = 5
Top = 2880
Width = 855
End
Begin VB.Frame Frame1
Height = 2175
Left = 120
TabIndex = 8
Top = 600
Width = 2655
Begin VB.TextBox TxtInfo
Height = 270
Left = 960
TabIndex = 0
Top = 320
Width = 1575
End
Begin VB.CheckBox ChkUse
Height = 255
Left = 960
TabIndex = 4
Top = 1800
Width = 255
End
Begin VB.TextBox TxtLand
Height = 270
Left = 960
TabIndex = 3
Top = 1395
Width = 1575
End
Begin VB.TextBox TxtDot
Height = 270
Left = 960
TabIndex = 2
Top = 1035
Width = 1575
End
Begin VB.TextBox TxtNode
Height = 270
Left = 960
TabIndex = 1
Top = 675
Width = 1575
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "說明:"
Height = 255
Left = 240
TabIndex = 13
Top = 360
Width = 615
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "掃描:"
Height = 255
Left = 240
TabIndex = 12
Top = 1800
Width = 615
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "域:"
Height = 255
Left = 240
TabIndex = 11
Top = 1440
Width = 615
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "點名:"
Height = 255
Left = 240
TabIndex = 10
Top = 1080
Width = 615
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "節點:"
Height = 255
Left = 240
TabIndex = 9
Top = 720
Width = 615
End
End
End
Attribute VB_Name = "FormSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isUse As Boolean
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdOk_Click()
If Trim(TxtNode) = "" Or Trim(TxtDot) = "" Or Trim(TxtLand) = "" Then
MsgBox "節點,點,域一個都不能空,請重新填寫!": Exit Sub
End If
sDotInfo(iCurrentDot, 1) = TxtNode & ":" & TxtDot & "." & TxtLand
sDotInfo(iCurrentDot, 2) = TxtInfo.Text
isUseDot(iCurrentDot) = IIf(ChkUse.Value = 1, True, False)
Call FormMain.SaveSetup
Call FormMain.SaveNodeToDb
If isUse = False And isUseDot(iCurrentDot) = True Then
Call FormMain.ConnDDE(iCurrentDot)
ElseIf isUse = True And isUseDot(iCurrentDot) = False Then
Call FormMain.ConnDDE(iCurrentDot, "Close")
End If
Unload Me
End Sub
Private Sub CmdUseMoren_Click()
TxtNode.Text = sNode
TxtLand.Text = sLand
End Sub
Private Sub Form_Load()
Dim sTemp1() As String
Dim sTemp2() As String
Dim sTemp3() As String
Me.Caption = CStr(iCurrentDot) & "號數據點相關信息"
If Trim(sDotInfo(iCurrentDot, 1)) <> "" Then
sTemp1 = Split(sDotInfo(iCurrentDot, 1), ":", -1)
sTemp2 = Split(sDotInfo(iCurrentDot, 1), ".", -1)
sTemp3 = Split(sTemp2(0), ":", -1)
TxtInfo.Text = sDotInfo(iCurrentDot, 2)
TxtNode.Text = sTemp1(0)
TxtDot.Text = sTemp3(1)
TxtLand.Text = sTemp2(1)
ChkUse.Value = IIf(isUseDot(iCurrentDot), 1, 0)
isUse = isUseDot(iCurrentDot)
Else
isUse = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -