VB 2008

[CrazyDude]

Очередной вопрос, но уже по Visual Basic 2008, есть код:

Код: Выделить всё

Dim Voprosi As String() = {"Как дела?", "Ухух?", "тест?"}
Dim Variants As RadioButton() = {RadioButton1, RadioButton2, RadioButton3}

Когда загружается форма:

Код: Выделить всё

For i As Integer = 1 To 3
            Variants(i).Text = Voprosi(i)
Next i

При компиляции:
В экземпляре объекта не задана ссылка на объект.

И выделяется строка:

Код: Выделить всё

Variants(i).Text = Voprosi(i)

[Viper]

а радиокнопки кто за тебя создавать будет?

[CrazyDude]

а радиокнопки кто за тебя создавать будет?

Дело в том, что радиокнопки созданы...

Вот целый код:

Код: Выделить всё

Public Class Form1
    Dim Voprosi As String() = {"Как дела?", "Ухух?", "тест?"}
    Dim Variants As RadioButton() = {RadioButton1, RadioButton2, RadioButton3}
    Dim Vopros As Integer
    Dim Otveti As Integer() = {1, 2}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 3
            Variants(i).Text = Voprosi(i)
        Next i
    End Sub
End Class


[Viper]

Не вижу процесса создавания кнопок и в полном варианте кода тоже.

[CrazyDude]

Не вижу процесса создавания кнопок и в полном варианте кода тоже.

Эм? Всмысле? Я их создал графически, нужно ещо что-то?

[Alec]

Код: Выделить всё

Public Class Form1

  Dim Voprosi As String() = {"Как дела?", "Ухух?", "тест?"}
  Dim Variants As RadioButton() '!!! без инициализации
  Dim Vopros As Integer
  Dim Otveti As Integer() = {1, 2}

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Variants = New RadioButton() {RadioButton1, RadioButton2, RadioButton3} '!!! инициализация - здесь
    For i As Integer = 0 To 2 '!! массив нумеруется с 0
      Variants(i).Text = Voprosi(i)
    Next i
  End Sub

End Class


[CrazyDude]

Код: Выделить всё

Public Class Form1

  Dim Voprosi As String() = {"Как дела?", "Ухух?", "тест?"}
  '!! отсюда убираем
  Dim Vopros As Integer
  Dim Otveti As Integer() = {1, 2}

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Variants As RadioButton() = {RadioButton1, RadioButton2, RadioButton3} '!! и переносим сюда
    For i As Integer = 0 To 2 '!! массив нумеруется с 0
      Variants(i).Text = Voprosi(i)
    Next i
  End Sub

End Class


Спасибо, теперь все работает

[Alec]

Только возьми поправленный код, чтобы новых вопросов не возникло...

[CrazyDude]

Вот появилась еще 1 проблема, на этот раз с винсоком, значить так:
Когда я использую вот это: Winsock.GetData(TextBox1.Text) все нормально, текст в TextBox1 стает тем который пришел, если же я использую переменную, допустим fString, (Winsock.GetData(fString)) и потом TextBox1.Text = fString, то тогда текст в текст боксе не изменяется, почему?

Вот код:

Код: Выделить всё

Public Class Form
    Dim fString As String
    Dim rString As String

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fString = "[" + textName.Text + "]" + " " + textOut.Text + vbNewLine
        textIn.Text = textIn.Text + fString
        Winsock.RemoteHost = textIP.Text
        Winsock.SendData(fString)
    End Sub

    Private Sub Winsock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
        Winsock.GetData(rString)
        textIn.Text = textIn.Text + rString
    End Sub
End Class

[FireFenix]

В .NET для этих целей есть класс Soket или TCPClient

Если текстбокс в 1 строчку и не мультистрочный, то он не покажет ничего после vbNewLine
добавлено: протупил, всё работает в 1 строчку

и vbCrLf короче чем vbNewLine

[MIT]

Если текстбокс в 1 строчку и не мультистрочный, то он не покажет ничего после vbNewLine

[CrazyDude]

Не нашел ответа на мою проблему, хочу юзать только winsock, темболее что другое совсем не могу, и да, повторяюсь опять, моя проблема заключается в том, что если отсылать дату, потом принимать ее сразу в текстбокс Winsock.GetData(TextBox1.Text) то все нормально, а когда в переменную: Winsock.GetData(myData), то переменная myData остается пустой, почему?

[CrazyDude]

Ну хотя бы у когото есть пример чата сделанный в vb.net через winsock с протоколом UDP?

[CrazyDude]

Вот видео проблемы:
http://www.youtube.com/watch?v=ssGlaU72riA

[MIT]

Я бы подсказал, но лень подключать winsock.
Сем тебе не мил System.Net.Sockets.Socket? Он же удобнее, да и работать с ним проще.