Создание контрола в коде???
Private Sub Form_Load()
Dim tbx As New TextBox()
....
End Sub
Компилятор материться:
"Compile error:
Expected: end of statement"
Роюсь в MSDN нахожу конструктор TextBox-а, как указано в MSDN подключаю System.Windows.Forms.dll все равно материться.
Народ кто знает что подключать а что отключать, и почему он материться, что не так???
Заранее спасибо!
Хочу создать TextBox в коде, пишу код
Private Sub Form_Load()
Dim tbx As New TextBox()
....
End Sub
Компилятор материться:
"Compile error:
Expected: end of statement"
Роюсь в MSDN нахожу конструктор TextBox-а, как указано в MSDN подключаю System.Windows.Forms.dll все равно материться.
Народ кто знает что подключать а что отключать, и почему он материться, что не так???
Заранее спасибо!
Сделай так:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
'Объявляеш экземпляр объекта
Me.TextBox1 = New System.Windows.Forms.TextBox
'Задаеш свойства объекта
With Me.TextBox1
.Location = New System.Drawing.Point(50, 50)
.Multiline = True
.Text = "Мой текст"
.Height = 200
.Width = 200
End With
'создаеш экземпляр
Controls.Add(TextBox1)
End Sub
и никаких ругательств
Сделай так:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
'Объявляеш экземпляр объекта
Me.TextBox1 = New System.Windows.Forms.TextBox
'Задаеш свойства объекта
With Me.TextBox1
.Location = New System.Drawing.Point(50, 50)
.Multiline = True
.Text = "Мой текст"
.Height = 200
.Width = 200
End With
'создаеш экземпляр
Controls.Add(TextBox1)
End Sub
и никаких ругательств
Все так же ругается на .Location = New System.Drawing.Point(50, 50).
Я хочу понять что ему не нравиться в моем коде, ведь синтаксис правельный (если верить MSDN-у) и библиотека подключена???
Народ помогите пожалуйста ламеру!!!
Все так же ругается на .Location = New System.Drawing.Point(50, 50).
Я хочу понять что ему не нравиться в моем коде, ведь синтаксис правельный (если верить MSDN-у) и библиотека подключена???
Народ помогите пожалуйста ламеру!!!
Тогда обращайся к контролу не через форму:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TextBox1 = New System.Windows.Forms.TextBox
With TextBox1
.Location = New System.Drawing.Point(50, 50)
.Multiline = True
.Text = "Мой текст"
.Height = 200
.Width = 200
End With
'создаеш экземпляр
Controls.Add(TextBox1)
End Sub