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
 

 

 

Imports System.Windows.Forms
Public Class Form1
    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 msg.strMessage.Length > 10 Then
            strmsg1 = msg.strMessage.Substring(0, 10)
            strmsg2 = msg.strMessage.Substring(10, msg.strMessage.Length - 10)
        End If
        Label1.Text = strmsg1
        Label2.Text = strmsg2
        If msg.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
        msg.blnOk = True
        Me.Dispose()
        Me.Close()
    End Sub

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

    Public Shared msgtype As Integer
    Public Shared strMessage As String
    Public Shared blnOk As Boolean = False

Imports System.Windows.Forms
Public Class Form1
    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 msg.strMessage.Length > 10 Then
            strmsg1 = msg.strMessage.Substring(0, 10)
            strmsg2 = msg.strMessage.Substring(10, msg.strMessage.Length - 10)
        End If
        Label1.Text = strmsg1
        Label2.Text = strmsg2
        If msg.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
        msg.blnOk = True
        Me.Dispose()
        Me.Close()
    End Sub

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

    Public Shared msgtype As Integer
    Public Shared strMessage As String
    Public Shared blnOk As Boolean = False

    Public Shared Function ShowMsgOkCan(ByVal strmsg As String) As Boolean
        Dim blnRet As Boolean = False
        strMessage = strmsg
        msgtype = 1
        Dim frm As New Form1
        frm.StartPosition = FormStartPosition.CenterParent
        frm.ShowDialog()
        blnRet = blnOk
        Return blnRet
    End Function
    Public Shared Sub ShowMsg(ByVal strmsg As String)
        strMessage = strmsg
        msgtype = 0
        Dim frm As New Form1
        frm.StartPosition = FormStartPosition.CenterParent
        frm.ShowDialog()
    End Sub
End Class