.NET 4.x Изменение текста TextBox в другой форме - Visual Basic .NET

  1. Не могу понять в чем проблема. Есть Form1, на ней TextBox1 и кнопка. Необходимо, чтобы при нажатии кнопки на Form1 текст из TextBox1 появился на Form2 в TextBox1. На Form2 для TextBox1 в свойствах указал public На Form1 в коде кнопки пишу:vb.net1 TextBox1.Text = Form2.TextBox1.TextВ итоге нажимаю на кнопку, текст из Form1.TextBox1 пропадает и не появляется в Form2.TextBox1. Каких-либо ошибок при этом нет. В чем может быть проблема?


textual

Код:

Form2.TextBox1.Text=TextBox1.Text


Похожие ответы
  1. Доброго времени суток, такой вопросик, делаю программу, ответов много (ну как много, 4 ответа) У меня есть NumericUpDown, при увеличении значений (т.е. нажатии вверх) должен изменятся ответ в поле Textbox1.Text и в поле Textbox2.Text, а так же и нажатии вниз. Что я делаю не так? Vb.net vb.net1 2 3 4 5 6 7 8 9 10 11 Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged         For j = 1 To 4             If NumericUpDown1.Value + 1 Then                 TextBox1.Text = a(j)                 TextBox2.Text = b(j)             ElseIf NumericUpDown1.Value - 1 Then                 TextBox1.Text = a(j - 1)                 TextBox2.Text = b(j - 1)             End If         Next     End Sub

  1. Здравствуйте,у меня такая проблема в vb 2010 есть 2е текстовые формы и кнопка,надо чтоб текст по нажатию кнопки вписанный в первую текстовые форму вводился во 2ю,проблема втом чтобы текст имеющийся во 2й текстовые форме остался. Помогите чего то втупил

  1. В Visual Basic 2010 создаю текстовый редактор. Не выходит с "Правкой". Скину то, что есть, помогите кто может с "Копировать", "Вставить", "Вырезать", "Удалить" и Выравниванием по центру, слева, справа. Заранее спасибо!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 Public Class Form1       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         TextBox1.multiline = True         TextBox1.Clear()         Me.Text = "Простой текстовый редактор"         OpenFileDialog1.FileName = Nothing         OpenFileDialog1.Filter = "Текстовые файлы (*.txt) |'.txt|A11 files (*.*)|*.*"         SaveFileDialog1.Filter = "Текстовые файлы (f.txt) |*.txt|A11 files (*.*)|*.*"     End Sub     Private Sub ФайлToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФайлToolStripMenuItem.Click         OpenFileDialog1.ShowDialog()         If OpenFileDialog1.FileName = Nothing Then Exit Sub         Try             Dim Читатель As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.GetEncoding(1251))             Читатель.Close()         Catch Exc As System.IO.FileNotFoundException             MessageBox.Show("Нет такого файла", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)         Catch Exc As Exception             MessageBox.Show(Exc.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)           End Try     End Sub     Private Sub СохранитьКакToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьКакToolStripMenuItem.Click         SaveFileDialog1.FileName = SaveFileDialog1.FileName         If SaveFileDialog1.ShowDialog = DialogResult.OK Then Запись()     End Sub     Sub Запись()         Try             Dim Писатель As New IO.StreamWriter(SaveFileDialog1.FileName, False, System.Text.Encoding.GetEncoding(1251))             Писатель.Write(TextBox1.Text)             Писатель.Close()             TextBox1.Modified = False         Catch Exc As Exception             MessageBox.Show(Exc.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)         End Try     End Sub     Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click         Me.Close()     End Sub     Private Sub Form1_Closeing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing         If TextBox1.Modified - False Then Exit Sub         Dim MBox As DialogResult         MessageBox.Show("Текст был изменен." & vbCrLf & "Сохранить изменения?", "Простой редактор", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation)         If MBox = DialogResult.No Then Exit Sub         If MBox = DialogResult.Cancel Then e.Cancel = True         If MBox = DialogResult.Yes Then             If SaveFileDialog1.ShowDialog = DialogResult.OK Then                 Запись() : Exit Sub             Else                 e.Cancel = True             End If         End If     End Sub         Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click         Clipboard.Clear()         Clipboard.SetText(RichTextBox1.SelectedText)         RichTextBox1.SelectedText = Clipboard.GetText()     End Sub       Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click         FontDialog1.ShowColor = True         FontDialog1.ShowDialog()         RichTextBox1.SelectionFont = FontDialog1.Font         RichTextBox1.SelectionColor = FontDialog1.Color     End Sub       Private Function FontDialog1() As Object         Throw New NotImplementedException     End Function

  1. Научите пожалуйста как через модуль можно организовать подсветку выбранного текстбокса. Понятно что нужно использовать получение фокуса vb.net1  txtbox.BackColor = Color.red. Но не хочется прописывать это событие для каждого текстбокса по отдельности.

  1. Доброго времени суток! Помогите нужен код для того чтобы узнать количество частей в тексте. Например, есть текст "453, 63563,4534, 43653, 435" как узнать количество запятых? также и в массиве "453; 63563;4534; 43653; 435" как узнать количество ; ? Можно это както совместить с функцией Split?

  1. Если пользователь нажимал на checkbox, программа добавляла определенный текст в textbox. И если отменил выбор, именно тот текст который добавился стирался. После всего этого пользователю можно будет сохранить этот текст методом savedialog. Вроде просто, но как со стирание разобраться не знаю.

  1. Добрый день. Долгое время пытался разобраться сам, но не совсем понимаю, как правильно сформировать запрос на поиск. Собственно в чем проблема: задался целью написать форму, содержание которой бы динамически менялось в зависимости от выбранной кнопки. Можно сказать - почти вкладки. "Новый проект" и "Проекты" - это кнопки. По нажатию кнопки "проекты" отображается одни данные, при нажатии кнопки "новый проект" - другие. Так задумывалось. Вопрос - как это реализовать? Моя идея состояла в том, чтобы заранее создать помимо формы Usercontrol,ы с необходимым наполнением, а потом либо как то копировать содержимое контрола в форму, либо как-то включать Usercontrol в форму. Беда в том, что я не знаю как это сделать( Или может Usercontrol тут ни при чем? В любом случае мне показалось что должен быть какой-то удобный способ не создавать кучу форм а работать в рамках одной формы просто динамически меняя содержимое, при этом чтобы это содержимое где-то заранее расположить как хочется.

  1. Здравствуйте, знатоки! Такой вопрос - Как сделать изменение цвета ВСЕХ label на форме. Т.е я имею 37 label на одной форме, и как мне сменить цвет сразу всех, а не по одной. Вот такой код имею: vb.net1 2 3 4 5 If Me.BackColor = Color.Black Then 'тут должна быть смена всех цветов label на белый Else 'на чёрный End IfДобавлено через 36 секунд Цвет текста изменить надо (forecolor)

  1. Доброго времени суток. Возможно ли реализовать следующие есть TextBox и внем значение 555555555555555555555555555555555 Можно ли символы указаные зеленым цветом, сделать скрытными, чтобы была как пробелы?

  1. Подскажите пожалуйста какое свойство текстового поля назначает текст подсказки до внесения данных? Как это можно реализовать в Visual Studio. Смысл - например в текстбоксе поиск затененная надпись "введите фамилию".