-1

新しいタブを作成しようとしていますが、新しいタブの間には常にスペースがあります

このサイトは初めてなので、写真を投稿することはできませんので、私の問題へのリンクをここに示し ます

これが私の新しいタブコードです

 Private Sub NewPageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewPageToolStripMenuItem.Click
    Dim newpage As TabItem = TabControl1.CreateTab("newpage")
    Dim textb As New RichTextBox
    Dim filename As New TextBox
    Dim sw As New StreamWriter(siteloc & filename.Text & ".hsp")
    Dim createb As New Button

    'Set the contents of the page
    textb.ReadOnly = False
    textb.Multiline = True
    textb.Dock() = DockStyle.Top
    textb.Height = 338

    newpage.Text = "NewPage"

    filename.Text = "Untitled"
    filename.Location = New Point(5, 342)
    filename.Width = 220

    createb.Location = New Point(232, 342)
    createb.Text = "Submit page"


    'Add the tab to the page
    newpage.AttachedControl.Controls.Add(filename)
    newpage.AttachedControl.Controls.Add(textb)
    newpage.AttachedControl.Controls.Add(createb)

    TabControl1.Tabs.Add(newpage)

    'select the tab
    TabControl1.SelectedTab = newpage

    'add button handlers
    AddHandler createb.Click, AddressOf createb_Click

End Sub

私は答えを探しましたが、何も見つかりませんでした。プロパティで何も変更しておらず、dotnetbar をインストールしただけです。

4

1 に答える 1

1

CreateTab メソッドは、新しく作成されたタブを既に Tabs コレクションに追加しているため (メソッドについてはドキュメントを参照)、2 回追加しています。次のコードを削除します: TabControl1.Tabs.Add(newpage)

お役に立てれば。

于 2013-06-18T16:42:52.573 に答える