Tekstbox met grijze tip: code

• Om die control te bouwen plaatsen we twee tekstvakken op een nieuwe control: een voor de tekst (de invoer), en een ander voor de tip. Beide tekstvakken zijn multiline en gedocked.
• Het tekstvak voor de tip heeft een grijze voorgrondkleur en een cursief lettertyype.
• Het tekstvak met de tip moet onzichtbaar worden als de gebruiker klikt (als hij invoer gaat doen).
• We maken een eigenschap voor de tekst en een voor de tip.
• Dit is de code:

  Public Class twgt
  Public Overrides Property Text() As String

  Get
  Return txtText.Text
  End Get

  Set(ByVal value As String)
  txtText.Text = value
  End Set

  End Property

  Public Property Tip() As String

  Get
  Return txtLabel.Text
  End Get

  Set(ByVal value As String)
  txtLabel.Text = value
  End Set

  End Property

  Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtText.GotFocus
  txtLabel.Visible = False
  End Sub

  End Class

[VBWeb index] - [Copyright]