请changwei领分，多谢

Question

顺便问一个问题：显示过程中我想画一条横线，比如说用红色，然后再换成绿色来画。
方便的话请指点

Answer 1

me.line (20,100)-(20,100), VbRed
me.line (35,100)-(35,100), VbGreen

Answer 2

Private Sub Command1_Click()
    Me.ForeColor = vbRed
    Me.Line (10, 100)-(3000, 100)
End SubPrivate Sub Command2_Click()
    Me.ForeColor = vbGreen
    Me.Line (10, 500)-(3000, 500)End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.DrawWidth = 8
End Sub

Answer 3

楼主是在倒分吧：搜索（VB VB资源） 
 作者：run2028   关键字：  
 
  时间：2002年3月至今数据 
  最新：4篇  1   
 
   
    问 题 分数 回复 时间 功能 
 
 
？请changwei领分，多谢（run2028） 100 2 3-6 13:21 管理 
？请changwei领分（run2028） 100 3 3-6 13:18 管理 
？api高手请进：怎样画曲线图？（run2028） 100 3 3-4 18:17 管理 
√查询字符串怎样超过255字符，立即给分（run2028） 20 31 2-12 16:17 管理 
 
最新：4篇  1   
  
 
哪里有changwei　这个人在你的帖子里回答问题了？？？
鄙视楼主！　　　╭∩╮(︶︿︶)╭∩╮

Answer 4

哎呀~~~~~怪错好人....ｓｏｒｒｙ为表示歉意，偶给你免分画图如何？pls say say ur problems ?

Answer 5

Public Declare Function SetDIBits Lib "gdi32" Alias "SetDIBits" (ByVal hdc As Long, ByVal crColor As Long) As Long

Answer 6

不好意思错了，是下面这个
Public Declare Function SetDCPenColor Lib "gdi32" Alias "SetDCPenColor" (ByVal hdc As Long, ByVal crColor As Long) As Long
该函数用来设置当前设备上下文的画笔颜色

Answer 7

是啊去年我因为用MAIL给别人发答案被扣了2000，楼主要小心哦

Answer 8

me.line (20,100)-(20,100), VbRed
me.line (35,100)-(35,100), VbGreen