CAD电气绘图基础操作详细讲解.pptVIP

【范例11-1】 根据CurrentX和CurrentY属性的值，在窗体上输出“CurrentX属性和CurrentY属性”字样。 01 Option Explicit 02 CurrentX属性和CurrentY属性 03 Private Sub Form_Load() 04 frmMain.Font.Size = 20 设置窗体字号 05 frmMain.CurrentX = 800 设置窗体CurrentX值 06 frmMain.CurrentY = 800 设置窗体CurrentY值 07 Print CurrentX属性和CurrentY属性 显示内容 08 End Sub 【范例11-7】 利用Line控件的X1、X2、Y1及Y2属性，在窗体上随机画出直线。在程序中加入一个Timer控件，设置Interval属性为500。为Timer事件添加代码 . 01 Option Explicit 02 Line控件使用演示 03 Private Sub Timer1_Timer() 04 With Line1 设置Line控件的属性 05 Randomize 06 .BorderColor = QBColor(