Работа с AVT Connecting Control / Недопонимание - VB

Формулировка задачи:

Привет всем! У меня сложилась не обычаиная проблема: недопонимание в тексте. Дело предстоит так. Я пробую сделать Интернет Чат, вычитал что для его написания мне нужен AVT Server/Client Connecting Control и текст(который ниже), само " дополнение " установил а вот с текстом беда Объясние первые 5 строчек из нижнего текста на "руках" которые не из попы
Master.Show 
Unload Menu во 2 :Client.Show 
Unload Menu и в 3:If MsgBox("Вы действительно хотите закрыть программу?", 36, "Выход:") = 6 Then End. теперь 
создаем 2 форму и подключаем компонент AVT Server/Client Connecting Control если его нет то скачиваем или пишите, я скину. к 1 форме подключаем только только server(компонент) ставим на форму: 
-listbolx 
-textbox (с именем text2) 
-кнопку 
теперь код : private sub form2_load() 
me.caption="master" 
Text2.Text = "" 
Config1.Show 
end sub 
Private Sub command1_Click() 
ServerControl1.SendData_AllClient NIK & "> " & (Text2.Text) 
List1.AddItem "> " & (Text2.Text) 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
Text2.Text = "" 
End Sub 
Private Sub ServerControl1_ClientConnected(ClientID As Integer) 
List1.AddItem "К чату присоединился пользователь №" & ClientID 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
End Sub 
 
Private Sub ServerControl1_ClientDisconnected(ClientID As Integer) 
List1.AddItem "Чат покинул пользователь №" & ClientID 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
End Sub 
 
Private Sub ServerControl1_Error(ClientID As Integer, 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) 
MsgBox "Ошибка передачи данных по сети!", 16, "Сбой!" 
End Sub 
 
Private Sub ServerControl1_GetData(ClientID As Integer, Data As String, ByVal bytesTotal As Long) 
List1.AddItem Data 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
End Sub 
 
Private Sub Text2_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
ServerControl1.SendData_AllClient NIK & "> " & (Text2.Text) 
List1.AddItem "> " & (Text2.Text) 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
Text2.Text = "" 
End If 
If KeyAscii = 27 Then 
Text2.Text = "" 
End If 
End Sub 
теперь создаем 
3 форму 
на ней ставим 2 текстбокса 
1-количество участников 8 
2 - ник в чате 
ставим кнопку 
код кнопки:If Text2.Text = "" Then MsgBox "Вы не указали свое имя в чате (ник)!", 48, "Ошибка:": Exit Sub 
If IsNumeric(Text1.Text) = False Then MsgBox "Не верно указано колличество пользователей чата!", 48, "Ошибка!": Exit Sub 
Master.ServerControl1.MaxClients = Text1.Text 
NIK = Text2.Text 
Master.ServerControl1.CreateServer 
Master.Caption = "ЧАТ (Сервер №" & Master.ServerControl1.ServerIP & ") для " & NIK 
Unload Config1 
а в коде пишем: 
Private Sub Form_Deactivate() 
Config1.Show 
End Sub 
private sub form3_load 
me.caption="config1" 
end sud 
создаем 4 форму 
на ней 2 текстбокса 
1 для ника 2 для IP 
и 1 кнопка 
вот код формы : 
Private Sub command1_Click() 
If Text1.Text = "" Then MsgBox "Вы не указали свое имя в чате (ник)!", 48, "Ошибка:": Exit Sub 
If Text2.Text = "" Then MsgBox "Вы не указали сетевой адрес сервера-чата, для подключения!", 48, "Ошибка:": Exit Sub 
NIK = Text1.Text 
Client.ClientControl1.Connect Text2.Text 
Client.Caption = "ЧАТ (Подключено к " & Text2.Text & ") для " & NIK 
Unload Config2 
End Sub 
и еще: 
private sub form4_load() 
me.caption="config2" 
end sub 
Private Sub Form_Deactivate() 
Config2.Show 
End Sub 
и теперь создаем последнюю форму 
ставим на неё все тоже что и на сервер(2 форма) 
но код меняем на : 
private sub form5_load() 
me.caption="client" 
Text2.Text = "" 
Config2.Show 
end sub 
Private Sub Text2_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
ClientControl1.SendData NIK & "> " & (Text2.Text) 
List1.AddItem "> " & (Text2.Text) 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
Text2.Text = "" 
End If 
If KeyAscii = 27 Then 
Text2.Text = "" 
End If 
End Sub 
а в кнопке пишем: 
ClientControl1.SendData NIK & "> " & (Text2.Text) 
List1.AddItem "> " & (Text2.Text) 
List1.Selected(List1.ListCount - 1) = True 
List1.Selected(List1.ListCount - 1) = False 
Text2.Text = ""

Код к задаче: «Работа с AVT Connecting Control / Недопонимание - VB»

textual
Option Explicit
 
'Для начала создаем 1 форму
'размещаем на форме 3 кнопки
'создать чат ,
'подсоединится
'и выйти.
'в 1 кнопке пишем: form1.caption="menu"
' Unload Menu
' Master.Show
 
Private Sub Ссоздать_чат_Click()
    Форма1.Caption = "menu"
    Unload Menu
    Master.Show
End Sub
 
'во 2: Client.Show Unload Menu
 
Private Sub Присоедениться_Click()
    Client.Show
    Unload Menu
End Sub
 
'и в 3:If MsgBox("Вы действительно хотите закрыть программу?", 36, "Выход:") = 6 Then End.
 
Private Sub Выйти_Click()
    If MsgBox("Вы действительно хотите закрыть программу?", 36, "Выход:") = 6 Then End
End Sub

11   голосов, оценка 4.455 из 5


СОХРАНИТЬ ССЫЛКУ