先用几个IMAGE配合代码来画一个
在上面放一个透明的Label1作为标题
再在Label上放置一个透明的Label2用来移动窗体,使用以下代码实现:
Dim X0, Y0Private Sub LABEL2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X0 = X
Y0 = Y
End SubPrivate Sub LABEL2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Form1.Left = Form1.Left + X - X0: Form1.Top = Form1.Top + Y - Y0
End Sub
然后制作最大、最小化按钮(网上有现成的)
在Label2的双击事件中填写使窗体最大化和还原的代码
当然,要制作一个专业的标题栏还有许多工作要做。
在上面放一个透明的Label1作为标题
再在Label上放置一个透明的Label2用来移动窗体,使用以下代码实现:
Dim X0, Y0Private Sub LABEL2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X0 = X
Y0 = Y
End SubPrivate Sub LABEL2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Form1.Left = Form1.Left + X - X0: Form1.Top = Form1.Top + Y - Y0
End Sub
然后制作最大、最小化按钮(网上有现成的)
在Label2的双击事件中填写使窗体最大化和还原的代码
当然,要制作一个专业的标题栏还有许多工作要做。
解决方案 »
- 怎么给WEB控件添加注册码
- 请教:FAYSKY2(),DATAGRID导入EXCEL的新问题
- 祝大家国庆快乐!!!(散分)
- 帮我找找错误的原因,很急,先谢了!
- 有哪位大家如何知道类似于电子盖章系统那样能检测到word文档的变化?
- rmf格式的报表是用什么软件做的
- 各位帮我看看,使用winsock的Accept requestID怎么出错?
- 谁能帮我看看这个问题如何解决(在线等你回答)
- 怎样把datagrid控件绑定用ado定义的对象?帮帮忙!
- 各位给看看,这是不是MSFlexGrid的BUG,怎么解决才好?
- 严重问题,超难问题,哪位高人可以指点迷经!
- 如何搜索微软网站http://msdn.microsoft.com/中一些api函数中一些常数的定义????
拦截消息,自绘标题栏可以参考http://zyl910vb.51.net/another/中的vbskin右击连接,目标另存为
注意把下载后的*.zip.jpg改名成*.zip
http://entn.hdpu.edu.cn/ymck/vb/vb7.htm
http://zyl910vb.51.net/another/
当来看看吧