📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 11115
ClientLeft = 660
ClientTop = 600
ClientWidth = 15240
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 11115
ScaleWidth = 15240
Begin VB.Timer tmrMove
Enabled = 0 'False
Interval = 50
Left = 8640
Top = 3120
End
Begin VB.PictureBox picHidden
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 11520
Left = -6480
Picture = "Form1.frx":0000
ScaleHeight = 768
ScaleMode = 3 'Pixel
ScaleWidth = 1024
TabIndex = 3
Top = 7320
Visible = 0 'False
Width = 15360
End
Begin VB.PictureBox picXMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 525
Left = 9600
Picture = "Form1.frx":38A52
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 64
TabIndex = 1
Top = 2160
Visible = 0 'False
Width = 960
End
Begin VB.PictureBox picX
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 525
Left = 10320
Picture = "Form1.frx":38F34
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 64
TabIndex = 0
Top = 1440
Visible = 0 'False
Width = 960
End
Begin VB.PictureBox picCanvas
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 11580
Left = 120
Picture = "Form1.frx":39416
ScaleHeight = 768
ScaleMode = 3 'Pixel
ScaleWidth = 1024
TabIndex = 2
Top = 120
Width = 15420
Begin VB.Frame Frame2
BackColor = &H80000012&
Caption = "搜索雷达监示器"
ForeColor = &H8000000E&
Height = 2415
Left = 12120
TabIndex = 15
Top = 8280
Width = 2895
Begin VB.Label Label10
BackColor = &H80000012&
Caption = "跟踪"
ForeColor = &H000040C0&
Height = 255
Left = 2160
TabIndex = 19
Top = 1920
Width = 495
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H80000012&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 120
TabIndex = 18
Top = 1200
Width = 120
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H80000012&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 120
TabIndex = 17
Top = 840
Width = 120
End
Begin VB.Label Label11
BackColor = &H80000012&
Caption = "搜索目标："
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 16
Top = 360
Width = 975
End
End
Begin VB.Timer tmrRoll
Interval = 60
Left = 9480
Top = 360
End
Begin VB.PictureBox PicView
BorderStyle = 0 'None
Height = 6855
Left = -360
Picture = "Form1.frx":71E68
ScaleHeight = 6855
ScaleWidth = 6015
TabIndex = 12
Top = 0
Width = 6015
End
Begin VB.Frame Frame1
BackColor = &H80000007&
Caption = "跟踪雷达监示器"
ForeColor = &H8000000E&
Height = 2415
Left = 9000
TabIndex = 6
Top = 8280
Width = 2895
Begin VB.Label Label14
BackColor = &H80000012&
Caption = "关闭监示器"
ForeColor = &H000000C0&
Height = 255
Left = 1080
TabIndex = 20
Top = 2040
Width = 1095
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H80000012&
Caption = "目标超出雷达监测范围"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 360
Left = 120
TabIndex = 14
Top = 720
Width = 2400
End
Begin VB.Label Label8
BackColor = &H80000007&
Caption = "退出"
ForeColor = &H000000C0&
Height = 255
Left = 2280
TabIndex = 13
Top = 2040
Width = 375
End
Begin VB.Label Label7
BackColor = &H80000012&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 1080
TabIndex = 11
Top = 1200
Width = 1575
End
Begin VB.Label Label6
BackColor = &H80000012&
Caption = "目标状态："
ForeColor = &H000000C0&
Height = 375
Left = 120
TabIndex = 10
Top = 1320
Width = 975
End
Begin VB.Label Label5
BackColor = &H80000012&
Caption = "目标位置："
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 9
Top = 240
Width = 1335
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H80000012&
ForeColor = &H8000000E&
Height = 180
Left = 120
TabIndex = 8
Top = 960
Width = 90
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H80000012&
ForeColor = &H8000000E&
Height = 180
Left = 120
TabIndex = 7
Top = 600
Width = 90
End
End
End
Begin VB.Label Label2
Caption = "Label2"
Height = 495
Left = 4200
TabIndex = 5
Top = 960
Width = 2175
End
Begin VB.Label Label1
Caption = "Label1"
Height = 495
Left = 4320
TabIndex = 4
Top = 240
Width = 1935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private ResultRegion As Long
Private PolyPoints(4) As POINTAPI
'Constantes pour CombineRgn
Private Const RGN_AND = 1 'Intersection des deux r間ions
Private Const RGN_OR = 2 'Addition des deux r間ions
Private Const RGN_XOR = 3 'Difficile ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -