編程從畫點和線開始。

在窗體中添加壹個Command1按鈕，復制下面的代碼，點擊命令按鈕，清空屏幕，然後隨機繪制20條線段。

私有子命令1_Click()

Dim I為整數，X1為整數，Y1為整數，X2為整數，Y2為整數

Dim ColorR As Long，ColorG As Long，ColorB As Long，DrawColor As Long

使不規則化

Cls

ScaleMode = 3 '將ScaleMode設置為像素。

DrawMode = 13 '輸出外觀(前景色和背景色的操作模式)

DrawStyle = 0 '線條樣式

0(默認值)實線、1虛線、2虛線、3點劃線、4點劃線、5無線線、6引用實線。

對於I = 1到20

X1 = Rnd * Me。刻度寬度

Y1 = Rnd * Me。比例尺高度

X2 = Rnd *我。刻度寬度

Y2 = Rnd * Me。比例尺高度

DrawWidth = Rnd * 10+1 '線寬，值可以選1 ~ 32767，但是太大了，無法區分。

ColorR = Rnd * 256

ColorG = Rnd * 256

ColorB = Rnd * 256

draw color =(((256 * ColorR)+ColorG)* 256)+ColorB

ForeColor =繪圖顏色

線(X1，Y1)-(X2，Y2)

然後

末端接頭

上一篇:三菱plc編程通訊問題： 我又三菱FX1N的plc壹個、USB連接電纜壹根、三菱編程軟件壹個

下一篇:華碩Magic 14星空版怎麽樣？妳註意到了嗎？