messagebox

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Message
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.btnO = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.btnOk = New System.Windows.Forms.Button()
        Me.btnCancel = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(-2, 13)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(366, 26)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Label1"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnO
        '
        Me.btnO.Location = New System.Drawing.Point(144, 123)
        Me.btnO.Name = "btnO"
        Me.btnO.Size = New System.Drawing.Size(75, 23)
        Me.btnO.TabIndex = 1
        Me.btnO.Text = "OK"
        Me.btnO.UseVisualStyleBackColor = True
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(1, 51)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(363, 30)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "Label1"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnOk
        '
        Me.btnOk.Location = New System.Drawing.Point(63, 123)
        Me.btnOk.Name = "btnOk"
        Me.btnOk.Size = New System.Drawing.Size(75, 23)
        Me.btnOk.TabIndex = 1
        Me.btnOk.Text = "OK"
        Me.btnOk.UseVisualStyleBackColor = True
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(225, 123)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
        Me.btnCancel.TabIndex = 1
        Me.btnCancel.Text = "Cancel"
        Me.btnCancel.UseVisualStyleBackColor = True
        '
        'Message
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 18.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(366, 196)
        Me.ControlBox = False
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.btnOk)
        Me.Controls.Add(Me.btnO)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Message"
        Me.Text = "Form2"
        Me.TopMost = True
        Me.ResumeLayout(False)

    End Sub

    Friend WithEvents Label1 As Label
    Friend WithEvents btnO As Button
    Friend WithEvents Label2 As Label
    Friend WithEvents btnOk As Button
    Friend WithEvents btnCancel As Button
End Class
 

Public Class Message
    Public Shared msgtype As Integer
    Public Shared strMessage As String
    Public Shared blnOk As Boolean = False
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = FormBorderStyle.Fixed3D
        Dim strmsg1 As String = String.Empty
        Dim strmsg2 As String = String.Empty
        If strMessage.Length > 10 Then
            strmsg1 = strMessage.Substring(0, 10)
            strmsg2 = strMessage.Substring(10, strMessage.Length - 10)
        End If
        Label1.Text = strmsg1
        Label2.Text = strmsg2
        If msgtype = 0 Then
            btnOk.Visible = False
            btnCancel.Visible = False
            btnCancel.Focus()
        Else
            btnO.Visible = False
            btnO.Focus()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnO.Click
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        blnOk = True
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        blnOk = False
        Me.Dispose()
        Me.Close()
    End Sub

End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strMessage As String = "abcedfg1234567890"
        ShowMsg(strMessage)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim strMessage As String = "abcedfg1234567890"
        If ShowMsgOkCan(strMessage) Then
            Label1.Text = "OK"
        Else
            Label1.Text = "CANCEL"
        End If
    End Sub
    Public Shared Function ShowMsgOkCan(ByVal strmsg As String) As Boolean
        Dim blnRet As Boolean = False
        Message.strMessage = strmsg
        Message.msgtype = 1
        Message.StartPosition = FormStartPosition.CenterParent
        Message.ShowDialog()
        blnRet = Message.blnOk
        Return blnRet
    End Function

    Public Shared Sub ShowMsg(ByVal strmsg As String)
        Message.strMessage = strmsg
        Message.msgtype = 0
        Message.StartPosition = FormStartPosition.CenterParent
        Message.ShowDialog()
    End Sub