做出分隔线
当我们想将一些讯息分门别类时，最常使用的控制项就是Frame；不过我们也可利用 两个Line控制项来做出分隔线，以将讯息分类。其效果有点类似网路上常看到的 HorizontalLine，或是微软产
当我们想将一些讯息分门别类时，最常使用的控制项就是Frame；不过我们也可利用
两个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->
两个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->
精彩图集
精彩文章