Option Explicit On
 
Imports System
Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Drawing.Drawing2D
Imports System.Collections.Generic
 
Public Class AKLOIT
    Inherits Form
 
    ''' <summary>
    ''' Declare All Message Buttons
    ''' </summary>
    ''' <remarks></remarks>
 
    Private WithEvents CmdOk As Button
    Private WithEvents CmdYes As Button
    Private WithEvents CmdNo As Button
    Private WithEvents CmdCancel As Button
    Private WithEvents CmdAbort As Button
    Private WithEvents CmdRetry As Button
    Private WithEvents CmdIgnore As Button
 
    ''' <summary>
    ''' Declare All Message Variables
    ''' </summary>
    ''' <remarks></remarks>
 
    Private WithEvents Frm As Form
    Private WithEvents LblHeader As Label
    Private WithEvents PicBox As PictureBox
    Private WithEvents LblBody As Label
 
    Private RetValue As DialogResult
    Private MLocation As Point
    Private BSize As Size = Nothing
    Private BFont As New Font("Tahoma", 9, FontStyle.Bold)
 
    Private _HeaderTitle As String = ""
    Private _BodyMessage As String = ""
    Private _MessageIcon As MessageBoxIcon
    Private _MessageButton As MessageBoxButtons
 
    ''' <summary>
    ''' Set Constructor For MessageBox
    ''' </summary>
    ''' <remarks></remarks>
 
    Public Sub New()
 
        Frm = New Form()
        BSize = New Size(430, 150)
 
        With Frm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .Size = BSize
            .StartPosition = FormStartPosition.CenterScreen
            .ShowIcon = False
            .TopMost = True
            .Text = ""
            .Font = BFont
            .Opacity = 0.85
            .ShowInTaskbar = False
            Call AddHeaderLabel()
            .Controls.Add(LblHeader)
            Call AddPicture()
            .Controls.Add(PicBox)
            Call AddBodyLabel()
            .Controls.Add(LblBody)
        End With
 
    End Sub
 
    Public Sub New(ByRef StartPosition As _
      System.Windows.Forms.FormStartPosition)
 
        Frm = New Form()
        BSize = New Size(430, 150)
 
        With Frm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .Size = BSize
            .StartPosition = StartPosition
            .ShowIcon = False
            .TopMost = True
            .Text = ""
            .Font = BFont
            .Opacity = 0.85
            .ShowInTaskbar = False
            Call AddHeaderLabel()
            .Controls.Add(LblHeader)
            Call AddPicture()
            .Controls.Add(PicBox)
            Call AddBodyLabel()
            .Controls.Add(LblBody)
        End With
 
    End Sub
 
    ''' <summary>
    ''' Declare All Properties And Methods
    ''' </summary>
    ''' <remarks></remarks>
 
    Private Sub AddHeaderLabel()
 
        LblHeader = New Label()
 
        With LblHeader
            .Text = ""
            .Width = 430
            .Height = 23
            .Dock = DockStyle.Top
            .Font = BFont
            .Visible = True
        End With
 
    End Sub
 
    ...

...
Private Sub AddBodyLabel()
 
        LblBody = New Label()
        MLocation = New Point(49, 31)
 
        With LblBody
            .Text = ""
            .Width = 310
            .Height = 87
            .AutoSize = False
            .Location = MLocation
            .BorderStyle = BorderStyle.None
            .BackColor = Color.Transparent
            .Font = BFont
            .Visible = True
        End With
 
    End Sub
 
    Private Sub AddPicture()
 
        PicBox = New PictureBox()
        MLocation = New Point(7, 31)
 
        With PicBox
            .Location = MLocation
            .BorderStyle = BorderStyle.None
            .BackColor = Color.Transparent
            .Width = 35
            .Height = 35
            .Visible = True
        End With
 
    End Sub
 
    Public Function ShowSAMAK_MESSAGE(ByVal MsgMessage As String, ByVal _
      MsgButton As MessageBoxButtons, _
                                 Optional ByVal MsgICon As MessageBoxIcon = _
                                 MessageBoxIcon.None, _
                                 Optional ByVal MsgHeader As String = "") As _
                                 DialogResult
 
        _HeaderTitle = MsgHeader.ToString()
        _BodyMessage = MsgMessage.ToString()
        _MessageIcon = MsgICon
        _MessageButton = MsgButton
 
        LblBody.Text = MsgMessage.ToString()
 
        If MessageBoxIcon.Asterisk = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Asterisk.ToBitmap()
        End If
 
        If MessageBoxIcon.Error = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Error.ToBitmap()
        End If
 
        If MessageBoxIcon.Exclamation = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Exclamation.ToBitmap()
        End If
 
        If MessageBoxIcon.Hand = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Hand.ToBitmap()
        End If
 
        If MessageBoxIcon.Information = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Information.ToBitmap()
        End If
 
        If MessageBoxIcon.Question = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Question.ToBitmap()
        End If
 
        If MessageBoxIcon.Warning = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Warning.ToBitmap()
        End If
 
        Call ShowButton(_MessageButton)
        Frm.ShowDialog()
 
        Return RetValue
 
    End Function
 
    ....

