Блог

Как я могу это сделать в VB6.0…

В текстовом поле есть заголовок по умолчанию, когда он пуст, скажем «Введите имя здесь». но когда пользователь заполнит его, заголовок будет заменен…

В Windows API были встроены баннеры-подсказки (или текст приглашения) начиная с Windows XP. Он не предоставляется VB 6 напрямую, но это не мешает вам добраться до него, выполнив несколько вызовов API.

Этот путь имеет несколько преимуществ по сравнению с реализацией вашего собственного стиля. Во-первых, он уже доступен бесплатно, а это значит, что вам придется проделать совсем немного работы, чтобы его использовать. Во-вторых, он уже полностью протестирован и профессионально отшлифован. В-третьих, он будет автоматически обновляться при выходе следующей версии Windows.

Весь необходимый код доступен здесь: SendMessage: используйте баннеры Cue для приглашения пользователей

Как объясняется на странице, вам необходимо убедиться, что вы включили манифест в свой EXE-файл, чтобы вы могли воспользоваться темами и функциями Windows XP. Единственная реальная сложность в коде заключается в том, что вам нужно убедиться, что вы передаете строку в Юникоде.

Конечный эффект выглядит примерно так:

если вы хотите, чтобы в текстовом поле сохранялось значение по умолчанию до тех пор, пока пользователь не выберет это поле для начала ввода:

используйте событие GotFocus() для вашего текстового поля и вставьте следующее в качестве вашего кода: txtName.text = ""

в событии LostFocus() используется:

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

 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
  

Встроенная альтернатива win32:

 Private Const ECM_FIRST As Long = amp;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, 0amp;, ByVal sCueCaption)
End Sub
  

Для этого нужен манифест, поэтому следующее сохраняется как « <exename>.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>