Richtige Fenstergröße ermitteln

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Zim.

    Richtige Fenstergröße ermitteln

    Hey ho,
    ich hab mir einen Messagerequester gemacht aber der will nicht ganz wie ich will.
    Ich habe das Problem das er sich immer so Komische Größen raussucht. Vermutlich wegen der Schriftgröße.
    Ich setzte das Fenster auf Autosize damit er sich an die indifiduellen Texte anpasst. Danach schalte ich dann Autosize aus. Aber Teilweise ist das Fenster viel zu groß oder klein. Hat jemand eine Idee wie ich es besser machen könnte ?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Messagerequester
    3. Dim FSize As Integer = Font.Size
    4. Dim Breite, Höhe, Button As Integer
    6. Public Sub Zeige1(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal picture As Bild) ' As Boolean
    7. Button2.Visible = False
    8. Label1.Text = Message
    9. Button1.Text = Button01
    10. Me.Text = Title
    11. Img(picture)
    12. Einst()
    13. End Sub
    15. Public Sub Zeige2(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Button02 As String, ByVal picture As Bild) ' As String
    16. Button2.Visible = True
    17. Label1.Text = Message
    18. Button2.Text = Button02
    19. Button1.Text = Button01
    20. Me.Text = Title
    21. Img(picture)
    22. Einst()
    23. End Sub
    25. Public Sub Zeige1(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Font As Font, ByVal picture As Bild) ' As Boolean
    26. Button2.Visible = False
    27. Label1.Text = Message
    28. Button1.Text = Button01
    29. Me.Text = Title
    30. Me.Font = Font
    31. Me.FontHeight = FSize
    32. Img(picture)
    33. Einst()
    34. End Sub
    36. Public Sub Zeige2(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Button02 As String, ByVal Font As Font, ByVal picture As Bild) ' As String
    37. Button2.Visible = True
    38. Label1.Text = Message
    39. Button2.Text = Button02
    40. Button1.Text = Button01
    41. Me.Text = Title
    42. Me.Font = Font
    43. Me.FontHeight = FSize
    44. Img(picture)
    45. Einst()
    46. End Sub
    48. Private Sub Einst()
    49. Me.Refresh()
    50. Höhe = Me.Height
    51. If Label1.Height > 100 Then
    52. Höhe += (Button1.Height + 25)
    53. End If
    54. Breite = Me.Width
    55. Me.AutoSize = False
    56. Me.Height = Höhe
    57. Me.Width = Breite
    59. Button1.SetBounds(15, Höhe - (Button1.Height + 35), Button1.Width, Button1.Height)
    60. Button2.SetBounds(Breite - (Button2.Width + 20), Höhe - (Button2.Height + 35), Button2.Width, Button2.Height)
    62. PictureBox1.SetBounds(15, 15, 49, 49)
    63. MyBase.WindowState = FormWindowState.Normal
    64. MyBase.Opacity = 100
    66. Me.ShowDialog()
    69. End Sub
    71. Private Sub Img(ByVal Picture As Integer)
    73. If Picture = 1 Then
    74. PictureBox1.Image = MainForm.information
    75. ElseIf Picture = 2 Then
    76. PictureBox1.Image = MainForm.warning
    77. ElseIf Picture = 3 Then
    78. PictureBox1.Image = MainForm.important
    79. ElseIf Picture = 4 Then
    80. PictureBox1.Image = MainForm.critical
    81. ElseIf Picture = 5 Then
    82. PictureBox1.Image = MainForm.question
    83. Else
    84. PictureBox1.Image = Nothing
    85. End If
    87. End Sub
    89. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    90. MainForm.Messagereturn = Button1.Text
    91. Me.AutoSize = True
    92. MyBase.Opacity = 0
    93. MyBase.WindowState() = FormWindowState.Minimized
    94. Me.Close()
    95. End Sub
    97. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    98. MainForm.Messagereturn = Button2.Text
    99. Me.AutoSize = True
    100. MyBase.Opacity = 0
    101. MyBase.WindowState() = FormWindowState.Minimized
    102. Me.Close()
    103. End Sub
    105. Enum Bild
    106. information = 1
    107. warning = 2
    108. important = 3
    109. critical = 4
    110. question = 5
    111. nix = 0
    112. End Enum
    114. Private Sub Messagerequester_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    116. End Sub
    117. End Class


    Mit Freundlichem Gruß Zim

    Zunächst einmal sollte der Code nach dem Einfügen keine Fehler bringen:

    VB.NET-Quellcode

    1. Dim FSize As Integer = Font.Size
    2. MainForm.xxx
    Danach können wir überlegen, wie es weitergeht.
    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!

    ???
    Also ich bekomme keine Fehlermeldung.
    Vllt weil ich die Form habe welche hier verwendet wird ?
    Das ist ne Form mit 2 Knöpfen einem Textlabel und einer Picturebox.
    Die Bilder werden aus meiner Hauptklasse(Mainform) geholt damit ich die nicht immer neu laden muss.

    RodFromGermany schrieb:

    Zunächst einmal sollte der Code nach dem Einfügen keine Fehler bringen:

    VB.NET-Quellcode

    1. Dim FSize As Integer = Font.Size
    2. MainForm.xxx
    Danach können wir überlegen, wie es weitergeht.

    Vielleicht solltest Du noch ein wenig Information posten, denn wenn Dir geholfen werden soll, hat man keine Lust, den fehlenden Quelltext von Dir nachzuerfinden.
    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!

    Naja das ist die komplette Klasse die ihr da seht ^^
    öhm ja also ich hab die Form noch auf "autoscalemode = font" "optical = 0" und "minimized" dann noch "autosizemode" auf "growandshrink"
    Jo das war eigentlich was ich dazu noch sagen könnte. Wenn ihr wollt könnte ich noch nen screen von dem Fenster machen.

    "Dim FSize As Integer = Font.Size"
    Ist wohl noch ein altes überbleipsel einer älteren version kann also raus.

    :thumbdown:
    Du greifst auf einige Eigenschaften einer anderen Klasse zu, die ich nicht nacherfinden, sondern von Dir gepostet haben möchte.

    VB.NET-Quellcode

    1. If Picture = 1 Then
    2. PictureBox1.Image = MainForm.information
    3. ElseIf Picture = 2 Then
    4. PictureBox1.Image = MainForm.warning
    5. ElseIf Picture = 3 Then
    6. PictureBox1.Image = MainForm.important
    7. ElseIf Picture = 4 Then
    8. PictureBox1.Image = MainForm.critical
    9. ElseIf Picture = 5 Then
    10. PictureBox1.Image = MainForm.question
    11. Else
    12. PictureBox1.Image = Nothing
    13. End If
    Alle Zugriffe auf MainForm.
    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!

    ... das sind einfach nur Bilder ...

    VB.NET-Quellcode

    1. Public question, warning, information, critical, important As Image 'Messagerequester
    3. Try
    4. important = Image.FromFile(Pfad & "\Bilder\" & "important.png")
    5. question = Image.FromFile(Pfad & "\Bilder\" & "question.png")
    6. warning = Image.FromFile(Pfad & "\Bilder\" & "warning.png")
    7. information = Image.FromFile(Pfad & "\Bilder\" & "info.png")
    8. critical = Image.FromFile(Pfad & "\Bilder\" & "error.png")
    9. Catch
    10. MsgBox("Die Bilder des Messagerequesters konnten nicht geladen werden!", MsgBoxStyle.Exclamation, "Bilder Laden")
    11. End Try

    Du meinst

    VB.NET-Quellcode

    1. Public Class MainForm
    2. Public question, warning, information, critical, important As Image 'Messagerequester
    3. End Class
    Ich würde da lieber die Instanz durchreichen:

    VB.NET-Quellcode

    1. xxx = New Messagerequester(Me)
    und dann in Messagerequester per Referenz zugreifen:

    VB.NET-Quellcode

    1. Public Class Messagerequester
    2. Private _Parent As MainForm
    3. Public Sub New(ByVal parent As MainForm)
    4. _Parent = parent
    5. End Sub
    6. '...
    7. Private Sub xxx()
    8. PictureBox1.Image = _Parent.information
    9. End Sub
    10. 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!

    Aso ja sry

    VB.NET-Quellcode

    1. Public Class MainForm
    3. Public question, warning, information, critical, important As Image 'Messagerequester
    5. Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Try
    8. important = Image.FromFile(Pfad & "\Bilder\" & "important.png")
    9. question = Image.FromFile(Pfad & "\Bilder\" & "question.png")
    10. warning = Image.FromFile(Pfad & "\Bilder\" & "warning.png")
    11. information = Image.FromFile(Pfad & "\Bilder\" & "info.png")
    12. critical = Image.FromFile(Pfad & "\Bilder\" & "error.png")
    13. Catch
    14. MsgBox("Die Bilder des Messagerequesters konnten nicht geladen werden!", MsgBoxStyle.Exclamation, "Bilder Laden")
    15. End Try
    17. End Sub
    19. End Class

    und

    VB.NET-Quellcode

    1. Public Messagereturn As String
    haste vergessen? :D :D :D
    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!

    Und wie muss ich nun Dein Programm bedienen, damit der von Dir beschriebene Effekt auftritt?
    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!

    Naja ich sage z.B.

    VB.NET-Quellcode

    1. Messagerequester.Zeige2("Schließen?", "Möchten Sie die Software beenden?", "Ja", "Nein", StandardFont, Messagerequester.Bild.question)

    Geht auch und sieht meiner Meinung nach gut aus.
    So jetzt sage ich z.B.

    VB.NET-Quellcode

    1. Messagerequester.Zeige1("Eingabe", "Ihre Eingabe war ungültig!" & vbCrLf & "Der Endwert kann nicht kleiner als der Untere Messpunkt sein!", "OK", StandardFont, Messagerequester.Bild.information)

    So das geht auch.

    Wenn ich nun aber was kleineres aufrufe, bleibt das Fenster in der Größe der letzten Meldung.
    Heisst, er wird Größer wenn das Label größer wird, aber kleiner nicht mehr.

    Was auch komisch ist wenn ich das Fenster mit ein und der selben Nachricht immer wieder aufrufe, dann sollte das Fenster in der Größe ja gleich bleiben, tut es aber nicht.

    Evtl. muss ich beim schließen sagen das es x = 0 usw ist ?