Input Box String

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Input Box String

    Hallo VB Forum

    Ich habe eine Input Box gemacht in der gesagt wird Bitte geben sie ein Neues Passwort an.

    der code:

    VB.NET-Quellcode

    1. InputBox("Bitte geben sie ein Neues Passwort an", "Neues Passwort")



    So wenn ich jetzt dort "12345" eingebe und dann auf Ok drücke soll er das an die mysql schicken wie lese ich diesen String aus also ihm sage er soll diese 12345 auslesen.

    jvbsl hat irgendwie recht. 1-2 Zeilen waren es dann doch nicht... ;)

    Rudimentäre Inputbox:
    Kochrezept (wie oben schon erwähnt:) )
    1 neue Form
    1 Label
    1 Textbox
    2 Buttons (btOK und btAbbrechen)

    und a bisserl Inhalt:
    inhalt

    VB.NET-Quellcode

    1. Public Class ext_inputbox
    4. Sub New(ByVal prompt As String, ByVal title As String, ByVal defaultresponse As String,
    5. Optional ByVal usePasswordChar As Boolean = False)
    7. InitializeComponent()
    9. If usePasswordChar Then
    10. TextBox1.PasswordChar = PasswordChar
    11. End If
    13. Me.CancelButton = btAbbrechen 'Wird ausgelöst, wenn ESC gedrückt wird
    14. Me.AcceptButton = btOK 'wird bei OK ausgelöst
    16. Label1.Text = prompt
    17. TextBox1.Text = defaultresponse
    18. Me.Text = title
    20. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
    21. Me.ShowDialog()
    23. End Sub
    26. Private _title As String
    27. Public Property Title() As String
    28. Get
    29. Return _title
    30. End Get
    31. Set(ByVal value As String)
    32. _title = value
    33. End Set
    34. End Property
    37. Private _prompt As String
    38. Public Property Prompt() As String
    39. Get
    40. Return _prompt
    41. End Get
    42. Set(ByVal value As String)
    43. _prompt = value
    44. End Set
    45. End Property
    48. Private _usepasswordchar As Boolean
    49. Public Property UsePassWordChar() As Boolean
    50. Get
    51. Return _usepasswordchar
    52. End Get
    53. Set(ByVal value As Boolean)
    54. _usepasswordchar = value
    55. End Set
    56. End Property
    59. Private _passwordChar As Char = "*"c
    60. Public Property PasswordChar() As Char
    61. Get
    62. Return _passwordChar
    63. End Get
    64. Set(ByVal value As Char)
    65. _passwordChar = value
    66. End Set
    67. End Property
    71. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOK.Click
    72. Me.DialogResult = DialogResult.OK
    73. Prompt = TextBox1.Text
    74. Me.Close()
    75. End Sub
    77. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAbbrechen.Click
    78. Me.DialogResult = DialogResult.Cancel
    79. Prompt = ""
    80. Me.Close()
    81. End Sub
    82. End Class



    Anwendung:

    VB.NET-Quellcode

    1. Dim box As New ext_inputbox("is es so schwer?", "Inputbox ohne viel Aufwand", "Vorgabetext")
    2. box.ShowDialog()
    4. If box.DialogResult = DialogResult.OK Then '...
    5. 'whatever
    6. End If
    8. Dim mpassword As New ext_inputbox("Passworteingabe", "Passwort", "", True)
    9. mpassword.ShowDialog()
    Bilder

    • Unbenannt.JPG

      21,88 kB, 580×238, 314 mal angesehen

    ich hätte das so gemacht:

    VB.NET-Quellcode

    1. Enum eResult
    2. Right
    3. Wrong
    4. Cancel
    5. End Enum
    6. Public Overloads Function ShowDialog(Text As String,Titel As String,DefaultValue As String,Passwort As String)As eResult
    7. lblÜberschrift.Text = Text
    8. Me.Text = Titel
    9. Me.txtPasswort.Text = DefaultValue
    10. Dim res As DialogResult = MyBase.ShowDialog
    11. If res = DialogResult.Cancel Then
    12. Return eResult.Cancel
    13. Else
    14. If MD5(txtPasswort.Text) = Passwort Then
    15. Return eResult.Right
    16. Else
    17. Return eResult.Wrong
    18. End If
    19. End If
    20. End Function
    21. 'TODO: MD5 Hash Funktion

    ist zwar noch länger, aber ich finde den Aufruf dafür recht schön^^
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende