- Код: Выделить всё
Public glavn As Form1
Из второй формы обращаюсь к первой:
- Код: Выделить всё
glavn.cmbOsn.Items.Add(txtNas.Text)
А VB возникает и говорит "Object reference not set to an instance of an object"
Почему так и зачем Помогите пожалуйста!
Public glavn As Form1
glavn.cmbOsn.Items.Add(txtNas.Text)
glavn = New Form1
5. Чем Express Editions отличаются от других версий Visual Studio и SQL Server?
Инструменты серии Express Editions предназначены для любителей, студентов и начинающих программистов, поэтому в них имеются не все возможности профессиональных версий Visual Studio и SQL Server. Express Editions ориентированы именно на потребности вышеперечисленных категорий пользователей. В составе продуктов версий Express поставляется специальная документация, которая поможет начинающим программистам быстро усвоить концепции, необходимые для создания более сложных приложений. Кроме того, несколько упрощен пользовательский интерфейс, чтобы второстепенные компоненты не мешали обучению. Те, кто впоследствии захочет перейти на профессиональные версии Visual Studio и SQL Server, смогут без проблем адаптировать свои навыки и программный код
Private Sub cmdOk1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk1.Click
glavn = New Form1
zap = System.IO.File.CreateText("Katalog.txt")
If txtNas.Text = "" OrElse crtbFor.Text = "" Then
MessageBox.Show("Текстовое поле должно быть заполнено!", "UCIS", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation, _
MessageBoxDefaultButton.Button1)
Else
Try
zap.Write(crtbFor.Text & " | " & txtNas.Text & " | ")
Catch ex As Exception
MessageBox.Show("Произошла следующая ошибка: " & ex.Message, "UCIS", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End Try
End If
Select Case lbPrinN.SelectedItem
Case "Простое вещество"
pn1.Visible = False
pn2_2.Visible = False
pn2_1.Visible = True
pn2_3.Visible = False
pn2_4.Visible = False
pn3.Visible = False
pn4.Visible = False
pn3_2.Visible = False
glavn.cmbPV.Items.Add(txtNas.Text)
Case "Кислота"
pn1.Visible = False
pn2_2.Visible = False
pn2_3.Visible = True
pn2_1.Visible = False
pn2_4.Visible = False
pn3.Visible = False
pn4.Visible = False
pn3_2.Visible = False
glavn.cmbKis.Items.Add(txtNas.Text)
' и т. д. ...
End Select
AnarCky писал(а):Дык так и есть... В самом начале процедуры инициализировал glavn = new Form1
Сейчас этот форум просматривают: Google-бот и гости: 0