UC知道帮忙解释一下vb语句 第9部分 谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/25 08:08:35
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
Form2.Show vbModal
Picture1.FillStyle = 0
Form1.Picture1.Line (Trim(Form2.Text1), Trim(Form2.Text2))-(Trim(Form2.Text3), Trim(Form2.Text4)), &HFF&
End Sub
Private Sub Command2_Click()
Form2.Show vbModal '以模式窗体的形式显示Form2窗体
Picture1.FillStyle = 0 '设置Picture1的填充模式为实心填充,填充的颜色由FillColor颜色指定
Form1.Picture1.Line (Trim(Form2.Text1), Trim(Form2.Text2))-(Trim(Form2.Text3), Trim(Form2.Text4)), &HFF&
'在图片框中画线,起点与终点的X,Y坐标分别为Text1~Text4四个文本框中的数值,线的颜色为蓝色
End Sub