tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： [解消] MsgBoxがはみ出して押せない
投稿日： 2008/09/03(Wed) 17:11
投稿者： ダンボ
はい。作りました。これだけのステップですが、ちょっと汎用性も持たせたし小技も使ったので紹介します。

Imports System.Windows.Forms
Public Class TextMsgBox
    Public Overloads Function ShowDialog(ByVal TextInfo As String, Optional ByVal TextAsk As String = Nothing) As DialogResult
        txtInfo.Text = TextInfo
        If IsNothing(TextAsk) Then
            lblASK.Text = ""
            NO_Button.Visible = False
        Else
            lblASK.Text = TextAsk
            NO_Button.Visible = True
        End If
        Me.ShowDialog()
    End Function

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub NO_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NO_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.No
        Me.Close()
    End Sub
End Class
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。