Visual Basic

Samir Ibrahim wrote:

Form2.MdiParent = Me
Form2.Show()

Now that is not working when there is ToolStripContainer on the form, it gives error message "{"Form that is not a top-level form cannot be displayed as a modal dialog box. Remove the form from any parent form before calling Show."}"

Dave Kreskowiak wrote:

I don't know what you did because you haven't shown a complete code snippet that creates the new child form and displays it

Samir Ibrahim wrote:

If I did not clicked on ToolStripContainer "dock fill in form" the child form is displayed behind ToolStripContainer

Private _KeyDown As New List(Of Int16)

  Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
      If Not _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Add(e.KeyCode)
          Debug.Print("d:" & Chr(e.KeyValue))
      End If
  End Sub

  Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
      If _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Remove(e.KeyCode)
          Debug.Print("u:" & Chr(e.KeyValue))
      End If
  End Sub

Private WithEvents _KeyDown As New List(Of Int16)

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If Not _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Add(e.KeyCode)
        TextBox1.Text &= Chr(e.KeyCode)
    End If
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    If _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Remove(e.KeyCode)
        TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.IndexOf(Chr(e.KeyCode)), 1)
    End If
End Sub

<br />
ins = Registry.ClassesRoot.OpenSubKey("RuleProcessor.Processor")<br />
Dim clsid As String = ins.GetValue("").ToString<br />

<br />
<br />
Dim clsidKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(clsid)<br />

Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString