做出分隔线
下面图老师小编跟大家分享做出分隔线,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~
两个Line控制项来做出分隔线,以将讯息分类。其效果有点类似网路上常看到的
HorizontalLine,或是微软产品的/说明/关於.../
中的那个分隔线。例如以下程式码可
产生如下图的效果:
请先加入两个Line控制项到表单上
PrivateSubForm_Load()
WithLine1
.BorderColor=&H808080
.X1=0
.X2=5000
.Y1=1100
.Y2=.Y1
EndWith
WithLine2
.BorderColor=vbWhite
.BorderWidth=2
.X1=Line1.X1
.X2=Line1.X2
.Y1=Line1.Y1 20
.Y2=.Y1
EndWith
Line1.ZOrder0
EndSub->