VB.net模块中给textbox.text属性赋值不能显示到窗体的问题

楚狂歌 2014-09-28 03:20:34

我在模块中给一个文本框赋值frm.textbox1.text=“123456”，发现不能显示到窗体中，
但是在窗体模块的代码中写me.textbox1.text=“123456”，就没有问题，为什么？
如果我一定要在模块中给textbox.text属性赋值,该怎么办？
从VB6转.net之后，我调试的时候代码都不能实时改变显示，好郁闷

...全文

925 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

geyewei 2014-10-01

打赏
举报

引用 6 楼 u011266608 的回复:

再来一个问题对于一个textbox，希望做如下处理 1、若没有选中，则单击全部选中 2、若已全部选中，单击取消选中我在GotFocus事件、Enter事件中使用SelectAll方法无效在Click和MouseUp事件中使用则不能取消选中求解啊求解，查了一下都没有好办法 @caozhy @drowsihead

因为鼠标单击会导致文本框中的被选中状态消失，所以不能通过在鼠标的事件处理中来判断选择区域的长度的方法来实现，只好通过一个类内部变量来实现了。代码如下：


    Private m_blnSelectAll As Boolean = True
    Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        If m_blnSelectAll Then
            TextBox1.SelectAll()
        Else
            TextBox1.SelectionLength = 0
        End If
        m_blnSelectAll = Not m_blnSelectAll
    End Sub

楚狂歌 2014-09-29

打赏
举报

焦点没有移动过，一直保持在textbox中

楚狂歌 2014-09-29

打赏
举报

再来一个问题对于一个textbox，希望做如下处理 1、若没有选中，则单击全部选中 2、若已全部选中，单击取消选中我在GotFocus事件、Enter事件中使用SelectAll方法无效在Click和MouseUp事件中使用则不能取消选中求解啊求解，查了一下都没有好办法 @caozhy @drowsihead

楚狂歌 2014-09-29

打赏
举报

引用 4 楼 drowsihead 的回复:

[quote=引用 3 楼 caozhy 的回复:] 估计是你创建了一个新的窗体实例对象，你更新的不是原来的那个，所以看不到效果。你应该用Application.OpenForms集合找你已经打开的那个窗体

主要是你语句中的frm是哪定义的，如果是在一个Module里，那你必须在创建窗体的时候将该窗体赋值给frm变量，或者索性用frm创建窗体，这样应该就可以了。[/quote] 我在sub main里定义的是一个局部的new form。。。看来我对net的完全没搞明白

threenewbee 2014-09-29

打赏
举报

参见 http://bbs.csdn.net/topics/390897540 都类似问题

office_2007 2014-09-29

打赏
举报

您的错误在您不能在Module模块中直接引用和实例化窗体类frm, frm。textbox1.text=“123456”，这样不会指向本窗体类的TextBox控件。解决代码如下；


Module Module1
    Private TextBox1 As TextBox
    Public Property _TextBox1() As TextBox
        Get
            Return TextBox1
        End Get
        Set(ByVal value As TextBox)
            TextBox1 = value
        End Set
    End Property

    Sub MySub()
        TextBox1.Text = "123456"

    End Sub
End Module

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Module1._TextBox1 = Me.TextBox1
        Module1.MySub()
    End Sub

End Class