Разбор потоков - Visual Basic .NET - Ответ 1564588

@Provaider · Регистрация: 01.10.2010

Author24 — интернет-сервис помощи студентам

В ходе коддинга возникла проблема: доступ к контролам на форме не возможен из другого потока. Для примера возьмём вот это

VB.NET

   Private Sub loginandretr()
        Try
            'переменые
            Dim response As String
            Dim from As String = Nothing
            Dim subject As String = Nothing
            Try
                mailclient = New TcpClient("POP.mail.ru", 110) ' конект к хосту по порту 110
            Catch generatedExceptionName As SocketException
                MsgBox("Сервер POP3 не отвечает") 'выводим сообщение, если он не отвечает
                Return
            End Try
            ns = mailclient.GetStream()
 
            sr = New StreamReader(ns)
            sw = New StreamWriter(ns)
            response = sr.ReadLine()
            sw.WriteLine("User " + TextBox1.Text)
            sw.Flush()
            response = sr.ReadLine() 'получаем ответ от хоста
            If response = "-ERR" Then
                MsgBox("Сервер не отвечает")
                Return
            End If
            sw.WriteLine("Pass " + TextBox2.Text)
            sw.Flush()
            Try
                response = sr.ReadLine() 'получаем ответ от хоста
            Catch generatedExceptionName As IOException
                MsgBox("Логин или пароль неверен")
                Return
            End Try
            If response.Substring(0, 3) = "-ER" Then
               MsgBox("Логин или пароль неверен")
                Return
            End If
            MsgBox("УРА. ВЫ законектились")
            PictureBox1.Visible = True
            sw.WriteLine("stat")
            sw.Flush()
        Catch ex As Exception
            MsgBox("Критическа ошибка:" & ex.Message)
        End Try
 
    End Sub

Всё работает и месседж боксы вылетают когда надо и куда надо. А теперь исправим вот так вот

VB.NET

   Private Sub loginandretr()
        Try
            'переменые
            Dim response As String
            Dim from As String = Nothing
            Dim subject As String = Nothing
            Try
                mailclient = New TcpClient("POP.mail.ru", 110) ' конект к хосту по порту 110
            Catch generatedExceptionName As SocketException
                MsgBox("Сервер POP3 не отвечает") 'выводим сообщение, если он не отвечает
                Return
            End Try
            ns = mailclient.GetStream()
 
            sr = New StreamReader(ns)
            sw = New StreamWriter(ns)
            response = sr.ReadLine()
            sw.WriteLine("User " + TextBox1.Text)
            sw.Flush()
            response = sr.ReadLine() 'получаем ответ от хоста
            If response = "-ERR" Then
                MsgBox("Сервер не отвечает")
                Return
            End If
            sw.WriteLine("Pass " + TextBox2.Text)
            sw.Flush()
            Try
                response = sr.ReadLine() 'получаем ответ от хоста
            Catch generatedExceptionName As IOException
              picturebox1.visible=false
              picturebox2.visible=true
                Return
            End Try
            If response.Substring(0, 3) = "-ER" Then
               picturebox1.visible=false
              picturebox2.visible=true
                Return
            End If
            picturebox1.visible=false
              picturebox3.visible=true
            PictureBox2.Visible = false
            sw.WriteLine("stat")
            sw.Flush()
        Catch ex As Exception
            MsgBox("Критическа ошибка:" & ex.Message)
        End Try
 
    End Sub

Вб нет станет недовольно говорить, что из одного потока доступ невозможен.
Ладно, пойдём ему навстречу и добавим в самое начало это

VB.NET

1	System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False

Так, теперь вб.нет ничего не говорит, но просто скрывает все пикчер боксы. Возникает вопрос, что это за бред???

Вернуться к обсуждению:
Разбор потоков Visual Basic .NET

Следующий ответ

Другие темы раздела
Visual Basic .NET Решение квадратных уравнений в visual studio Ребят помогите кто нибудь с заданием нужно сделать програму решаюшую квадратные уравнения несколькими способами. Одним способом а именно через дискреминант я решил нужно еще по теореме Виета или любой другой способ но я тупо не понимаю как и реализовывать https://www.cyberforum.ru/ vb-net/ thread278796.html	Visual Basic .NET Наложение текста на картинку Добрый день. Возникла проблема с наложением текста на картинку, основная часть программы реализована, но проблема состоит в том, что не могу прикрепить это действие кнопке, как это можно сделать? Спасибо за помощь заранее. Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Dim g As Graphics = e.Graphics ...
Visual Basic .NET Упрощаем себе жизнь Народ, вот нашел такой способ как в переменную вставить текст Dim d As String = <Code>1. Проверка 2. проверка 3. проверка</Code> RichTextBox1.Text = d раньше я бы написал это так Dim d As String = "1. Проверка" & vbcrlf & "2. проверка" & vbcrlf & "3. проверка" RichTextBox1.Text = d собственно возник вопрос есть ли еще какие-либо хитрости, которые мало встречаются, но... https://www.cyberforum.ru/ vb-net/ thread278558.html	Visual Basic .NET Какая разница на чем писать? У меня как не особо осведомленного остается вопрос: если программировать в среде .NET, то какая разница в какой среде программировать: в VB, C++,C# или другой .NET, если все они зависят от Net Framework и для выполнения программ написанных на этих языках на компьютере клиента должно быть также установлено соответствующее программное обеспечение NET.Framework??? https://www.cyberforum.ru/ vb-net/ thread278434.html
Как написать свою IDE Visual Basic .NET Ув. программисты, скажите (или покажите на примере(ах)) пожалуйста как написать свою IDE на vb.net (Проще говоря - этакий мини-vb.net в vb.net)	Visual Basic .NET DataSet, DataGridView и колонка типа System.Boolean https://www.cyberforum.ru/ vb-net/ thread278099.html Привет всем! Помогите, пожалуйста, разобраться с такой проблемкой... Уже полдня мучаюсь - ничего не получается. Есть некоторая таблица в наборе данных DataSet1.xsd. Одна из колонок этой таблицы имеет тит Boolean, т.е. просто галочка о двух значениях. К этой таблице привязан DataGridView1. Всё отлично отображается и редактируется, но в момент изменения (снятия/установки) этой галочки в...
Visual Basic .NET Нужен код для автозагрузги проги! Короче пишу прогу! Скажите как сделать чтобы после скачивания этой программы она добавлялась в автозагрузку компьютера?:) https://www.cyberforum.ru/ vb-net/ thread278098.html	Visual Basic .NET Считывание из текстового файла Вообщем есть текстовый файл следующего содержания 2.10 3.08 4.16 5.17 3.08 5.66 9.55 6.91 4.54 3.75 1.74 2.85 1.34 9.41 6.49 7.85 в текстбоксе прописываем путь к файлу...по щелчку кнопки нужно считать на другой текстбокс...код написал..... Imports System Imports System.IO Imports System.Text Public Class Form1
Visual Basic .NET Не могу Нажать Кнопку на Web Форме Собственно вот кнопка <input type="submit" class="submit" value="Submit My Secure Donation"> КАк Быть????????? Использую WEBBROWSER заранее огромное спасибо https://www.cyberforum.ru/ vb-net/ thread277798.html	Visual Basic .NET Обработать параметры запуска приложения Привет всем! Подскажите, пожалуйста, каким образом на Visual Basic 2008 при запуске моего приложения открыть файл указанный, как аргумен к моей программе, например, в командной строке пишу: WindowsApplication1.exe D:\somefile.xml , т.е. как считать вот это D:\somefile.xml при запуске моей программы? Еще, если возможно, подскажите, как при создании инсталляции в InstallShield ассоциировать мой... https://www.cyberforum.ru/ vb-net/ thread277746.html
Visual Basic .NET Работа с файлами У меня такой вопрос....как в Basic 8.0 работать с файлами? если точнее какой функцией открывать файлы, делать выборку строк из текстового файла? в 6.0 такая функция Open()...какой эквивалент в 8.0???	Visual Basic .NET Работа с файлами https://www.cyberforum.ru/ vb-net/ thread277703.html У меня такой вопрос....как в Basic 8.0 работать с файлами? если точнее какой функцией открывать файлы, делать выборку строк из текстового файла? в 6.0 такая функция Open()...какой эквивалент в 8.0???

	18.04.2011, 19:13