- Код: Выделить всё
Private Sub Колличество_знаковTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Колличество_знаковTextBox.TextChanged
Dim str1, str2, str3, str4, str5, str6, str7, str8, str9 As String
str1 = Код_ЭскизаTextBox.Text
str2 = ФамилияTextBox1.Text
str3 = ИмяTextBox1.Text
str4 = ОтчествоTextBox1.Text
str5 = Дата_РожденияDateTimePicker.Value.ToString
str6 = Дата_СметриDateTimePicker.Value.ToString
str7 = ComboBox1.SelectedText
str8 = ComboBox2.SelectedText
str9 = str1 + str2 + str3 + str4 + str5 + str6 + str7 + str8
Колличество_знаковTextBox.Text = str9.Length()
End Sub
Private Sub СтоимостьTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СтоимостьTextBox.TextChanged
Dim a, b, c As String
a = ComboBox3.SelectedText
b = Колличество_знаковTextBox.Text
c = Str(a * b)
СтоимостьTextBox.Text = c.ToString
End Sub