谈谈在VB中如何做“花哨”的界面

iambluebird 2002-03-28 08:47:32
唉,懒得发信了。还是在这里开一个新帖子吧,好东西大家分享,如果你有什么更好的方法请与我联系:P

第一种:仿linux下xWindow操作界面风格
这种形式的界面要先准备几张图片,分别是titleLeft.gif、titleCenter.gif和titleMin.gif、titleMax.gif、titleClose.gif,当然你也可以为你的按扭准备几张图片(这样看起来可能会更好看)。
以上几张图片事先用photoshop制作好,这就可以保证你制作出立体性很强的标题栏。标题栏的图片高度为你程序中标题栏的高度,除titleCenter.gif外都可以制作成正方形的,titleCenter.gif的宽度考虑到现在显示器的分辨率,可以设置成1024。然后开始制作图片:)
OK,现在回到VB中,新建一个窗体,将窗体模式设置为没有边框(broderStyle=0-None),在窗体上部插入以上几幅图片,使用Image常用控件(鉴于VB中虽然不能处理层,但仍能表现层,故可最先把titleCenter.gif添加上去,Name属性为imgCenter然后在imgCenter上放上其他图片,分别命名为imgLeft,imgMin……)
注:以上容器均设置为非3D显示,并且不要边框!

代码部分:
Option Explicit

Dim xMouseDown As Boolean '鼠标左键按下判断参数
Dim x_Way As Single '鼠标移动坐标
Dim y_Way As Single

'以下代码处理窗体移动
Private Sub imgCenter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
xMouseDown = True
x_Way = X
y_Way = Y
End If

End Sub

Private Sub imgCenter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If xMouseDown = True Then
Me.Left = Me.Left + X - x_Way
Me.Top = Me.Top + Y - y_Way
End If

End Sub

Private Sub imgCenter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

xMouseDown = False

End Sub
'再为imgClose添加代码

Private Sub imgClose_Click()

End

End Sub



以上代码已经将窗体的移动这个最主要的功能实现了,至于你要在上面加一些右键的功能只需要自己再写几行代码了,这样我们就顺利地把程序界面美化了。哦,忘记说了一点,窗体的颜色BackColor要设置,或者用幅图片来加上去也是一个好方法哦:)
最后在你的程序边框上用line语句话几条线,表示这是框体的边框就OK了。

至于第二种WINDOWS优化大师的平面效果,只是将上面的Image控件换成Label控件就性了,当然Label也要使用非3D显示

好了,我的东西也卖完了,或许对你有些帮助,如果你有更好的方法,欢迎与我联系
shisanlang123@263.net
...全文
50 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
iambluebird 2002-03-28
up
回复
相关推荐
发帖
控件与界面
创建于2007-09-28

588

社区成员

PowerBuilder 控件与界面
申请成为版主
帖子事件
创建了帖子
2002-03-28 08:47
社区公告
暂无公告