none
Error creating window handle RRS feed

  • Question

  • Hi,

    I have a MDI container and also I use my own custom class MsgBox called ShowMsg which I use mostly on the child forms, so far it worked fine until I realized that the Showmsg did not stick to the parent form (MDIContainer), since my Showmsg class uses a showdialog() but the class cannot see the MDIContainer, I created a global var type Windows.Forms.Form and assign it the MDIContainer, now in my Showmsg class I can use ShowDialog(MDIvar) to let it know who is the parent.

    Now, sometimes I get the error "Error creating window handle" which I don't know why this happens.

    This is part of the code:

    Public Function ShowMsg(ByVal Text As String, ByVal Icon As ShowMsgImage, ByVal Title As String) As DialogResult
            Dim SMF As New ShowMsgForm
    
            'Set the title bar
            SMF.Text = Title
    
            'Select an image and sound based on the Icon parameter
            Select Case Icon
                Case ShowMsgImage.Alert
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_Warning
                    SMF.Sound = Media.SystemSounds.Asterisk
                Case ShowMsgImage.Confirm
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_Confirm
                    SMF.Sound = Media.SystemSounds.Question
                Case ShowMsgImage.Critical
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_NotAllowed
                    SMF.Sound = Media.SystemSounds.Hand
                Case ShowMsgImage.Info
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_Info
                    SMF.Sound = Media.SystemSounds.Asterisk
                Case ShowMsgImage.Security
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_Lock
                    SMF.Sound = Media.SystemSounds.Beep
                Case ShowMsgImage.UnderConstruction
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_NotAllowed
                    SMF.Sound = Media.SystemSounds.Asterisk
                Case ShowMsgImage.Ok
                    SMF.MessagePictureBox.Image = My.Resources.ico_showmsg_ok
                    SMF.Sound = Media.SystemSounds.Asterisk
            End Select
    
            'Set other properties
            SMF.TextLabel.Text = Text
            SMF.QuestionTextLabel.Text = ""
            SMF.Button1.Visible = True
            SMF.Button1.Text = "OK"
            SMF.Button1.DialogResult = DialogResult.OK
            SMF.Button2.Visible = False
            SMF.Button3.Visible = False
    
            'Resize the form
            SMF.SizeForm()
    
            'Set its starting position
            SMF.StartPosition = FormStartPosition.CenterScreen
    
            'Display the form modally and return its DialogResult
            Try
                Return SMF.ShowDialog(MFR)
            Catch ex As Exception
    
            End Try
    
    
        End Function

    Any ideas what could be wrong?

    Regards.


    G.Waters

    Thursday, January 24, 2019 5:44 PM

All replies