Question

我在VB6 Control中有一个文本框，其中包含一些从数据库填充的数据。没有数据时，它将为空白。现在我的要求是，该文本框应该是只读，它应该有一些工具提示文本。

我试图保留Textbox1.Enabled = false但这并没有显示我的工具提示。当我保留Textbox1.Locked = True时，我会收到工具提示，但我可以编辑文本框中的文字，我们应该无法做到。

请建议我解决。

Answer 1

正如其他人指出Locked属性应该有效，您可以尝试使用Windows API。

Option Explicit

Private Const EM_SETREADONLY = &HCF

Private Sub Form_Load()

    Call SendMessage(Text1.hwnd, EM_SETREADONLY, 1, 0)

End Sub