Mil gracias por contestar como siempre la los que se toman la molestia de contestar y alos que pasan por si pueden ayudar.
Bueno he estado investigando y viendo algunos videos
este es el codigo que tengo y lo estoy haciendo en una clase
La idea es de aca pero no me sale.
https://www.youtube.com/watch?v=2sziyeOS8Ko
Aca una imagen de lo que tengo
![](https://3.bp.blogspot.com/-AaC4lJPZH5o/U1UBZCz9TjI/AAAAAAAAAqs/Lv_XpXt8FcU/s1600/Forosdf.png)
disculpen si se ve mal estoy a la carrera
saludos y muchas gracias de nuevo
Bueno he estado investigando y viendo algunos videos
este es el codigo que tengo y lo estoy haciendo en una clase
Código (cpp) [Seleccionar]
Public Class MarcaDeAgua
Iterator TextBox
Dim MarcaDeAguatxt As String = "Por defecto"
Dim MarcaDeAguaclr As Color = Color.LightGray
Public Property MarcaDeAguaText() As String
Get
Return MarcaDeAguatxt
End Get
Set(value As String)
MarcaDeAguatxt = value
End Set
End Property
Public Property MarcaDeAguaColor() As Color
Get
Return MarcaDeAguaclr
End Get
Set(value As Color)
MarcaDeAguaclr = value
End Set
End Property
Private Sub MarcaDeAgua_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.Text = MarcaDeAguatxt Then
Me.SelectionStar = 0
End If
End Sub
Private Sub MarcaDeAguaTextBox_KeyDown(ByVal sender As Object, ByVal e As System.EventArgs)
If e.KeyCode = 8 Then
If Me.Text. = MarcaDeAguatxt then
If Me.SelectionStar = Me.Text.Length Then
Me.SelectionStar = 0
End If
End If
End Sub
Private Sub MarcaDeAguaTextBox_KeyUp(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.Text.Contains(MarcaDeAguatxt) Then
Me.Text = Remplace(Me.Text, MarcaDeAguatxt, "")
Me.SelectionStar() = Me.MarcaDeAguaText.Length
End If
End Sub
Private Sub MarcaDeAguaTextBox_ParentChange(ByVal sender As Object, ByVal e As System.EventArgs)
Me.SelectionStar() = 0
End Sub
Private Sub MarcaDeAguaTextBox_TextChange(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.Text = MarcaDeAguatxt Then
Me.Font = New Font(Me.Font, FontStyle.Italic)
Me.ForeColor = MarcaDeAguaclr
Else
Me.Font = New Font((Me.Font, FontStyle.Style)
Me.ForeColor = Color.Black
End If
If Me.Text = "" Then
Me.Text = MarcaDeAguatxt
End If
End Sub
End Class
La idea es de aca pero no me sale.
https://www.youtube.com/watch?v=2sziyeOS8Ko
Aca una imagen de lo que tengo
![](https://3.bp.blogspot.com/-AaC4lJPZH5o/U1UBZCz9TjI/AAAAAAAAAqs/Lv_XpXt8FcU/s1600/Forosdf.png)
disculpen si se ve mal estoy a la carrera
saludos y muchas gracias de nuevo