dotNETportal.cz

Dobrý den, chci se zeptat na jednu věc:v souvislosti s níže uvedeným kódem chci ještě napsat událost Private Sub mCmb_Click(...) a vyzkoušet na mTextBox poslat metodu Text za běhu. Jak to udělat, aby nová instance mTextBox se stala instancí třídy Form1, aby ji událost mCmb_Click mohla využít?

Děkuji za odpověď.

Marcel Borna

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "mTestClass"
        Me.BackColor = Color.Black
        Dim mTextBox As New System.Windows.Forms.TextBox()
        mTextBox.Location = New Point(100, 100)
        mTextBox.BackColor = Color.LightSlateGray
        mTextBox.Size = New Size(100, 100)
        Me.Controls.Add(mTextBox)
        Dim mCmb As New System.Windows.Forms.Button()
        mCmb.Location = New Point(100, 25)
        mCmb.Size = New Size(100, 50)
        mCmb.BackColor = Color.Black
        mCmb.Text = "Enter"
        mCmb.Font = New Font("Arial", 10, _ System.Drawing.FontStyle.Bold)         
        mCmb.ForeColor = Color.White
        Me.Controls.Add(mCmb)
    End Sub

Děkuji za odpověď.

M.B.