如何模拟一个象窗体一样的控件（标题栏、焦点、拖动、改变.docVIP

如何模拟一个象窗体一样的控件（标题栏、焦点、拖动、改变大小、关闭等等） ????MSDN的一些URL（把msdn的安装路径改成你自己的路径）： VB.UserControl TableView ?? AutoRedraw????? =?? -1? True?? ClientHeight??? =?? 4260?? ClientLeft????? =?? 0牋 ClientTop牋牋牋 =牋 0牋 ClientWidth牋牋 =牋 3855牋 EditAtDesignTime=牋 -1?True牋 KeyPreview牋牋?=牋 -1?True牋 ScaleHeight牋牋 =牋 4260牋 ScaleWidth牋牋?=牋 3855牋 Begin VB.PictureBox picTitle 牋牋?BackColor牋牋牋 =牋 牋牋?BorderStyle牋牋 =牋 0?None牋牋?Height牋牋牋牋?=牋 315牋牋?Left牋牋牋牋牋?=牋 120牋牋?ScaleHeight牋牋 =牋 315牋牋?ScaleWidth牋牋?=牋 2715牋牋?TabIndex牋牋牋?=牋 1牋牋?Top牋牋牋牋牋牋 =牋 120牋牋?Width牋牋牋牋牋 =牋 2715牋牋?Begin VB.Image imgClose 牋牋牋牋 Height牋牋牋牋?=牋 210牋牋牋牋 Index牋牋牋牋牋 =牋 1牋牋牋牋 Left牋牋牋牋牋?=牋 2400牋牋牋牋 Picture牋牋牋牋 =牋 TableView.ctx:0000牋牋牋牋 Top牋牋牋牋牋牋 =牋 0牋牋牋牋 Width牋牋牋牋牋 =牋 240牋牋?End牋牋?Begin VB.Image imgTitle 牋牋牋牋 Height牋牋牋牋?=牋 180牋牋牋牋 Left牋牋牋牋牋?=牋 60牋牋牋牋 Picture牋牋牋牋 =牋 TableView.ctx:02E2牋牋牋牋 Top牋牋牋牋牋牋 =牋 60牋牋牋牋 Width牋牋牋牋牋 =牋 180牋牋?End牋牋?Begin VB.Image imgClose 牋牋牋牋 Height牋牋牋牋?=牋 210牋牋牋牋 Index牋牋牋牋牋 =牋 0牋牋牋牋 Left牋牋牋牋牋?=牋 1560牋牋牋牋 Picture牋牋牋牋 =牋 TableView.ctx:04D4牋牋牋牋 Top牋牋牋牋牋牋 =牋 0牋牋牋牋 Width牋牋牋牋牋 =牋 240牋牋?End牋牋?Begin VB.Label lblTitle 牋牋牋牋 BackColor牋牋牋 =牋 牋牋牋牋 BeginProperty Font 牋牋牋牋牋?Name牋牋牋牋牋?=牋 MS Sans Serif牋牋牋牋牋?Size牋牋?牋牋牋 =牋 8.25牋牋牋牋牋?Charset牋牋牋牋 =牋 0牋牋牋牋牋?Weight牋牋牋牋?=牋 700牋牋牋牋牋?Underline牋牋牋 =牋 0牋 False牋牋牋牋牋?Italic牋牋牋牋?=牋 0牋 False牋牋牋牋牋?Strikethrough牋 =牋 0牋 False牋牋牋牋 EndProperty牋牋牋牋 ForeColor牋牋牋 =牋 H8000000F牋牋牋牋 Height牋牋牋牋?=牋 255牋牋牋牋 Left牋牋牋牋牋?=牋 240牋牋牋牋 TabIndex牋牋牋?=牋 3牋牋牋牋 Top牋牋牋牋牋牋 =牋 120牋牋牋牋 Width牋牋牋牋牋 =牋 1995牋牋?End牋 End牋 Begin VB.ListBox lstColumn 牋牋?Height牋牋牋牋?=