サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2011/03/22 14:52
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[フォーム][その他コントロール][] *
* キーワード：パネル,分割,SplitContainer, *
***********************************************************************************
タイトル ： SpritContainer(SplitContainer)内にFormを配置する方法
記 事 No ： 10250
投 稿 日 ： 2010/10/11(Mon) 20:47
元質問者 ： Hiro
Panel1には、メニューとして各種機能を開くボタン(以下機能ボタン)を設置し、
Panel2には、WindowsFormを表示する使い方を考えております
-----------------------------------------------------------------------------------
記事No ： 10251
投稿日 ： 2010/10/11(Mon) 21:07
回答者 ： 魔界の仮面弁士
-----------------------------------------------------------------------------------
あまりおすすめはできませんが、一応、技術的には可能です。
Imports System
Imports System.Windows.Forms
Class Form1 : Inherits Form
Shared Sub Main()
Application.Run(New Form1())
End Sub
Private SC As SplitContainer
Sub New()
SC = New SplitContainer() With {.Dock = DockStyle.Fill}
Controls.Add(SC)
Dim B As New Button() With {.Text = "Button1"}
SC.Panel1.Controls.Add(B)
SC.Panel2.BackColor = System.Drawing.Color.Yellow
AddHandler B.Click, AddressOf Test
End Sub
Sub Test()
Dim F As New Form() With {.Text = "SubForm", .TopLevel = False}
SC.Panel2.Controls.Add(F)
F.Show()
End Sub
End Class
 |
