[VB.NET]DockableToolWindow

[baron94]

Allora andando a questo link ho scaricato la dll Crom per creare delle Properties Grid simili a questa:
[SPOILER][/SPOILER]

Allora il modo in C# per creare la toolbar è questo:

private void ShowNewForm ()
{
   // Create a new instance of the child form.
   DockableToolWindow childForm = new DockableToolWindow ();

   // Add the form to the dock container
   _dockContainer1.AddToolWindow (childForm);

   // Show the form
   childForm.Show ();
}

Volevo sapere come metterlo in vb.net...

Grazie

[Stoicenko]

bè il modo sarà lo stesso.. ci hai provato? che problemi hai trovato?

[baron94]

Provando nello stesso modo ho riscontrato due errori facendo così:

Dim Crom As Object = New Crom.Controls.DockContainer
Dim ToolWin As Crom.Controls.DockableToolWindow
Crom.AddToolWindow(ToolWin)
Crom.DockToolWindow(ToolWin, Global.Crom.Controls.zDockMode.Left)

Il problema è:
1)Riferimento a un oggetto non impostato su un'istanza di oggetto.(Crom.AddToolWindow)
2)Che cosa metto come handle nel Crom.AddToolWindow(ToolWin)?

[Stoicenko]

1) manca il new nella creazione dell'oggetto DockableToolWindow

2) nell'esempio passa l'handle di una form figlia (ma senza il codice non saprei aiutarti)

// Add the form to the dock container
   _dockContainer1.AddToolWindow (childForm);

ChildForm sembra il dock container

[baron94]

Allora per il codice eccoti quello del Form load:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Crom As Object = New Crom.Controls.DockContainer
        Dim Sys As New System.Windows.Forms.Control
        Dim Mi As New Crom.Controls.DockableToolWindow
        Dim Frm As New Windows.Forms.Form
        Frm.AddOwnedForm(Me)
        Crom.AddToolWindow(Mi)
        Crom.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)
    End Sub

Proprio non sò come metterla questa ToolWindow...

[Stoicenko]

no no non così..

 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Crom As Object = New Crom.Controls.DockContainer
        Dim Sys As New System.Windows.Forms.Control //a cosa ti serve?
        Dim Mi As New Crom.Controls.DockableToolWindow
        Dim Frm As New Windows.Forms.Form //perchè crei un'altra form?
        Frm.AddOwnedForm(Me)
        Crom.AddToolWindow(Mi)
        Crom.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)
    End Sub

prova così, suppongo che Object sia il dockcontainer

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Crom As Object = New Crom.Controls.DockContainer
        Dim Mi As New Crom.Controls.DockableToolWindow
        Form1.Controls.Add(object)
        Object.AddToolWindow(Mi)
        Object.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)
    End Sub

[baron94]

niente ho provato ha risistemarlo ma niente c'erano degli errori nel tuo e li ho sistemato così:

 Dim Crom As Object = New Crom.Controls.DockContainer
        Dim Mi As New Crom.Controls.DockableToolWindow
        Dim Objects As New Crom.Controls.DockContainer
        Me.Controls.Add(Objects)
        Objects.AddToolWindow(Mi)
        Objects.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)
    End Sub

ma niente...

[Stoicenko]

       Dim crom As New Crom.Controls.DockContainer
        Dim Mi As New Crom.Controls.DockableToolWindow
        Dim Objects As New Crom.Controls.DockContainer
        Me.Controls.Add(crom)
        crom.AddToolWindow(Mi)
        crom.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)

[baron94]

ok ho provato...no da errore ma non noto nulla di diverso nel form...

[Stoicenko]

inserisci il dock al dockcontainer

        Dim crom As New Crom.Controls.DockContainer
        Dim Mi As New Crom.Controls.DockableToolWindow
        Me.Controls.Add(crom)
        crom.Dock = DockStyle.Fill; //controlla non sono sicuro
        crom.AddToolWindow(Mi)
        crom.DockToolWindow(Mi, Global.Crom.Controls.zDockMode.Left)