您所在位置：主题：请帮忙修改下语句 谢谢
yahoodavid
[专家分：0] 发布于 2008-05-23 21:48:00
Private Sub Command2_Click()
Form2.Show vbModal
Picture1.FillStyle = 0
Form1.Picture1.Line (Trim(Form2.Text1), Trim(Form2.Text2))-(Trim(Form2.Text3), Trim(Form2.Text4)), &HFF&
End Sub
请问这段程序如何加入代码可以令line线条变成黑色颜色的
Form2.Show vbModal
Picture1.FillStyle = 0
Form1.Picture1.Line (Trim(Form2.Text1), Trim(Form2.Text2))-(Trim(Form2.Text3), Trim(Form2.Text4)), &HFF&
End Sub
请问这段程序如何加入代码可以令line线条变成黑色颜色的
