能不能画出具有立体感的直线，谢谢

Question

如题，以前好像见过用两个line做出来的，但现在怎么也做不出立体效果，特向各位请教，谢谢各位

Answer 1

是的，简单的立体按钮也是这样做的，四条线（２白色，２灰色），一个LABLE，在鼠标放上，移开的时候，改变线的颜色

Answer 2

用Microsoft放大镜仔细看看就可以了，非常简单的视觉原理

Answer 3

看看就明白了Private Sub Form_Load()Me.AutoRedraw = True
Me.ScaleMode = 3Line (15, 50)-(300, 50), &HFFFFFF
Line (15, 51)-(300, 51), &H808080
Print vbCrLf & "    凸起线条"Line (15, 150)-(300, 150), &H808080
Line (15, 151)-(300, 151), &HFFFFFF
Print vbCrLf & "    凹陷线条"End Sub

Answer 4

Private Sub Form_Load()Me.AutoRedraw = True
Me.ScaleMode = 3Me.CurrentX = 101
Me.CurrentY = 51
Me.ForeColor = &HFFFFFF
Me.Print "甚至可以这样"Me.CurrentX = 100
Me.CurrentY = 50
Me.ForeColor = &H808080
Me.Print "甚至可以这样"Me.CurrentX = 100
Me.CurrentY = 150
Me.ForeColor = &HFFFFFF
Me.Print "凸起文字"Me.CurrentX = 101
Me.CurrentY = 151
Me.ForeColor = &H0
Me.Print "凸起文字"End Sub

Answer 5

以上是在win98中显示的效果，记得把窗体backcolor设成&HC0C0C0

Answer 6

主题：我希望成为一个优秀的IT人，我已经努力了七年
http://www.xiaohui.com/prg/note/year7/index.html大家看看。 
很有价值的。