...
Private Sub ShowButton(ByVal BtnType As MessageBoxButtons)
 
        BSize = New Size(58, 24)
 
        If BtnType = MessageBoxButtons.AbortRetryIgnore Then
            BSize = New Size(58, 24)
            CmdAbort = New Button
            Dim BLocation As New Point(248, 120)
            Call CommanSet(CmdAbort, "&Abort", BSize, BLocation)
            BLocation = Nothing
            CmdRetry = New Button
            BLocation = New Point(308, 120)
            Call CommanSet(CmdRetry, "&Retry", BSize, BLocation)
            BLocation = Nothing
            CmdIgnore = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdIgnore, "&Ignore", BSize, BLocation)
            BLocation = Nothing
        End If
 
      If BtnType = MessageBoxButtons.OK Then
            BSize = New Size(58, 24)
            CmdOk = New Button
            Dim BLocation As New Point(368, 120)
            Call CommanSet(CmdOk, "&Ok", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.OKCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Ok", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&Cancel", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.RetryCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Retry", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&Cancel", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.YesNo Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Yes", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&No", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.YesNoCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(248, 120)
            Call CommanSet(CmdYes, "&Yes", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(308, 120)
            Call CommanSet(CmdNo, "&No", BSize, BLocation)
            BLocation = Nothing
            CmdCancel = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdCancel, "&Cancel", BSize, BLocation)
            BLocation = Nothing
        End If
 
    End Sub
 
    ....

...
Private Sub CommanSet(ByVal Btn As Button, ByVal Txt As String, ByVal Sz As _
  Size, ByVal Lc As Point)
 
        With Btn
            .Size = Sz
            .Text = Txt
            .BackColor = Color.Transparent
            .FlatAppearance.BorderSize = 0
            .FlatStyle = FlatStyle.Standard
            .Location = Lc
            .Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or _
              AnchorStyles.Right
            .TextAlign = ContentAlignment.MiddleCenter
            .Font = BFont
            .Visible = True
        End With
 
        Frm.Controls.Add(Btn)
 
    End Sub
 
    Private Sub LblHeader_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles LblHeader.MouseDown
 
        MLocation = e.Location
 
    End Sub
 
    Private Sub LblHeader_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles LblHeader.MouseMove
 
        If String.Compare(Control.MouseButtons.ToString(), "Left") = 0 Then
            Dim MSize As New Size(MLocation)
            MSize.Width = e.X - MLocation.X
            MSize.Height = e.Y - MLocation.Y
            Frm.Location = Point.Add(Frm.Location, MSize)
        End If
 
    End Sub
 
    Private Sub LblHeader_Paint(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles LblHeader.Paint
 
        Dim MGraphics As Graphics = e.Graphics
        Dim MPen As New Pen(Color.FromArgb(96, 155, 173), 1)
 
        Dim Area As New Rectangle(0, 0, LblHeader.Width - 1, LblHeader.Height - _
          1)
        Dim LGradient As New LinearGradientBrush(Area, Color.FromArgb(166, 197, _
        227), Color.FromArgb(245, 251, 251), _
        LinearGradientMode.BackwardDiagonal)
        MGraphics.FillRectangle(LGradient, Area)
        MGraphics.DrawRectangle(MPen, Area)
 
        Dim DrawFont As New Font("Tahoma", 10, FontStyle.Bold)
        Dim DrawBrush As New SolidBrush(Color.Black)
        Dim DrawPoint As New PointF(2.0F, 3.0F)
 
        Dim DrawGradientBrush As New LinearGradientBrush(e.Graphics.ClipBounds, _
          Color.White, _
               Color.FromArgb(122, 158, 226), _
               LinearGradientMode.ForwardDiagonal)
 
        e.Graphics.DrawString(_HeaderTitle.ToString(), DrawFont, DrawBrush, _
          DrawPoint)
 
    End Sub
 
Private Sub FrmMessageBox_Paint(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Frm.Paint
 
        Dim MGraphics As Graphics = e.Graphics
        Dim MPen As New Pen(Color.FromArgb(96, 155, 173), 1)
 
        Dim Area As New Rectangle(0, 0, Frm.Width - 1, Frm.Height - 1)
        Dim LGradient As New LinearGradientBrush(Area, Color.FromArgb(166, 197, _
          227), Color.FromArgb(245, 251, 251), _
          LinearGradientMode.BackwardDiagonal)
        MGraphics.FillRectangle(LGradient, Area)
        MGraphics.DrawRectangle(MPen, Area)
 
    End Sub
 
    Private Sub CmdOk_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdOk.Click
 
        RetValue = Windows.Forms.DialogResult.OK
        Frm.Dispose()
 
    End Sub
 
    Private Sub CmdYes_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdYes.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.Yes
 
    End Sub
 
    Private Sub CmdNo_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdNo.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.No
 
    End Sub
 
    Private Sub CmdRetry_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdRetry.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.Retry
 
    End Sub
 
    Private Sub CmdCancel_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdCancel.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.Cancel
 
    End Sub
 
    Private Sub CmdAbort_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdAbort.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.Abort
 
    End Sub
 
    Private Sub CmdIgnore_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles CmdIgnore.Click
 
        Frm.Dispose()
        RetValue = Windows.Forms.DialogResult.Ignore
 
    End Sub
 
End Class

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        Dim ak As New deineDLL.AKLOIT
        ak.ShowSAMAK_MESSAGE("JUHU", MessageBoxButtons.OK, MessageBoxIcon.Hand, _
          "TEST")
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus