Acceptbutton

  • VB.NET

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

    Acceptbutton

    Hi Leute,

    ich erzeuge eine komplette Form mit einem Textfeld und 2 Buttons. (Password, OK, Abbrechen)
    von den Funktionalitäten her funktioniert alles wie es soll, nur jetzt bin ich am verzweifeln...

    Die Form wird aufgerufen, das Textfeld ist im Fokus und ich kann direkt schreiben, wenn ich jetzt Enter drücke passiert nichts (ja der Button OK ist als Acceptbutton gesetzt).

    ich hatte gedacht mit btnOK.focus() = true zu arbeiten aber dann ist das Textfeld nicht mehr aktiv beim starten!

    Hat jemand von euch eine Ahnung?

    @Chris:
    1. die Button müssen die Property DialogResult = {OK, Cancel} haben,
    2. der Dialog muss AcceptButton = Button1 und CancelButton = Button2 haben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Bei mir geht es.
    Mach Dir mal eine neue Form und füg diesen Designercode ein:
    Form2.Designer.vb

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form2
    3. Inherits System.Windows.Forms.Form
    5. 'Form overrides dispose to clean up the component list.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Required by the Windows Form Designer
    18. Private components As System.ComponentModel.IContainer
    20. 'NOTE: The following procedure is required by the Windows Form Designer
    21. 'It can be modified using the Windows Form Designer.
    22. 'Do not modify it using the code editor.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.btnOK = New System.Windows.Forms.Button()
    26. Me.btnCancel = New System.Windows.Forms.Button()
    27. Me.TextBox1 = New System.Windows.Forms.TextBox()
    28. Me.SuspendLayout()
    29. '
    30. 'btnOK
    31. '
    32. Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
    33. Me.btnOK.Location = New System.Drawing.Point(31, 72)
    34. Me.btnOK.Name = "btnOK"
    35. Me.btnOK.Size = New System.Drawing.Size(75, 23)
    36. Me.btnOK.TabIndex = 1
    37. Me.btnOK.Text = "OK"
    38. Me.btnOK.UseVisualStyleBackColor = True
    39. '
    40. 'btnCancel
    41. '
    42. Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
    43. Me.btnCancel.Location = New System.Drawing.Point(112, 72)
    44. Me.btnCancel.Name = "btnCancel"
    45. Me.btnCancel.Size = New System.Drawing.Size(75, 23)
    46. Me.btnCancel.TabIndex = 2
    47. Me.btnCancel.Text = "Cancel"
    48. Me.btnCancel.UseVisualStyleBackColor = True
    49. '
    50. 'TextBox1
    51. '
    52. Me.TextBox1.Location = New System.Drawing.Point(31, 13)
    53. Me.TextBox1.Name = "TextBox1"
    54. Me.TextBox1.Size = New System.Drawing.Size(100, 20)
    55. Me.TextBox1.TabIndex = 0
    56. '
    57. 'Form2
    58. '
    59. Me.AcceptButton = Me.btnOK
    60. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    61. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    62. Me.CancelButton = Me.btnCancel
    63. Me.ClientSize = New System.Drawing.Size(284, 262)
    64. Me.Controls.Add(Me.TextBox1)
    65. Me.Controls.Add(Me.btnCancel)
    66. Me.Controls.Add(Me.btnOK)
    67. Me.Name = "Form2"
    68. Me.Text = "Form2"
    69. Me.ResumeLayout(False)
    70. Me.PerformLayout()
    72. End Sub
    73. Friend WithEvents btnOK As System.Windows.Forms.Button
    74. Friend WithEvents btnCancel As System.Windows.Forms.Button
    75. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    77. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. 'Button OK
    2. btnOK.Text = "OK"
    3. btnOK.Location() = New Drawing.Point(13, 62)
    4. PAbfrage.Controls.Add(btnOK)
    5. AddHandler btnOK.Click, AddressOf btnOK_click
    6. Me.btnOK.DialogResult = Windows.Forms.DialogResult.Yes
    7. Me.AcceptButton = Me.btnOK
    10. 'Button Abbrechen
    11. Dim btnAbbrechen As New Button
    12. Me.CancelButton = btnAbbrechen
    13. btnAbbrechen.Text = "Abbrechen"
    14. btnAbbrechen.Location() = New Drawing.Point(103, 62)
    15. PAbfrage.Controls.Add(btnAbbrechen)
    16. AddHandler btnAbbrechen.Click, AddressOf btnAbbrechen_click

    hahaha, da funktioniert es! es reicht nur me.acceptbutton = btnOK zu setzen (und die tabstopps in der richtigen folge zu legen... )

    im code leider nicht...
    So, ich habe den Fehler selber gefunden, wenn man eine neue Form mit dem Namen "PAbfrage" anlegt, sollte man anschließend auch den Acceptbutton von PAbfrage nehmen und nicht von ME!

    Komisch das kein Fehler gekommen ist aber jetzt mit PAbfrage.Acceptbutton =... funktioniert es. Trotzdem vielen Dank für die Tipps!

    :thumbsup: :thumbsup:

    Edit:
    Bitte keine Doppelposts. Bei Ergänzungen die "Bearbeiten"-Funktion verwenden.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „der_Kurt“ ()

    Chris schrieb:

    PAbfrage.Acceptbutton =...
    Ist PAbfrage der Name der Form oder die Instanz? Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende