Erstellen Sie ein Textfeld "Hinweis" Nachricht für zwei verschiedene Textfelder(Wasserzeichen)

Ich Frage mich, wie man erstellen Sie einen "Tipp" für zwei verschiedene Textfelder in einem Formular?

Hier ist der code den ich habe:

Imports System.Runtime.InteropServices

Form_Load-Ereignis:

SendMessage(Me.txtAmount.Handle, &H1501, 0, "$X.XX")
SendMessage(Me.txtMemo.Handle, &H1501, 0, "Enter a transaction memo.")

Freigegebene Funktion:

<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lParam As String) As Int32
    End Function

Dieser code funktioniert nur für die txtAmount textbox. Irgendeine Idee, wie man zwei arbeiten in einer form?

Dank.

Ich glaube nicht, dass die "cue banner" funktioniert auf mehrzeilige Textfelder.
das ist mein problem genau. Ich denke, ich bin bereit zu bewegen auf ein einzeiliges Textfeld für die Funktionalität. Danke!
Auch: Danke an @valter für die nutzlos-Eingang. Es ist eine Schande, dass Sie nicht downvote Kommentare.

InformationsquelleAutor Sev09 | 2014-02-18

vb.net winforms

Erstellen einer Klasse:

Public Class MultilineTextBoxWaterMark
Inherits TextBox

Private Const WM_PAINT = &HF

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    MyBase.WndProc(m)

    If m.Msg = WM_PAINT Then
        If Text.Length <> 0 Or Me.Focused Then
            Return
        End If
        Using g As Graphics = Me.CreateGraphics, format As New StringFormat()
            format.LineAlignment = StringAlignment.Near

            g.DrawString("Enter a transaction memo.", Me.Font, Brushes.LightGray, Me.ClientRectangle, format)
        End Using
    End If
End Sub

End Class

Dann in deiner main-form:

Private MltLnTxtBxWrMrk As New MultilineTextBoxWaterMark

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MltLnTxtBxWrMrk.Location = New Point(100, 30) 'whatever you want
    MltLnTxtBxWrMrk.Width = 300 'whatever you want
    MltLnTxtBxWrMrk.Height = 100 'whatever you want
    MltLnTxtBxWrMrk.BorderStyle = BorderStyle.Fixed3D 'whatever you want
    MltLnTxtBxWrMrk.Multiline = True

    Me.Controls.Add(MltLnTxtBxWrMrk)
End Sub

Ich denke, es funktioniert. Danke

Arbeitete wie ein Charme. Danke! Ich wirklich Liebe der Weg, das sieht so viel, dass ich die änderung meiner anderen Wasserzeichen imitieren diese.
Wie würde ich das anwenden dieser code, um ein weiteres Textfeld? Was verbindet diese Klasse, um den spezifischen text-box? Vielen Dank im Voraus.
Das andere Textfeld ist ein einzeiliges Textfeld, obwohl. Spielt das eine Rolle?
Sie können beliebig viele Textfelder, wie Sie möchten: Private MltLnTxtBxWrMrk1 As New MultilineTextBoxWaterMark etc. Natürlich funktioniert es für eine einzige Linie MltLnTxtBxWrMrk.Multiline = False.
Oh, Hoppla. Ich bin peinlich, dass ich goss über alle code-auf der Suche nach einer Lösung und verpasste den Deklarationen... nochmals vielen Dank!
Nur noch EINE Letzte Frage. Ich entschuldige mich für das Hirn zermartern. Wie würde ich mich über die Herstellung dieser neuen Textfeld die Ausrichtung des Wasserzeichens, wie Rechts Ausrichten?
StringAlignment.Weit
Das schien nicht zu funktionieren... aber ich fand ein ghetto Problemumgehung: ändern Sie die Wasserzeichen, die auf diesen text: "(27 Leerzeichen)$X. XX"

InformationsquelleAutor

Können Sie reproduzieren ein Textfeld-Hinweis ohne API:

''' <summary>
''' Indicates the Textbox Hint.
''' </summary>
Private ReadOnly TextBoxHint As String = "I'm a control hint."

''' <summary>
''' Handles the Hint event of the TextBox control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
Private Sub TextBox_Leave(ByVal sender As Object, ByVal e As EventArgs) Handles _
TextBox1.Leave, TextBox1.HandleCreated

    Select Case CStr(sender.Text)

        Case Is = TextBoxHint
            sender.text = String.Empty

        Case Is = String.Empty
            sender.text = TextBoxHint

    End Select

End Sub

''' <summary>
''' Handles the Enter event of the TextBox control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles _
TextBox1.Enter

    Select Case CStr(sender.Text)

        Case Is = TextBoxHint
            sender.text = String.Empty

    End Select

End Sub

Sowieso, versuchen Sie diese alternative, ich habe es getestet auf verschiedenen textbox-zur gleichen Zeit und arbeitete schön:

' Set Control Hint
' ( By Elektro )
'
' Usage Examples:
' SetControlHint(TextBox1, "I'm a text hint.")

''' <summary>
''' Messages to send to an Edit control, such a TextBox.
''' </summary>
Private Enum EditControlMessages As Integer

    ''' <summary>
    ''' Sets the textual cue, or tip, that is displayed by the edit control to prompt the user for information.
    ''' http://msdn.microsoft.com/en-us/library/windows/desktop/bb761639%28v=vs.85%29.aspx
    ''' </summary>
    SetCueBanner = &H1501I

End Enum

''' <summary>
''' Sends the specified message to a window or windows. 
''' The SendMessage function calls the window procedure for the specified window 
''' and does not return until the window procedure has processed the message.
''' http://msdn.microsoft.com/en-us/library/windows/desktop/ms644950%28v=vs.85%29.aspx
''' </summary>
''' <param name="hWnd">
''' A handle to the Control whose will receive the message.
''' </param>
''' <param name="msg">
''' The message to be sent.
''' </param>
''' <param name="wParam">
''' Additional message-specific information.
''' </param>
''' <param name="lParam">
''' Additional message-specific information.
''' </param>
''' <returns>
''' The return value specifies the result of the message processing; it depends on the message sent.
''' </returns>
<System.Runtime.InteropServices.DllImport("user32.dll",
EntryPoint:="SendMessage",
CharSet:=System.Runtime.InteropServices.CharSet.Auto)>
Private Shared Function SendEditMessage(
        ByVal hWnd As IntPtr,
        ByVal msg As EditControlMessages,
        ByVal wParam As IntPtr,
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr)>
        ByVal lParam As String
) As UInteger
End Function

''' <summary>
''' Sets a text hint for an edit control such a TextBox.
''' </summary>
''' <param name="Control">Indicates the control.</param>
''' <param name="Hint">Indicates the text hint.</param>
''' <returns><c>true</c> if operation succeeds, <c>false</c> otherwise.</returns>
Private Function SetControlHint(ByVal [Control] As Control,
                                ByVal Hint As String) As Boolean

    Return SendEditMessage([Control].Handle, EditControlMessages.SetCueBanner, IntPtr.Zero, Hint)

End Function

InformationsquelleAutor ElektroStudios

Kam gerade über diese.
Neben user3311691 post, empfehle ich hinzufügen von ein paar Zeilen zu verbessern, die Qualität der text gerendert:

Using g As Graphics = Me.CreateGraphics, oFmt As New StringFormat()
            oFmt.LineAlignment = StringAlignment.Near
            g.Clear(SystemColors.Window)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
            g.DrawString(CueBannerText, Me.Font, SystemBrushes.GrayText, Me.ClientRectangle, oFmt)
        End Using

InformationsquelleAutor Andrea De Filippo

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.