mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
1.9 KiB
70 lines
1.9 KiB
VERSION 5.00
|
|
Begin VB.Form ChatDialog
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "Chat"
|
|
ClientHeight = 4875
|
|
ClientLeft = 2760
|
|
ClientTop = 3750
|
|
ClientWidth = 6735
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 4875
|
|
ScaleWidth = 6735
|
|
ShowInTaskbar = 0 'False
|
|
Begin VB.TextBox OutputChatText
|
|
Height = 2775
|
|
Left = 120
|
|
MultiLine = -1 'True
|
|
TabIndex = 3
|
|
Top = 120
|
|
Width = 6495
|
|
End
|
|
Begin VB.TextBox EditChatText
|
|
Height = 615
|
|
Left = 120
|
|
MultiLine = -1 'True
|
|
TabIndex = 2
|
|
Top = 3120
|
|
Width = 4935
|
|
End
|
|
Begin VB.CommandButton CancelButton
|
|
Caption = "Close"
|
|
Height = 375
|
|
Left = 5280
|
|
TabIndex = 1
|
|
Top = 4200
|
|
Width = 1215
|
|
End
|
|
Begin VB.CommandButton SendButton
|
|
Caption = "Send"
|
|
Default = -1 'True
|
|
Height = 375
|
|
Left = 5280
|
|
TabIndex = 0
|
|
Top = 3120
|
|
Width = 1215
|
|
End
|
|
Begin VB.Line Line1
|
|
X1 = 120
|
|
X2 = 6240
|
|
Y1 = 3960
|
|
Y2 = 3960
|
|
End
|
|
End
|
|
Attribute VB_Name = "ChatDialog"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
Option Explicit
|
|
|
|
Private Sub CancelButton_Click()
|
|
ChatDialog.Hide
|
|
End Sub
|
|
|
|
Private Sub SendButton_Click()
|
|
Call Form1.ChatChannel.SendChannelData(ChatDialog.EditChatText.Text)
|
|
ChatDialog.EditChatText.Text = ""
|
|
End Sub
|