Eigene Messagebox, aber ohne viel am übrigen Code zu ändern

dive26 · 29. Juli 2021, 22:42

Hallo Leute,

ich möchte eine eigene, optisch individuelle Messagebox programieren (mit Code und Windows Forms). Das ist ja eigentlich kein Problem.

Ich möchte aber den Messagebox-Aufruf im vorhandenen Quellcode weiterverwenden ohne diesen irgendwie zu ändern.

Also alle Messagebox.show() aufrufe sollen automatisch meine eigene Funktion aufrufen.
Wie "biege" ich das System so um, dass Messagebox.Show nicht die normale Messagebox aufruft, sondern meine selbst programmierte Funktion?

Vielen Dank für Eure Hilfe.
LG Roland

Bartosz · 29. Juli 2021, 22:52

Hallo Roland, ich grüße dich.
Es gab hier mal einen Thread, da wollte jemand eine dunkle MessageBox haben. Ich meine mich zu erinnern, dass das mittels MessageBox.show nicht geht, wurde gesagt. Da hilft nur eins: Eine eigene Form bauen. Ich habe das mal aus Spaß gemacht (deswegen den Emoji-Arm nicht so ernst nehmen haha xD).

VB.NET-Quellcode

Dim DunkleMessagebox As New MessageboxForm
DunkleMessagebox.uebergebe_Message("arbeitet...")
DunkleMessagebox.Show()

VB.NET-Quellcode

Public Class MessageboxForm
Private Sub MessageboxForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.BackColor = Color.FromArgb(0, 0, 0)
Me.Location = New Point(Form_Main.Location.X + Form_Main.Width, Form_Main.Location.Y)
Button1.BackColor = Color.FromArgb(227, 227, 14)
Button1.ForeColor = Color.FromArgb(54, 54, 51)
Button1.Location = New Point(CInt(Math.Round(Me.Width / 2.0 - Button1.Width / 2.0, 0)), CInt(Math.Round(Me.Height / 2.0 - Button1.Height / 2.0 + 40, 0)))
Label1.Location = New Point(CInt(Math.Round(Me.Width / 2.0 - Label1.Width / 2.0, 0)), CInt(Math.Round(Me.Height / 2.0 - Label1.Height / 2.0, 0)))
Label1.ForeColor = Color.FromArgb(227, 227, 14)
If System.IO.File.Exists(Application.StartupPath & "\arm.png") Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\arm.png")
End If
End Sub
Public Sub uebergebe_Message(ByVal message As String)
Label1.Text = message
Application.DoEvents()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub MessageboxForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
If PictureBox1.Image IsNot Nothing Then
PictureBox1.Image.Dispose()
End If
End Sub
End Class

Edit: Und was ich zu der Zeit noch nicht auf dem Schirm hatte: Die Form in eine klassenweite List(of MessageboxForm) tun und wenn du die nicht mehr brauchst, disposen. Ganz wichtig. Ich hab ja mit Absicht kein Using geschrieben, damit sie nicht sofort verschwindet, daher selbst disposen.

VaporiZed · 29. Juli 2021, 23:14

projektintern:

VB.NET-Quellcode

Friend NotInheritable Class MessageBox
Friend Shared Sub Show(DeineParameter)
'Dein Code
End Sub
End Class

bei Dein Code kannst Du dann Dein individuelles MessageBoxForm aufrufen. So habe ich auch meine eigene MessageBox und meine eigene InputBox gemacht.

RodFromGermany · 30. Juli 2021, 05:39

@dive26 Den Klasssen-Namen MessageBox zu verwenden halte ich nicht für gut, weil Du nach einer Weile nicht mehr weißt, welche Box da aufgerufen wird.
Ich habe auch solch eine Klasse mit 4 überladenen Show()-Prozeduren und diversen Parametern.
Und Du kannst dieselben Icons wie die originale MessageBox: pictureBox.Image = System.Drawing.SystemIcons.Question.ToBitmap().

Nofear23m · 30. Juli 2021, 06:33

Mir ist klar um was es ihm geht.
Es will sein bestehendes Proggi nicht umändern hätte aber gerne eine Optisch andere Box.

Aber wozu gibt es "Suchen und ersetzen".

Mach dir eine Massagebox welche die selben überladungen hat und die selben Datentypen verwendet und lass dir den Quellcode automatisch überall ändern so das der neue Namespace verwendet wird.

Grüße
Sascha

RodFromGermany · 30. Juli 2021, 07:01

Nofear23m schrieb:

Aber wozu gibt es "Suchen und ersetzen".

Hinterher Klasse umbenennen und feddich.

dive26 · 30. Juli 2021, 10:16

Mir ist klar um was es ihm geht.
Es will sein bestehendes Proggi nicht umändern hätte aber gerne eine Optisch andere Box.

Aber wozu gibt es "Suchen und ersetzen".

Wird wohl eh am einfachsten mit Suchen/Ersetzen sein.
Ich dachte da gibts ihrgend ein "override", das man über Moudle und Forms hinweg dafür einsetzen könnte (auch als Lernfaktor).

VaporiZed · 30. Juli 2021, 12:18

Nofear23m schrieb:

Mach dir eine Massagebox

und poste bitte Deinen Code. Ich hab dauernd Rückenverspannungen. Und da wär so ne Massagebox echt praktisch.

Nofear23m · 30. Juli 2021, 12:20

Jetzt werden wir aber penibel....

dive26 · 2. August 2021, 13:26

Habe mir nun eine eigene Messagebox und Inputbox gebaut. Aufgerufen werden beide Funktionen mit identischen Parametern wie die original .NET Funktionen. Rückgabewerte sind ebenfalls identisch.

Im Prinzip habe ich für beide je eine Windows-Form und eine Function geschrieben.
Dann habe ich (wie von Euch vorgeschlagen) alle Messagebox.show durch Messagebox_self ersetzt.
Gleiches mit der Inputbox.

RodFromGermany · 2. August 2021, 15:37

@dive26 Tausche mal die Button OK und Abbruch, dann stimmen sie mit der Reihenfolge der Microsoft-MessageBox überein.

Eigene Messagebox, aber ohne viel am übrigen Code zu ändern

Eigene Messagebox, aber ohne viel am übrigen Code zu ändern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Nofear23m schrieb:

Nofear23m schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben