<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