【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-MAIN_ZY.FRM,希望本篇文章对您学习有所帮助。
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9c.ocx"
Begin VB.Form main_zy
BorderStyle = 0 'None
ClientHeight = 9000
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "MAIN_ZY.frx":0000
LinkTopic = "Form2"
Picture = "MAIN_ZY.frx":000C
ScaleHeight = 9000
ScaleWidth = 12000
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "Frame1"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2220
Left = 780
TabIndex = 20
Top = 1770
Visible = 0 'False
Width = 3330
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 75
TabIndex = 30
Top = 1395
Visible = 0 'False
Width = 1590
End
Begin VB.Timer Timer1
Interval = 50
Left = 2700
Top = 1410
End
Begin VB.Timer Timer2
Interval = 20
Left = 2700
Top = 975
End
Begin VB.Timer Timer3
Interval = 10000
Left = 2700
Top = 120
End
Begin VB.Timer Timer4
Interval = 50
Left = 2700
Top = 540
End
Begin
VB.TextBox x1z
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1470
TabIndex = 29
Top = 480
Width = 510
End
Begin VB.TextBox szline
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1470
TabIndex = 28
Text = "0"
Top = 195
Width = 510
End
Begin VB.TextBox bdsz
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1470
TabIndex = 27
Text = "1"
Top = 765
Width = 510
End
Begin VB.TextBox line1x
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 60
TabIndex = 26
Text = "6885"
Top = 195
Width = 660
End
Begin VB.TextBox linen
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 60
TabIndex = 25
Text = "0"
Top = 1065
Width = 660
End
Begin VB.TextBox lineny
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 60
TabIndex = 24
Top = 780
Width = 660
End
Begin VB.TextBox line1y
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 750
TabIndex = 23
Text = "1920"
Top = 480
Width = 660
End
Begin VB.TextBox linenx1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 750
TabIndex = 22
Text = "7000"
Top = 210
Width = 660
End
Begin VB.TextBox linenx2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 60
TabIndex = 21
Text = "9850"
Top = 495
Width = 660
End
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash2
Height = 705
Left = 15
TabIndex = 19
Top = 8235
Visible = 0 'False
Width = 7335
_cx = 5080
_cy = 5080
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "AutoLow"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= "always"
Scale