0 / 0 / 0
Регистрация: 16.10.2015
Сообщений: 21
1

Исправить ошибку "State не может использоваться как выражение"

09.12.2015, 15:39. Показов 456. Ответов 1
Метки нет (Все метки)

Простейший код, но подчеркивает Winsock1.State <> sckClosed, пишет что State не может использоваться как выражение, а sckClosed не объявлен, что тут не так в коде-то?
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Class Form1
 
    Private Sub cmdSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendData.Click
        Winsock1.SendData(txtSendData.Text)
        txtOutput.Text = txtOutput.Text & vbNewLine & "Сервер:" & txtSendData.Text
        txtSendData.Text = ""
        txtSendData.Focus()
 
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtOutput.ReadOnly = True
        txtOutput.Text = ""
        txtSendData.Text = ""
        cmdSendData.Text = "Отправить"
 
        Winsock1.LocalPort = 6574
        Winsock1.Listen()
    End Sub
 
    Private Sub Winsock1_Close()
        If Winsock1.State <> sckClosed Then Winsock1.Close()
        Winsock1.Listen()
    End Sub
 
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
        Winsock1.Close()
        Winsock1.Accept(requestID)
        txtOutput.Text = "Есть подключение!!!"
    End Sub
 
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long, ByVal s As String)
        Winsock1.GetData(s)
        txtOutput.Text = txtOutput.Text & vbNewLine & "Клиент: " & s
        txtOutput.SelectionStart = txtOutput.SelectionLength
 
    End Sub
 
    Private Sub Winsock1_Error(ByVal Number As Integer, ByVal Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As Boolean)
        MsgBox(Description, vbCritical)
        Winsock1_Close()
    End Sub
End Class
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2015, 15:39
Ответы с готовыми решениями:

Как исправить ошибку "Приведение строки "" к типу "Double" является недопустимым"?
Выдает ошибку в строке nasel(n).mat = Int(line(2)). Приведение строки &quot;&quot; к типу &quot;Double&quot; является...

Как исправить ошибку: "MsoShapeType" в пространстве имен "Microsoft.Office.Core" является неоднозначным.
Перевожу код программы из VBA worda на VB 2010 вот код (из темы в разделе VBA &quot;автозамена текста в...

Ошибка "List.MyDelegate' является типом и не может использоваться как выражение"
Возникает ошибка Compiler Error CS0118, не пойму в чем дело.. namespace List { //Объявляем...

Выражение "this" не может использоваться в константном выражении
Доброго времени суток. Разбирал статью с одного англоязычного ресурса по покраске графа. Но при...

1
1414 / 1318 / 302
Регистрация: 03.10.2012
Сообщений: 1,379
10.12.2015, 00:15 2
Строку 21 исправьте на
VB.NET
1
If Winsock1.CtlState <> MSWinsockLib.StateConstants.sckConnected Then Winsock1.Close()
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2015, 00:15

Ошибка "Невызываемый член "System.Windows.Forms.Control.Visible" не может использоваться как метод"
Удалите пожалуйста тему не туда написал!

При подключении к Hyper-V 2008 получаю ошибку "Эта версия диспетчера Hyper-V не может использоваться ..."
Добрый день. При попытке подключения к серверу Hyper-V 2008 через Диспетчер Hyper-V на Windows...

Создание XML ошибка "Знак " ", шестнадцатеричное значение 0x20, не может использоваться в именах"
Пытаюсь создать документ но выдает ошибку, создаю вот так XDocument xdoc = new XDocument( ...

Исправить ошибку "Оператор + не может применяться к типам char и "группа методов"
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru