时间戳

首页 > 解决方案 > 填充 RichTextBox 仅适用于点击事件

vb.net - 填充 RichTextBox 仅适用于点击事件

问题描述

我在表单中有一个 RichTextBox，我尝试从模块中填写；我已经尝试了几种不同的方法来让它工作，但我无法弄清楚实际问题是什么？

在我的模块中，我有一个实例::

 Dim Protokoll_UI As New Form1

有了这个，我直接填充 RichTextBox。

 Protokoll_UI.RichTextBox.Text = File.ReadAllText(filename)

我也已经尝试从模块中调用 Form1 类中的一个方法，但它对它没有任何影响：

 Module Module1
   Public Sub get_protokoll()
     Protokoll_UI.Protokoll() 
   End sub
 End Module      

 Class Form1
   Public Sub Protokoll()
      Protokoll_UI.Text = File.ReadAllText(Dateiname)
   End Sub
 End Class

有趣的是，我ToolStripMenuItem.Click在类中也有一个事件，我在其中更新了 RichTextBox，我如何填充 RichTextBox 并不重要，我可以调用 sub 或直接填充它，它工作得很好：

 Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktualisierenToolStripMenuItem.Click
    Protokoll()
End Sub

即使更改WordWrapRichTextBox 的属性也无济于事。目前我完全不知道在哪里可以解决这个问题。

顺便提一句。这是我在整个项目中搜索 RichTextBox 时的结果。

在此处输入图像描述

标签： vb.net

解决方案

在您的模块中，只需执行以下操作：

Form1.RichTextBox.Text = File.ReadAllText(filename)

Dim Protokoll_UI As New Form1并从中删除。

您可以Protokoll()从 Form1 调用模块中的函数，因为它在模块中；模块是全局的，并且可供项目中的所有表单/类使用。

推荐阅读