線條法，在物體上畫直線和矩形。
PSet方法將對象上的點設置為指定的顏色。
以下是在工業控制程序中使用Line方法的代碼:
選項？明確的
暗淡？quitflag？作為？布爾代數學體系的
暗淡？cmdXianshiFlag？作為？布爾代數學體系的
暗淡？cmdTestFlag？作為？布爾代數學體系的
暗淡？p？作為？整數
暗淡？h？作為？整數
暗淡？miao1？作為？整數
暗淡？fen1？作為？整數
暗淡？j？作為？整數
暗淡？二？作為？整數
私人？br_br？作為？兩倍
私人？ab_bm？作為？兩倍
私人？wy_wy？作為？兩倍
私人？石堅(360)？作為？字符串？*?10
私人？石堅zh(360)？作為？字符串？*?10
私人？記錄_zh(5，？360)?作為？單壹的
私人？記錄(5，？360)?作為？單壹的
私人？c(360)？作為？不同的
Const？答？=?3.141592654?*?2
公共？功能？xp(colvb？作為？變體，？xx？作為？變體，？yy？作為？變體，？txt？作為？變體)
圖片1。前景色？=?colvb？QBColor(14)
圖片1。CurrentX？=?xx
圖片1。CurrentY？=?yy
圖片1。打印？txt？'
結束？功能
私人？Sub？CmdTest_Click()
如果？cmdTestFlag？然後
為了什麽？j？=?0?去哪？359
記錄(0，？j)？=?0
記錄(1，？j)？=?0
記錄(2，？j)？=?0
記錄(3，？j)？=?0
記錄(4，？j)？=?0
記錄(5，？j)？=?0
下壹個？j
cmdTest。標題？=?“測試”
其他
為了什麽？j？=?0?去哪？359
c(j)？=?j？*?答？/?60
記錄(0，？j)？=?Sin(c(j))？*?-450
記錄(1，？j)？=?Sin(c(j))？*?-300
記錄(2，？j)？=?Sin(c(j)？+?答？/?3)?*?-450
記錄(3，？j)？=?Sin(c(j)？+?2?*?答？/?3)?*?-450
記錄(4，？j)？=?Sin(c(j)？+?2?*?答？/?3)?*?-300
記錄(5，？j)？=?Sin(c(j)？+?2?*?答？/?3)?*?-150
下壹個？j
cmdTest。標題？=?“記錄”
結束？如果
cmdTestFlag？=?不是嗎？cmdTestFlag
結束？潛水艇
私人？Sub？定時器1 _定時器()
如果？lblTime。標題？& lt& gt？CStr(時間$)？然後
lblTime。標題？=?時間美元
Frmjly。標題？=?《記錄者》與。？空間(90)？& amp？日期$？& amp？空間(6)？& amp？時間美元
miao1？=?Mid(lblTime，7,?2)
fen1？=?Mid(Time$，？4,?2)
如果？fen1？=?0?然後呢。miao1？=?0?然後
石堅(0)？=?lblTime
結束？如果
Label1？=?lblTime
如果？miao1？=?0?然後
為了什麽？k？=?0?去哪？358
record_zh(0，？k？+?1)?=?記錄(0，？k)
record_zh(1，？k？+?1)?=?記錄(1，？k)
記錄_zh(2，？k？+?1)?=?記錄(2，？k)
記錄_zh(3，？k？+?1)?=?記錄(3，？k)
記錄_zh(4，？k？+?1)?=?記錄(4，？k)
記錄_zh(5，？k？+?1)?=?記錄(5，？k)
下壹個？k
為了什麽？j？=?1?去哪？359?'9
記錄(0，？j)？=?record_zh(0，？j)
記錄(1，？j)？=?record_zh(1，？j)
記錄(2，？j)？=?記錄_zh(2，？j)
記錄(3，？j)？=?記錄_zh(3，？j)
記錄(4，？j)？=?記錄_zh(4，？j)
記錄(5，？j)？=?記錄_zh(5，？j)
下壹個？j
結束？如果
如果？fen1？=?0?然後呢。miao1？=?1?然後
為了什麽？二？=?0?去哪？五
石堅zh(ii？+?1)?=?石堅(二)
下壹個？二
為了什麽？h？=?1?去哪？六
石堅(h)？=?石堅zh(h)
下壹個？h
Label1。可見？=?錯誤的
標簽2。可見？=?真實的
結束？如果
結束？如果
結束？潛水艇
私人？Sub？定時器2 _定時器()
BitBlt？我。Picture1.hDC，？0,?0,?我。圖片1。ScaleWidth？我。圖片1。ScaleHeight0,?0,?0,?“黑色”
Text1？=?時間美元
苗？=?右$(時間$，？2)
Text2？=?fen1
記錄(0，？0)?=?record_jm(3)？*?-30
記錄(1，？0)?=?record_jm(4)？*?-30
記錄(2，？0)?=?record_jm(5)？*?-30
記錄(3，？0)?=?record_jm(0)？*?-30
記錄(4，？0)?=?record_jm(1)？*?-30
記錄(5，？0)?=?record_jm(10)？*?-30?幹燥箱真空
嗯？=?Val(fen1？*?60)?+?瓦爾(苗族)
j？=?嗯
p？=?(j？/?360)?-?Int(j？/?360)
j？=?p？*?360
Text2？=?日期$
Label8？=?日期$
Label2？=?石堅(1)
標簽2。向左？=?fen1？*?30?+?140
Label3？=?石堅(2)
標簽3。向左？=?fen1？*?30?+?1800?*?1?+?140
Label4？=?石堅(3)
標簽4。向左？=?fen1？*?30?+?1800?*?2?+?140
Label5？=?石堅(4)
Label5。向左？=?fen1？*?30?+?1800?*?3?+?140
Label6？=?石堅(5)
標簽6。向左？=?fen1？*?30?+?1800?*?4?+?140
Label7？=?石堅(6)
標簽7。向左？=?fen1？*?30?+?1800?*?5?+?140
溫度坐標
colvb？=?vbWhite
xx？=?100
yy？=?150
txt？=?"℃"
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?350
txt？=?"100"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?200
yy？=?1850
txt？=?"50"
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?3350
xx？=?300
txt？=?"0"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?100
yy？=?4850
txt？=?"-50"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?0
yy？=?6350
txt？=?"-100"
wp？=?xp(colvb，？xx，？yy，？txt)
真空坐標
colvb？=?vbRed
xx？=?11500
yy？=?150
txt？=?“啪”
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?350
txt？=?"10000"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?11500
yy？=?1850
txt？=?"1000"
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?3350
xx？=?11500
txt？=?"100"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?11500
yy？=?4850
txt？=?"10"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?11500
yy？=?6350
txt？=?"1"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?500
yy？=?150
txt？=?“啪”
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?350
txt？=?"10000"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?500
yy？=?1850
txt？=?"1000"
wp？=?xp(colvb，？xx，？yy，？txt)
yy？=?3350
xx？=?500
txt？=?"100"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?500
yy？=?4850
txt？=?"10"
wp？=?xp(colvb，？xx，？yy，？txt)
xx？=?500
yy？=?6350
txt？=?"1"
wp？=?xp(colvb，？xx，？yy，？txt)
畫壹個網格
圖片1。前景色？=?vbWhite
圖片1。線？(450,?400)-(11300,?400)
圖片1。線？(450,?700)-(500,?700)
圖片1。線？(450,?1000)-(500,?1000)
圖片1。線？(450,?1300)-(500,?1300)
圖片1。線？(450,?1600)-(500,?1600)
圖片1。前景色？=?vbRed
圖片1。線？(500,?566.7)-(550,?566.7)
圖片1。線？(500,?733.3)-(550,?733.3)
圖片1。線？(500,?900)-(550,?900)
圖片1。線？(500,?1066.7)-(550,?1066.7)
圖片1。線？(500,?1233.3)-(550,?1233.3)
圖片1。線？(500,?1400)-(550,?1400)
圖片1。線？(500,?1566.7)-(550,?1566.7)
圖片1。線？(500,?1733.3)-(550,?1733.3)
圖片1。線？(500,?2066.7)-(550,?2066.7)
圖片1。線？(500,?2233.3)-(550,?2233.3)
圖片1。線？(500,?2400)-(550,?2400)
圖片1。線？(500,?2566.7)-(550,?2566.7)
圖片1。線？(500,?2733.3)-(550,?2733.3)
圖片1。線？(500,?2900)-(550,?2900)
圖片1。線？(500,?3066.7)-(550,?3066.7)
圖片1。線？(500,?3233.3)-(550,?3233.3)
圖片1。線？(500,?3566.7)-(550,?3566.7)
圖片1。線？(500,?3733.3)-(550,?3733.3)
圖片1。線？(500,?3900)-(550,?3900)
圖片1。線？(500,?4066.7)-(550,?4066.7)
圖片1。線？(500,?4233.3)-(550,?4233.3)
圖片1。線？(500,?4400)-(550,?4400)
圖片1。線？(500,?4566.7)-(550,?4566.7)
圖片1。線？(500,?4733.3)-(550,?4733.3)
圖片1。線？(500,?5066.7)-(550,?5066.7)
圖片1。線？(500,?5233.3)-(550,?5233.3)
圖片1。線？(500,?5400)-(550,?5400)
圖片1。線？(500,?5566.7)-(550,?5566.7)
圖片1。線？(500,?5733.3)-(550,?5733.3)
圖片1。線？(500,?5900)-(550,?5900)
圖片1。線？(500,?6066.7)-(550,?6066.7)
圖片1。線？(500,?6233.3)-(550,?6233.3)
圖片1。前景色？=?vbWhite
圖片1。線？(450,?1900)-(11300,?1900)
圖片1。線？(450,?2200)-(500,?2200)
圖片1。線？(450,?2500)-(500,?2500)
圖片1。線？(450,?2800)-(500,?2800)
圖片1。線？(450,?3100)-(500,?3100)
圖片1。線？(450,?3400)-(11300,?3400)
圖片1。線？(450,?3700)-(500,?3700)
圖片1。線？(450,?4000)-(500,?4000)
圖片1。線？(450,?4300)-(500,?4300)
圖片1。線？(450,?4600)-(500,?4600)
圖片1。線？(450,?4900)-(11300,?4900)
圖片1。線？(450,?5200)-(500,?5200)
圖片1。線？(450,?5500)-(500,?5500)
圖片1。線？(450,?5800)-(500,?5800)
圖片1。線？(450,?6100)-(500,?6100)
圖片1。線？(450,?6400)-(11300,?6400)
圖片1。線？(500,?400)-(500,?6400)
圖片1。線？(11300,?400)-(11300,?6400)
繪制時間坐標
圖片1。前景色？=?VB黃色
如果？-700?+?fen1？*?30?& gt？200?然後
圖片1。線？(-400?+?fen1？*?30,?400)-(-400?+?fen1？*?30,?6400)
結束？如果
圖片1。線？(500?+?fen1？*?30,?400)-(500?+?fen1？*?30,?6400)
圖片1。線？(1400?+?fen1？*?30,?400)-(1400?+?fen1？*?30,?6400)
圖片1。線？(2300?+?fen1？*?30,?400)-(2300?+?fen1？*?30,?6400)
圖片1。線？(3200?+?fen1？*?30,?400)-(3200?+?fen1？*?30,?6400)
圖片1。線？(4100?+?fen1？*?30,?400)-(4100?+?fen1？*?30,?6400)
圖片1。線？(5000?+?fen1？*?30,?400)-(5000?+?fen1？*?30,?6400)
圖片1。線？(5900?+?fen1？*?30,?400)-(5900?+?fen1？*?30,?6400)
圖片1。線？(6800?+?fen1？*?30,?400)-(6800?+?fen1？*?30,?6400)
圖片1。線？(7700?+?fen1？*?30,?400)-(7700?+?fen1？*?30,?6400)
圖片1。線？(8600?+?fen1？*?30,?400)-(8600?+?fen1？*?30,?6400)
圖片1。線？(9500?+?fen1？*?30,?400)-(9500?+?fen1？*?30,?6400)
如果？10400?+?fen1？*?30?& lt？11300?然後
圖片1。線？(10400?+?fen1？*?30,?400)-(10400?+?fen1？*?30,?6400)
結束？如果
如果？11300?+?fen1？*?30?& lt？11300?然後
圖片1。線？(11300?+?fen1？*?30,?400)-(11300?+?fen1？*?30,?6400)
結束？如果
顯示記錄
圖片1。前景色？=?VB黃色
為了什麽？j？=?0?去哪？359
圖片1。線？(j？*?30?+?500,?記錄(0，？j)？+?3395)-(j？*?30?+?502,?記錄(0，？j)？+?3405),?vbRed，？男友
圖片1。線？(j？*?30?+?500,?記錄(1，？j)？+?3395)-(j？*?30?+?502,?記錄(1，？j)？+?3405),?QBColor(7)，？男友
圖片1。線？(j？*?30?+?500,?記錄(2，？j)？+?3395)-(j？*?30?+?502,?記錄(2，？j)？+?3405),?vbWhite，？男友
圖片1。線？(j？*?30?+?500,?記錄(3，？j)？+?3395)-(j？*?30?+?502,?記錄(3，？j)？+?3405),?vbYellow，？男友
圖片1。線？(j？*?30?+?500,?記錄(4，？j)？+?3395)-(j？*?30?+?502,?記錄(4，？j)？+?3405),?vbGreen，？男友
如果？記錄(5，？j)？/?-30?& lt？10?然後
wy_wy？=?-0?+?166.7
br_br？=?5.5556
埃爾瑟夫？記錄(5，？j)？/?-30?& gt=?10?然後呢。記錄(5，？j)？/?-30?& lt？100?然後
wy_wy？=?-1500?+?166.7
br_br？=?0.5555
埃爾瑟夫？記錄(5，？j)？/?-30?& gt=?100?然後呢。記錄(5，？j)？/?-30?& lt？1000?然後
wy_wy？=?-3000?+?166.7
br_br？=?0.055555
埃爾瑟夫？記錄(5，？j)？/?-30?& gt=?1000?然後呢。記錄(5，？j)？/?-30?& lt？10000?然後
wy_wy？=?-4500?+?166.7
br_br？=?0.0055555
結束？如果
圖片1。線？(j？*?30?+?500,?記錄(5，？j)？*?br_br？+?wy_wy？+?3395?+?3000)-(j？*?30?+?502,?記錄(5，？j)？*?br_br？+?wy_wy？+?3405?+?3000),?QBColor(11)，？男友
下壹個？j
圖片1。恢復精神
結束？上面的Sub線曲線方法代碼可以很容易地移植到Pset方法來繪制曲線。