VB 窗体继承

http://blog.csdn.net/jin870132690/article/details/41597049

相信很多自己动手敲过完整程序的同学都会发现,其实我们敲的很多窗体布局都非常的相似,有的部分用到的控件甚至一模一样,如果每一个窗体都自己重新摆放或者复制粘贴虽然没有问题,但是有时候若是修改其中一小点位置就得修改全部的类似窗体,否则就会造成界面不协调的问题。

 

     可能有同学会想过,既然类能够继承,那么窗体是否也能继承呢?好的,下面我就来为大家介绍vb.net之窗体继承

 

       其实,继承窗体也属于我们平时所说的泛化继承。我们在创建时,只需要添加一个窗体,让他作为父窗体,将一些共有的属性方法提炼出来,写在该父窗体中。Click事件或者Load中公共的代码等等,我们都可以写在父窗体中。

 

 

具体步骤:

1、被继承的窗体首先要先生成dll文件

   a.右击解决方案中的项目名称,选属性-应用程序类型改为:类库。   (如果建的时候就是类库当然就不用更改了)


 

   b.按Ctrl+Shift+B生成dll文件


  c.到项目下的bin目录下面的debug或release下面就可以找到刚生成的DLL  

 

2、继承窗体

选择添加新窗体中的继承的窗体选项,下一步在继承选择器上选择你要复制的窗体(PS:如果此时没有你想要复制的窗体,请回到步骤1生成dll文件)

 

 

好了,这样就大功告成了,快去试试窗口继承给你带来的好处吧

 

转载于:https://www.cnblogs.com/lhlong/p/6019401.html

内有设计窗体的图片,和运行效果图 该窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值