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
Mit Freundlichem Gruß Zim
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 ?
VB.NET-Quellcode
- Public Class Messagerequester
- Dim FSize As Integer = Font.Size
- Dim Breite, Höhe, Button As Integer
- Public Sub Zeige1(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal picture As Bild) ' As Boolean
- Button2.Visible = False
- Label1.Text = Message
- Button1.Text = Button01
- Me.Text = Title
- Img(picture)
- Einst()
- End Sub
- 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
- Button2.Visible = True
- Label1.Text = Message
- Button2.Text = Button02
- Button1.Text = Button01
- Me.Text = Title
- Img(picture)
- Einst()
- End Sub
- 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
- Button2.Visible = False
- Label1.Text = Message
- Button1.Text = Button01
- Me.Text = Title
- Me.Font = Font
- Me.FontHeight = FSize
- Img(picture)
- Einst()
- End Sub
- 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
- Button2.Visible = True
- Label1.Text = Message
- Button2.Text = Button02
- Button1.Text = Button01
- Me.Text = Title
- Me.Font = Font
- Me.FontHeight = FSize
- Img(picture)
- Einst()
- End Sub
- Private Sub Einst()
- Me.Refresh()
- Höhe = Me.Height
- If Label1.Height > 100 Then
- Höhe += (Button1.Height + 25)
- End If
- Breite = Me.Width
- Me.AutoSize = False
- Me.Height = Höhe
- Me.Width = Breite
- Button1.SetBounds(15, Höhe - (Button1.Height + 35), Button1.Width, Button1.Height)
- Button2.SetBounds(Breite - (Button2.Width + 20), Höhe - (Button2.Height + 35), Button2.Width, Button2.Height)
- PictureBox1.SetBounds(15, 15, 49, 49)
- MyBase.WindowState = FormWindowState.Normal
- MyBase.Opacity = 100
- Me.ShowDialog()
- End Sub
- Private Sub Img(ByVal Picture As Integer)
- If Picture = 1 Then
- PictureBox1.Image = MainForm.information
- ElseIf Picture = 2 Then
- PictureBox1.Image = MainForm.warning
- ElseIf Picture = 3 Then
- PictureBox1.Image = MainForm.important
- ElseIf Picture = 4 Then
- PictureBox1.Image = MainForm.critical
- ElseIf Picture = 5 Then
- PictureBox1.Image = MainForm.question
- Else
- PictureBox1.Image = Nothing
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- MainForm.Messagereturn = Button1.Text
- Me.AutoSize = True
- MyBase.Opacity = 0
- MyBase.WindowState() = FormWindowState.Minimized
- Me.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- MainForm.Messagereturn = Button2.Text
- Me.AutoSize = True
- MyBase.Opacity = 0
- MyBase.WindowState() = FormWindowState.Minimized
- Me.Close()
- End Sub
- Enum Bild
- information = 1
- warning = 2
- important = 3
- critical = 4
- question = 5
- nix = 0
- End Enum
- Private Sub Messagerequester_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Mit Freundlichem Gruß Zim