?? 呼叫.frm
字號:
VERSION 5.00
Begin VB.Form 呼叫
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 5100
ClientLeft = 0
ClientTop = 0
ClientWidth = 7155
KeyPreview = -1 'True
LinkTopic = "Form1"
Picture = "呼叫.frx":0000
ScaleHeight = 5100
ScaleWidth = 7155
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 返 回"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 495
Left = 2400
MouseIcon = "呼叫.frx":37ED
MousePointer = 99 'Custom
TabIndex = 6
Top = 4050
Width = 2055
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = " 火 警"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 4320
MouseIcon = "呼叫.frx":3AF7
MousePointer = 99 'Custom
TabIndex = 5
Top = 3120
Width = 2055
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "電腦故障"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 1080
MouseIcon = "呼叫.frx":3E01
MousePointer = 99 'Custom
TabIndex = 4
Top = 3120
Width = 2055
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "需要茶水"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 4440
MousePointer = 99 'Custom
TabIndex = 3
Top = 2040
Width = 2055
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "音箱故障"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 1080
MousePointer = 99 'Custom
TabIndex = 2
Top = 2040
Width = 2055
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "話筒故障"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 4440
MousePointer = 99 'Custom
TabIndex = 1
Top = 960
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "需要幫助"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 1080
MousePointer = 99 'Custom
TabIndex = 0
Top = 960
Width = 2055
End
End
Attribute VB_Name = "呼叫"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Winsock1_Connect()
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
End Sub
Private Sub Form_Load()
'clint.RemoteHostIP = "192.168.0.1"
'clint.RemotePort = "1068"
'clint.Connect
End Sub
Private Sub Label1_Click()
工程.Winsock1.SendData pf.pcname & " " & "需要幫助"
End Sub
Private Sub Label2_Click()
工程.Winsock1.SendData pf.pcname & " " & "話筒故障"
End Sub
Private Sub Label3_Click()
工程.Winsock1.SendData pf.pcname & " " & "音箱故障"
End Sub
Private Sub Label4_Click()
工程.Winsock1.SendData pf.pcname & " " & "需要茶水"
End Sub
Private Sub Label5_Click()
工程.Winsock1.SendData pf.pcname & " " & "電腦故障"
End Sub
Private Sub Label6_Click()
工程.Winsock1.SendData pf.pcname & " " & "起火！！！"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -