📄 frmjlsjwj.frm
字号:
Begin VB.Line Line6
X1 = -71655
X2 = -71655
Y1 = 420
Y2 = 3105
End
Begin VB.Line Line5
X1 = -73740
X2 = -73740
Y1 = 420
Y2 = 3105
End
Begin VB.Line Line4
X1 = -68550
X2 = -68550
Y1 = 3105
Y2 = 420
End
Begin VB.Line Line3
X1 = -74910
X2 = -68550
Y1 = 3105
Y2 = 3105
End
Begin VB.Line Line2
DrawMode = 1 'Blackness
X1 = -74925
X2 = -74925
Y1 = 3105
Y2 = 420
End
Begin VB.Line Line1
X1 = -74940
X2 = -68520
Y1 = 420
Y2 = 420
End
Begin VB.Label Label15
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label15 *** HelpWriter ***
Caption = " 点号 点名 近似坐标X 近似坐标Y"
Height = 345
Left = -74715
TabIndex = 45
Top = 480
Width = 6135
End
Begin VB.Label Label14
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label14 *** HelpWriter ***
Caption = "秒.公里"
Height = 315
Left = 5670
TabIndex = 42
Top = 2655
Width = 810
End
Begin VB.Label Label13
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label13 *** HelpWriter ***
Caption = "秒"
Height = 345
Left = 3975
TabIndex = 41
Top = 2655
Width = 465
End
Begin VB.Label Label12
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label12 *** HelpWriter ***
Caption = "GPS接收机方向精度常数"
Height = 285
Left = 3660
TabIndex = 40
Top = 2175
Width = 2055
End
Begin VB.Label Label11
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label11 *** HelpWriter ***
Caption = "d ="
Height = 375
Left = 4485
TabIndex = 38
Top = 2640
Width = 405
End
Begin VB.Label Label10
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label10 *** HelpWriter ***
Caption = "c ="
Height = 330
Left = 2670
TabIndex = 36
Top = 2640
Width = 420
End
Begin VB.Label Label9
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label9 *** HelpWriter ***
Caption = "毫米/公里"
Height = 330
Left = 5670
TabIndex = 35
Top = 1815
Width = 825
End
Begin VB.Label Label8
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label8 *** HelpWriter ***
Caption = "毫米"
Height = 240
Left = 3975
TabIndex = 34
Top = 1800
Width = 390
End
Begin VB.Label Label7
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label7 *** HelpWriter ***
Caption = "b ="
Height = 285
Left = 4425
TabIndex = 33
Top = 1785
Width = 270
End
Begin VB.Label Label6
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label6 *** HelpWriter ***
Caption = "a ="
Height = 285
Left = 2685
TabIndex = 32
Top = 1770
Width = 375
End
Begin VB.Label Label5
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label5 *** HelpWriter ***
Caption = "GPS接收机边长精度常数"
Height = 285
Left = 3660
TabIndex = 29
Top = 1290
Width = 2055
End
Begin VB.Label Label4
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label4 *** HelpWriter ***
Caption = "基 线 数:"
Height = 375
Left = 240
TabIndex = 27
Top = 2625
Width = 1095
End
Begin VB.Label label3
WhatsThisHelpID = 370 'WhatsThisHelpID for: label3 *** HelpWriter ***
Caption = "总 点 数:"
Height = 375
Left = 240
TabIndex = 25
Top = 2030
Width = 1095
End
Begin VB.Label Label2
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label2 *** HelpWriter ***
Caption = "起算点个数:"
Height = 375
Left = 240
TabIndex = 23
Top = 1435
Width = 1095
End
Begin VB.Label Label1
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label1 *** HelpWriter ***
Caption = "控制网名称:"
Height = 375
Index = 0
Left = 240
TabIndex = 21
Top = 840
Width = 1005
End
End
Begin VB.Label Label17
WhatsThisHelpID = 370 'WhatsThisHelpID for: Label17 *** HelpWriter ***
Caption = " 请按基本信息、近似坐标、基线端点顺序输入。"
Height = 315
Left = 135
TabIndex = 90
Top = 4245
Width = 4080
End
End
Attribute VB_Name = "Frmjlsjwj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim z As String
z = MsgBox("正确吗？", vbYesNo, "提示")
If z = vbYes Then
Write #1, Txtkzwmc.Text
Write #1, CInt(Txtqsdgs.Text), CInt(Txtzds.Text), CInt(Txtjxs.Text)
Write #1, CInt(Txtaa.Text), CInt(Txtbb.Text), CInt(Txtcc.Text), CInt(Txtdd.Text)
SSTab1.Tab = 1
End If
End Sub
Private Sub Command2_Click()
Txtkzwmc.Text = ""
Txtqsdgs.Text = ""
Txtzds.Text = ""
Txtjxs.Text = ""
Txtaa.Text = ""
Txtbb.Text = ""
Txtcc.Text = ""
Txtdd.Text = ""
End Sub
Private Sub Command3_Click()
Dim i%
Dim z As String
z = MsgBox("正确吗？", vbYesNo, "提示")
If z = vbYes Then
For i = 0 To 4
If Txtdh(i).Text = "" Then Exit For
Write #1, CInt(Txtdh(i).Text), Txtdm(i).Text, CSng(Txtzbx(i).Text), CSng(Txtzby(i).Text)
Next i
SSTab1.Tab = 2
End If
End Sub
Private Sub Command4_Click()
Dim i%
Dim z As String
z = MsgBox("正确吗？", vbYesNo, "提示")
If z = vbYes Then
For i = 0 To 4
Write #1, CInt(Txtdh(i).Text), Txtdm(i).Text, CSng(Txtzbx(i).Text), CSng(Txtzby(i).Text)
Next i
For i = 0 To 4
Txtdh(i).Text = ""
Txtdm(i).Text = ""
Txtzbx(i).Text = ""
Txtzby(i).Text = ""
Next i
End If
End Sub
Private Sub Command5_Click()
Dim i%
For i = 0 To 4
Txtdh(i).Text = ""
Txtdm(i).Text = ""
Txtzbx(i).Text = ""
Txtzby(i).Text = ""
Next i
End Sub
Private Sub Command6_Click()
Dim i%
Dim z As String
z = MsgBox("正确吗？", vbYesNo, "提示")
If z = vbYes Then
For i = 0 To 8
If Txt1(i).Text <> "" And Txt2(i).Text <> "" Then
Write #1, CInt(Txt1(i).Text), CInt(Txt2(i).Text)
End If
Next i
For i = 0 To 8
Txt1(i).Text = ""
Txt2(i).Text = ""
Next i
End If
End Sub
Private Sub Command7_Click()
Dim i%
Dim z As String
z = MsgBox("正确吗？", vbYesNo, "提示")
If z = vbYes Then
For i = 0 To 8
Write #1, CInt(Txt1(i).Text), CInt(Txt2(i).Text)
Next i
For i = 0 To 8
Txt1(i).Text = ""
Txt2(i).Text = ""
Next i
End If
End Sub
Private Sub Command8_Click()
Dim i%
For i = 0 To 8
Txt1(i).Text = ""
Txt2(i).Text = ""
Next i
End Sub
Private Sub Command9_Click()
Dim count%, count1%
Dim filenum As Integer
Dim i%
Close #1
Unload Me
filenum = FreeFile
Open newfilename For Input As #filenum
On Error GoTo onerror
Input #filenum, Kzwmc
Input #filenum, yzdgs, count, count1
Input #filenum, bca, bcb, bcc, bcd
ReDim wdxy(1 To count)
ii = count
For i = 1 To count
Input #filenum, wdxy(i).dh, wdxy(i).Name, wdxy(i).Y, wdxy(i).X
Next i
Do Until EOF(filenum)
jj = jj + 1
ReDim Preserve wxsj(1 To jj)
Input #filenum, wxsj(jj).dh1, wxsj(jj).dh2
Loop
Close #filenum
Call frmkzwsj.zkzd '初始化屏幕绘控制点
Call frmkzwsj.drawkzwx(frmkzwsj.Picture1)
Call jsck.jsck_draw
Exit Sub
onerror:
MsgBox "数据文件建立错误,请查看数据文件!", vbOKOnly, "错误提示"
Exit Sub
End Sub
Private Sub Form_Load()
'SSTab1.Tab = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -