.NET 4.x Загрузить картинку в PictureBox, которая условно является картинкой "по умолчанию" - Visual Basic .NET

  1. На форме размещен PictureBox, через свойства для этого PictureBox задана картинка, которая появляется в нем при запуске программы, назовем ее дефолтная картинка, т.е. картинка по умолчанию. При нажатии на кнопку дефолтная картинка меняется на картинку из папки с программой. Хотел узнать, есть ли какие-то методы, чтобы при нажатии на кнопку, в PictureBox вернулась дефолтная картинка? Я могу конечно сохранить дефолтную картинку в папку с программой и при нажатии на кнопку заменять картинку на дефолтную, но мне почему-то кажется, что это какие-то костыли и есть нормальные методы для возврата дефолтной картинки. Буду благодарен за любую информацию.


textual

Код:

MyPictureBox1.ShowDefaultImage()


Похожие ответы
  1. Всем привет! Столкнулся с проблемой, обмена с FTP (на IIS) с помощью Net.FtpWebRequest в пассивном режиме. При попытке загрузить список каталогов, получить или отправить на фтп данные сообщает об ошибке: 227 Entering Passive Mode (ххх,ххх,ххх,ххх,224,18). Использование свойства UsePassive = true, также не помогает, ошибка повторяется. Если свойство установить в UsePassive = false, сообщит о следующей ошибке: "500 PORT/EPRT (Active Mode/Extended Active Mode) is not supported. Use PASV/EPSV instead of this" Примеры кода перепробовал несколько, в т.ч. и из готовых решений, ошибка одна и таже. Поиск по форуму, да и гуглу особо результата не дал. Да я понимаю, что при пассивном подключении нужно получить порт от сервера, но вот как его получить и подключиться к серверу никак не пойму. Пароли и прочее все верно. Подключение через браузер и тоталкомандер успешные. Вот один из примеров кода на котором я тестировал (значение свойства UsePassive = true, дописывал самостоятельно): Кликните здесь для просмотра всего текста vb.net1 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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 Public Class FTP     '-------------------------[BroCode]--------------------------     '----------------------------FTP-----------------------------     Private _credentials As System.Net.NetworkCredential     Sub New(ByVal _FTPUser As String, ByVal _FTPPass As String)         setCredentials(_FTPUser, _FTPPass)     End Sub     Public Sub UploadFile(ByVal _FileName As String, ByVal _UploadPath As String)         Dim _FileInfo As New System.IO.FileInfo(_FileName)         Dim _FtpWebRequest As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(New Uri(_UploadPath)), System.Net.FtpWebRequest)         _FtpWebRequest.Credentials = _credentials         _FtpWebRequest.KeepAlive = False         _FtpWebRequest.Timeout = 20000         _FtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile         _FtpWebRequest.UseBinary = True         _FtpWebRequest.ContentLength = _FileInfo.Length         _FtpWebRequest.UsePassive = True         Dim buffLength As Integer = 2048         Dim buff(buffLength - 1) As Byte         Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead()         Try             Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream()             Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength)             Do While contentLen <> 0                 _Stream.Write(buff, 0, contentLen)                 contentLen = _FileStream.Read(buff, 0, buffLength)             Loop             _Stream.Close()             _Stream.Dispose()             _FileStream.Close()             _FileStream.Dispose()         Catch ex As Exception             MessageBox.Show(ex.Message, "Upload Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try     End Sub     Public Sub DownloadFile(ByVal _FileName As String, ByVal _ftpDownloadPath As String)         Try             Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpDownloadPath)             _request.KeepAlive = False             _request.Method = System.Net.WebRequestMethods.Ftp.DownloadFile             _request.Credentials = _credentials             Dim _response As System.Net.FtpWebResponse = _request.GetResponse()             Dim responseStream As System.IO.Stream = _response.GetResponseStream()             Dim fs As New System.IO.FileStream(_FileName, System.IO.FileMode.Create)             'responseStream.CopyT(fs)             responseStream.Close()             _response.Close()         Catch ex As Exception             MessageBox.Show(ex.Message, "Download Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try     End Sub     Public Function GetDirectory(ByVal _ftpPath As String) As List(Of String)         Dim ret As New List(Of String)         Try             Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpPath)             _request.KeepAlive = False             _request.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails             _request.Credentials = _credentials             Dim _response As System.Net.FtpWebResponse = _request.GetResponse()             Dim responseStream As System.IO.Stream = _response.GetResponseStream()             Dim _reader As System.IO.StreamReader = New System.IO.StreamReader(responseStream)             Dim FileData As String = _reader.ReadToEnd             Dim Lines() As String = FileData.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)             For Each l As String In Lines                 ret.Add(l)             Next             _reader.Close()             _response.Close()         Catch ex As Exception             MessageBox.Show(ex.Message, "Directory Fetch Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try         Return ret     End Function       Private Sub setCredentials(ByVal _FTPUser As String, ByVal _FTPPass As String)         _credentials = New System.Net.NetworkCredential(_FTPUser, _FTPPass)     End Sub End ClassИспользование:vb.net1 2 3 4 5 6 7 8 9 10 11   Dim ftp As New FTP("server", "pass")           ftp.UploadFile("localfile", "hostfile")           ftp.DownloadFile("localfile", "hostfile")           Dim directory As List(Of String) = ftp.GetDirectory("ftp://hostdir/")         ListBox1.Items.Clear()         For Each item As String In directory             ListBox1.Items.Add(item)         Next Пожалуйста, помоги разобраться и как осуществить подключение к серверу в пассивном режиме, может даже пример кода у кого завалялся. Заранее спасибо!

  1. Добрый день подскажите пожалуйста как загрузить разные изображения одной кнопкой в 6 разных pictureBox-ов через openfiledialog

  1. Здравствуйте, нужна помощь... Мне в цикле надо изменить у 6 PictureBox, которые имеют следующие названия ("MyCard1","MyCard2","MyCard3","MyCard4","MyCard5","MyCard6") картинку. Пытаюсь сделать так:vb.net1 Me.Controls("MyCard" & i).Image = Image.FromFile("Resources/" & cards(l, 1))Но он мне пишет такую ошибку ""Image" не является членом "System.Windows.Forms.Control"".Помогите кто сможет.

  1. Столбец имеет тип графический, делаю так, не получается:vb.net1 DataGridView5.Item(0, 0).Value = New Bitmap("http://counter.yadro.ru/hit?t22.1;r;s1920*1080*24;uhttp%3A//www.cyberforum.ru")

  1. На форме есть кнопка, при наведении на нее курсора мыши должна появляться подсказка с текстом и картинкой, можно ли такое организовать в рамках VB .NET?

  1. Ребят, можно ли загрузить 200K строк типа String в базу SQL LITE максимально быстро? Скажем за 1-5 минут? Это вообще реально? А то я уже 30 минут сижу жду пока данные запишутся, а их каждый день должно быть примерно в трое больше... Строки пишу таким макаром:vb.net1 2 3 4 5 6 7 8 9     Public Sub Add_ImportData(Ships_ID As Integer, p1_index As Integer, p2_index As String, DateTime_ As DateTime, Value As String)         Dim Query As New SQLiteCommand(String.Format( _          "INSERT INTO import_data (" & _          "id, ships_id, p1_index, p2_index, date_time, value) values(" & _          "NULL, '{0}', '{1}', '{2}', '{3}', '{4}')", _          Ships_ID, p1_index, p2_index, DateTime_, Value), Conn)           Query.ExecuteNonQuery()     End Sub

  1. Добрый день, Господа! Увидел у Памирыча на сайте такую фичу.vb.net1 2 3         For Each x As System.Configuration.SettingsProperty In My.Settings.Properties             MsgBox(x.Name & "=" & My.Settings(x.Name).ToString())         NextВозник вопрос. Как можно стянуть все настройки в тхт, и как их потом от туда достать. Например что бы после переустановки приложения, можно было указав путь, вставить старые настройки. Допустим пишем в файл.vb.net1 2 3 4 5 6 7 Dim massivSett As New List(Of String)         For Each x As System.Configuration.SettingsProperty In My.Settings.Properties               massivSett.Add(x.Name & "=" & My.Settings(x.Name).ToString())           Next         IO.File.WriteAllLines("Z:\_Прогресс\Не заходить\журнал\Settings.txt", massivSett, System.Text.Encoding.Default)Имеем файл типа. Put1= loginBox=True userName=test МЕСТО={X=147,Y=206} name4= name3= topmost1=True Put4= userPass=1 Size={Width=445, Height=333} name2= name1= МЕСТО2={X=1267,Y=84} Put2= Put3= Как выгрузить эти данные в прогу обратно? Что интересно, пустые значения не имеют даже пробела. Как их считать.... П.С. ну еще я понимаю что не обязательно писать Даже name. Тогда еще легче, просто перебирая индекс, подписывать значения. Но если настроек много, тогда осложняется правка txt в ручную потому что не видно какое значение к какой настройке. Мб записывать с разделителем, но с двумерными массивами я не дружу(

  1. Нужно загрузить word файл в окно textbox. Работаю в VB 2010. Загрузка текстового файла типа TXT решается просто, а вот с файлами MS Office проблема. Не знаю как. Буду признателен за помощь.

  1. Как реализовать, чтобы в одном DataGrid отображалось несколько таблиц с БД Access. т.е у меня допустим заявок около 1000 шт будет, в них меняются только 4 из 12 полей, остальные всегда статичны т.е. Пусть будет 10000 заявок а адреса как были в таблице в количестве 100 шт ,так и остались . Как мне это реализовать? Правильно ли сделана нормализация ? Никак не могу разобраться с запросами. Раньше запрос был select * from tb1 и всё заполнялось, а сейчас вот совсем запутался. Желательно примерчик бы.Заранее спасибо.

  1. как изменить изображение в кнопках на другое? У меня есть кнопка, есть изображение в Resources, я изображение на кнопке изменить на другое изображение из Resources. попробовал что-то типа этого, не получилось