VB6 文本框中的默认幻像标题

Question

我怎样才能在VB6.0中做到这一点...

<块引用> <块引用>

文本框中有一个默认的标题，当它为空时，比如说“在此处输入名称”。但是当用户填写时，标题将被替换...

Answer 1

本机 win32 替代方案：

Private Const ECM_FIRST As Long = &H1500
Private Const EM_SETCUEBANNER As Long = (ECM_FIRST + 1)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function InitCommonControls Lib "comctl32" () As Long

Private Sub Form_Initialize()
    InitCommonControls
End Sub

Private Sub Form_Load()
    Dim sCueCaption As String
    sCueCaption = StrConv("Enter Name Here", vbUnicode)
    Call SendMessage(Text1.hwnd, EM_SETCUEBANNER, 0&, ByVal sCueCaption)
End Sub

这需要一个清单，因此以下内容保存为“.exe.manifest”（也可以使用资源）

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly
   xmlns="urn:schemas-microsoft-com:asm.v1"
   manifestVersion="1.0">
   <assemblyIdentity
      type="win32"
      processorArchitecture="*"
      version="6.0.0.0"
      name="test"
   />
   <description>Enter your Description Here</description>
   <dependency>
      <dependentAssembly>
         <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            language="*"
            processorArchitecture="*"
            publicKeyToken="6595b64144ccf1df"
         />
      </dependentAssembly>
   </dependency>
</assembly>

Answer 2

如果您希望在用户选择该框开始输入之前在文本框中使用默认值：

请使用文本框的 GotFocus() 事件并插入以下代码作为代码：txtName.text = ""

in LostFocus() 事件使用：

If txtName.text = "" Then
txtName.text = "Enter Name Here"
End If

Answer 3

Private Sub Text1_Change()  
If Trim(Text1.Text) = "" Then
Label1.Caption = "Enter Name Here"
Else
Label1.Caption = ""
End If
End Sub

Private Sub Text1_Click()
Label1.Caption = "Enter Name Here"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Trim(Text1.Text) = "" Then
 Label1.Caption = "Enter Name Here"
Else
 Label1.Caption = ""
 End If
End Sub

Answer 4

Windows API 自此内置了提示横幅（或提示文本） Windows XP。 VB 6 并未直接公开它，但这并不妨碍您通过进行一些 API 调用来获取它。

与实现您自己的自定义样式相比，走这条路线有几个优点。一方面，它已经免费提供，这意味着您只需做很少的工作即可使用它。其次，它已经经过充分测试和专业打磨。第三，每当下一版本的Windows发布时，它都会自动升级。

您需要的所有代码都可以在这里找到：SendMessage：使用提示横幅提示用户

正如该页面所解释的，您需要确保您的 EXE 中包含了清单，以便您可以利用 Windows XP 主题和功能。该代码唯一真正棘手的部分是您需要确保传递 Unicode 字符串。

最终效果如下所示：