none
动态添加控件问题 RRS feed

  • 问题

  • 我想实现单击PictureBox新建一个RichTextBox,之后检测RichTextBox中的文字是否变化,一旦变化触发其他事件。大家有什么好办法吗?
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
            If pd = 5 Then
                Dim lyp As New RichTextBox
                lyp.Focus()
                lyp.HideSelection = False
                lyp.Font = FontDialog1.Font
                lyp.Text = "hk"
                lyp.Location = New Point(Cusor)
                lyp.Multiline = True
                Me.Controls.Add(lyp)
            End If
        End Sub
        Private Sub lyp_TextChanged() Handles lyp.TextChanged
                  'Things...
        End Sub


    Visual Basic 初学者 望关照!

    2013年2月4日 13:01

答案

全部回复