请教各位大虾,界面窗体中如何绘制一条有凹陷感的直线! 各位大虾,我想在我的一个程序的主界面窗体的各个菜单选项下方绘制一条有凹陷感的直线,就象IE浏览器在“文件,编辑,查看,收藏,工具,帮助”下的那条看起来似乎凹下去了的直线那样,请问该如何实现!多谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Line控件,画两个Line控件,一条为白色,一条为黑色,将黑色的BorderWidth属性设为2,白色的为1再将白色的"移至顶层",两条线合在一起就OK了. '做出分隔线,需要两条直线Private Sub Form_Load() With Line1 .BorderColor = &H808080 .X1 = 0 .X2 = 6000 .Y1 = 1100 .Y2 = .Y1 End With With Line2 .BorderColor = vbWhite .BorderWidth = 2 .X1 = Line1.X1 .X2 = Line1.X2 .Y1 = Line1.Y1 + 20 .Y2 = .Y1 End With Line1.ZOrder 0 End Sub http://community.csdn.net/Expert/topic/3345/3345299.xml 支持 cso(sjxsoft-天水是我家) 用Frame控件,设置属性:Height=45,Caption="" 求比较优化的软件存盘方案 VB加载VC的DLL出现乱码问题 VB控制打印机遇到的问题! 很急,关于界面的窗体排列问题??在线等 在word中设置页眉和页脚、字间距、行间距。 关于vb程序读取excel文件的问题 大哥们,又要请你们帮忙了! /////怎样保存修改到指定记录////// vb数据库编程中recordsettype中的三个属性dynaset,snapshot,table究竟有何区别?一定给分! ########### 微软的 BUG 大爆光 ########## VB树型控件如何使用? ryuginka(刘银华)请进
再将白色的"移至顶层",两条线合在一起就OK了.
Private Sub Form_Load()
With Line1
.BorderColor = &H808080
.X1 = 0
.X2 = 6000
.Y1 = 1100
.Y2 = .Y1
End With
With Line2
.BorderColor = vbWhite
.BorderWidth = 2
.X1 = Line1.X1
.X2 = Line1.X2
.Y1 = Line1.Y1 + 20
.Y2 = .Y1
End With
Line1.ZOrder 0
End Sub