自定义MsgBox没有窗体激活正在被解雇

Question

我开发了一个自定义MsgBox，几乎可以在任何方式下正常工作。唯一的问题是当MsgBox关闭时父窗体运行Form_Activate代码。正常的MsgBox不会再运行该代码。

我知道我可以添加一个布尔变量来Form_Activate，以检查它是否已经发射，但是当你有一打的形式，这不是最好的解决办法。 那么，有没有办法在关闭我的自定义MsgBox后不运行Form_Activate？ MsgBox表单是否需要某种特殊类型或某种东西？我尝试了所有BorderStyles，但这没有任何区别。

Answer 1

您是否使用其他表单来定制MsgBox？

你不应该直接使用其他形式的显示自定义消息框。 您应该创建一个Activex控件，并且当MsgBox关闭时，Activate事件不会再次触发。

在控制，如果你想它，你可以使用的形式。 （大概只需要放置一个ActiveX控件项目中的代码，并在表单中使用它）

我使用这种方式。

这是使用ActiveX控件，用测试形式太定制MSGBOX例子。

http://www.codeguru.com/code/legacy/vb_othctrl/2166_CustomMsgBox.zip

Answer 2

我创建了一个类的自定义MSGBOX。

Public Class CustomMsgBox 
'Creates the Main form 
Dim Main As New Form 

'Creates the buttons 
Dim Btn1, Btn2, Btn3 As New Button 

'Creates the label 
Dim Lbl As New Label 

'Creates the Output variable 
Dim Output As Integer = 0 

Private Sub Load() 
    'Btn1 properties 
    Btn1.Location = New Point(168, 69) 
    Btn1.AutoSize = True 
    Btn1.AutoSizeMode = AutoSizeMode.GrowOnly 

    'Btn2 properties 
    Btn2.Location = New Point(87, 69) 
    Btn1.AutoSize = True 
    Btn1.AutoSizeMode = AutoSizeMode.GrowOnly 

    'Btn3 properties 
    Btn3.Location = New Point(6, 69) 
    Btn1.AutoSize = True 
    Btn1.AutoSizeMode = AutoSizeMode.GrowOnly 

    'Lbl properties 
    Lbl.Location = New Point(12, 19) 
    Lbl.AutoSize = True 
    Lbl.AutoEllipsis = True 

    'Main form properties 
    Main.Size = New Size(211, 129) 
    Main.AutoSize = True 
    Main.AutoSizeMode = AutoSizeMode.GrowOnly 
    Main.ShowIcon = False 
    Main.Controls.Add(Btn1) 
    Main.Controls.Add(Btn2) 
    Main.Controls.Add(Btn3) 
    Main.Controls.Add(Lbl) 

    'Adds Handlers to the buttons 
    AddHandler Btn1.Click, AddressOf btn1_Click 
    AddHandler Btn2.Click, AddressOf btn2_Click 
    AddHandler Btn3.Click, AddressOf btn3_Click 

End Sub 

Function CstMsgBox(ByRef Msg As String, ByRef Title As String, ByRef B1 As String, Optional ByRef B2 As String = Nothing, Optional ByRef B3 As String = Nothing) As Integer 
    'Runs the Load() Sub 
    Load() 

    'Sets the values 
    Lbl.Text = Msg 
    Btn1.Text = B1 
    Btn2.Text = B2 
    Btn3.Text = B3 
    Main.Text = Title 

    'Checks if there is a value set to Btn2 and Btn3 
    If Btn2.Text = Nothing Then 
     Btn2.Hide() 
    End If 
    If Btn3.Text = Nothing Then 
     Btn3.Hide() 
    End If 

    'Shows the MsgBox 
    Main.Show() 

    'Waits until a button is pressed 
    Do Until Output <> 0 
     Application.DoEvents() 
    Loop 

    'Closes the MsgBox 
    Main.Close() 
    Return Output 

End Function 

Private Sub btn1_Click(ByVal sender As Object, ByVal e As EventArgs) 
    'Sets the Output value to 1 
    Output = 1 

End Sub 

Private Sub btn2_Click(ByVal sender As Object, ByVal e As EventArgs) 
    'Sets the Output value to 2 
    Output = 2 

End Sub 

Private Sub btn3_Click(ByVal sender As Object, ByVal e As EventArgs) 
    'Sets the Output value to 3 
    Output = 3 

End Sub 
End Class 

您可以键入使用它：

Dim CMB As New CustomMsgBox 
    CCMB.CstMsgBox('MSG, 'TITLE, 'BUTTON1, 'Optional: BUTTON2, 'Optional: BUTTON3) 

OR

Dim CMB As New CustomMsgBox 
    Select Case CMB.CstMsgBox('MSG, 'TITLE, 'BUTTON1, 'Optional: BUTTON2, 'Optional: BUTTON3) 
     Case 1 
      'Code to execute when button1 is pressed 
     Case 2 
      'Code to execute when button2 is pressed 
     Case 3 
      'Code to execute when button3 is pressed 
    End Select