Name der Library:
Messagebox-Lib
Beschreibung:
Mithilfe der Lib kann man seine Messagebox individuell gestallten, z.b. Buttonbeschriftung oder Icon der Meldung
Screenshot(s):
Verwendete Programmiersprache und IDE:
Visual Basic .NET IDE: VB 2008 Express
Systemanforderungen:
.NET Framework 3.5
Download:
Messagebox-Lib.dll
Lizenz/Weitergabe:
Freeware
Einkompileren erlaubt, Nennung erwünscht
Dekompilieren untersagt
Warum sollte man die Lib verwenden?:
Vieles kann angepasst werden (im gegensatz zur normalen Msgbox) zb. Farbverlauf und es ist übersichtlicher als sich jedes mal selbst eine Form für eine Messagebox zu basteln. Außerdem sucht sich die Messageboc die optimale Größe von allein.
Beispiel Code:
Spoiler anzeigen
Changelog:
-ersten kleinen Bug behoben (automatische Formgröße)
- 31.12.2012 erstes Upadte: Inputbox hinzugefügt und noch ein paar Bugs gefixt.
Messagebox-Lib
Beschreibung:
Mithilfe der Lib kann man seine Messagebox individuell gestallten, z.b. Buttonbeschriftung oder Icon der Meldung
Screenshot(s):
Verwendete Programmiersprache und IDE:
Visual Basic .NET IDE: VB 2008 Express
Systemanforderungen:
.NET Framework 3.5
Download:
Messagebox-Lib.dll
Lizenz/Weitergabe:
Freeware
Einkompileren erlaubt, Nennung erwünscht
Dekompilieren untersagt
Warum sollte man die Lib verwenden?:
Vieles kann angepasst werden (im gegensatz zur normalen Msgbox) zb. Farbverlauf und es ist übersichtlicher als sich jedes mal selbst eine Form für eine Messagebox zu basteln. Außerdem sucht sich die Messageboc die optimale Größe von allein.
Beispiel Code:
VB.NET-Quellcode
- Imports System.Drawing
- Public Class Form1
- Public WithEvents MyMessagebox As New Messagebox_Lib.Messagebox
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- MyMessagebox.Anzahl_Buttons = 2 ' Button Anzahl festlegen (1-3)
- MyMessagebox.Button1_Beschriftung = "Bestätigen" 'erster Button
- MyMessagebox.Button2_Beschriftung = "" 'zweiter Button
- MyMessagebox.Button3_Beschriftung = "Ablehnen" 'dritter Button
- MyMessagebox.Icon = My.Resources.maintenance
- MyMessagebox.Image = My.Resources.maintenance_icon
- MyMessagebox.Farbverlauf(Color.White, Color.DarkGray, Drawing2D.LinearGradientMode.Vertical) 'Farbverlauf optional
- MyMessagebox.Meldung = "Sollen die Änderungen vorgenommen werden?" 'Überschrift
- MyMessagebox.Überschrift = "Einstellungen" ' o.ä.
- MyMessagebox.Fade = True 'Einblendeffekt
- MyMessagebox.Show()
- End Sub
- Private Sub MyMessagebox_Returning_Result(ByVal content As Object) Handles MyMessagebox.Returning_Result
- Label1.Text = MyMessagebox.Returned_Result 'Gibt Text des angeklickten Buttons zurück
- End Sub
- End Class
Changelog:
-ersten kleinen Bug behoben (automatische Formgröße)
- 31.12.2012 erstes Upadte: Inputbox hinzugefügt und noch ein paar Bugs gefixt.
faxe1008
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „faxe1008“ ()