在VB中畫線(急!),請問,VB中可以畫線的粗細和指定畫出的線是什麼顏色嗎?

2022-06-24 22:47:49 字數 5418 閱讀 3857

1樓:依然特雷西

1、繪製線表後肯定要先找到這兩個控制元件。

2、然後在這裡先畫上x和y兩軸線。

4、接下來,用標籤輸入這兩個標誌。

4、在使用這個形狀按鈕繪製。

5、一個個畫過去線條就可以了。

注意事項:

vb可以輕易的使用dao、rdo、ado連線資料庫,或者輕鬆的建立active x控制元件,用於高效生成型別安全和麵向物件的應用程式。

2樓:匿名使用者

畫直線為了在兩個座標點之間畫一條直線,可使用 line 方法的簡單形式,其語法如下:

[object.]line [(x1, y1)]–(x2, y2)[, color]

其中 object 是可選擇的;若省略,此方法將在**所連線的窗體(當前窗體)上畫線。第一對座標也是可選的。就所有的座標值來說,x 和 y 引數都既可以是整數,也可以是分數。

例如,下列語句可在窗體上畫一條斜線。

line (500, 500)–(2000, 2000)

visual basic 所畫出的一條直線,要包括第一個端點,而不是最後一個端點。這種行為在從點到點畫封閉曲線時是有用的。為了畫最後一個端點,應使用這種語法:

pset [step] (0, 0)[, color]

第一對座標 (x1, y1) 是可選的。如果省略這些座標,將把該物件的 x,y 當前位置(畫圖座標)作為端點。當前位置是由 currentx 和 currenty 屬性指定的,然而在其它情況它會等於以前的圖形方法或 print 方法所畫最後點的位置。

如果以前沒有使用過圖形方法或 print 方法,或沒有設定 currentx 和 currenty 屬性,則預設位置為物件的左上角。

例如,以下語句通過三點連線畫出一個三角形。

'設定起點的 x 座標。

currentx = 1500

'設定起點的 y 座標。

currenty = 500

'向起點的右下方畫一直線。

line -(3000, 2000)

'向當前點的左方畫一直線。

line -(1500, 2000)

'向右上方畫一直線到起點。

line -(1500, 500)

blanker 應用程式使用 line 方法建立出了一些有趣的圖案樣式。為了看到這些圖案,可從「選項」選單中,選定「crossfire」,然後選定「start demo」按鈕,即可看到。

step 關鍵字

pset、line、和 circle 方法使用以下語法可指定一個或多個點:

(x, y)

可在每個點之前加上 step 關鍵字,用來指定要畫出的點,是相對最後畫出點的位置。visual basic 要將 x 和 y 的值加到最後所畫的點上。例如,下邊這條語句:

line (100, 200)–(150, 250)

等價於:

line (100, 200)–step(50, 50)

在許多情況下,step 關鍵字可免除持續不斷地記錄最後所畫點位置的負擔。經常最為關心的可能是兩點的相對位置,而不是它們的絕對位置。

使用顏色引數

為了改變直線的顏色,應將可選的 color 引數與圖形方法一起使用。例如,下述語句將畫一條深藍色的直線:

line (500, 500)–(2000, 2000), rgb(0, 0, 255)

如果省略了 color 引數,將使用在其上畫線的物件的 forecolor 屬性,來決定直線的顏色。

3樓:匿名使用者

瞭解下面幾個方法的使用

picture1.scale (-5, 10)-(10, -10)設定**框的座標,在上面的例子中,**框的左上角座標為(-5, 10),右下角座標為(10, -10)

picture1.forecolor = rgb(255, 255, 0)

picture1.drawwidth = 2設定畫線顏色和粗細

picture1.line (-5, 0)-(10, 0)畫線picture1.pset (x, y)畫點

請問,vb中可以畫線的粗細和指定畫出的線是什麼顏色嗎?

4樓:尚心部落

line 方法

在物件上畫直線和矩形。

語法object.line [step] (x1, 1) [step] (x2, y2), [color], [b][f]

line 方法的語法有以下物件限定符和部分:

部分 描述

object 可選的。 物件表示式,其值為「應用於」列表中的物件。如果object 省略,具有焦點的窗體作為object。

step 可選的。關鍵字,指定起點座標,它們相對於由 currentx 和 currenty 屬性提供的當前圖形位置。

(x1, y1) 可選的。single (單精度浮點數),直線或矩形的起點座標。scalemode 屬性決定了使用的度量單位。

如果省略,線起始於由 currentx 和 currenty 指示的位置。

step 可選的。關鍵字,指定相對於線的起點的終點座標。

(x2, y2) 必需的。single (單精度浮點數),直線或矩形的終點座標。

color 可選的。long (長整型數),畫線時用的 rgb 顏色。如果它被省略,則使用 forecolor 屬性值。可用 rgb 函式或 qbcolor 函式指定顏色。

b 可選的。如果包括,則利用對角座標畫出矩形。

f 可選的。如果使用了 b 選項,則 f 選項規定矩形以矩形邊框的顏色填充。不能不用 b 而用 f。

如果不用 f 光用 b,則矩形用當前的 fillcolor 和 fillstyle 填充。fillstyle 的預設值為 transparent。

說明畫聯結的線時,前一條線的終點就是後一條線的起點。

線的寬度取決於 drawwidth 屬性值。在背景上畫線和矩形的方法取決於 drawmode 和 drawstyle 屬性值。

執行 line 方法時, currentx 和 currenty 屬性被引數設定為終點。

這個方法不能用於with...end with 語句塊。

5樓:匿名使用者

當然可以,否則這工具能賣出去麼?msdn裡面有示例,看一下就知道怎麼畫 。

這個示例用 line 方法在窗體上畫了幾個同心矩形。要執行這個示例,將此**放入窗體的 general 部分。按 f5 並單擊窗體。

sub form_click ()

dim cx, cy, f, f1, f2, i ' 宣告變數。

scalemode = 3 ' 設定 scalemode 為畫素。

cx = scalewidth / 2 ' 水平中點。

cy = scaleheight / 2 ' 垂直中點。

drawwidth = 8 ' 設定 drawwidth。

for i = 50 to 0 step -2

f = i / 50 ' 執行中間步驟。

f1 = 1 - f: f2 = 1 + f ' 計算。

forecolor = qbcolor(i mod 15) ' 設定前景顏色。

line (cx * f1, cy * f1)-(cx * f2, cy * f2), , bf

next i

doevents ' 做其它處理。

if cy > cx then ' 設定 drawwidth。

drawwidth = scalewidth / 25

else

drawwidth = scaleheight / 25

end if

for i = 0 to 50 step 2 ' set up loop.

f = i / 50 ' 執行中間。

f1 = 1 - f: f2 = 1 + f ' 計算。

line (cx * f1, cy)-(cx, cy * f1) ' 畫左上角。

line -(cx * f2, cy) ' 畫右上角。

line -(cx, cy * f2) ' 畫右下角。

line -(cx * f1, cy) ' 畫左下角。

forecolor = qbcolor(i mod 15) ' 每次改變顏色。

next i

doevents ' 進行其它處理。

end sub

6樓:匿名使用者

可以參考一下:

private sub form_load()me.autoredraw = true

me.scalemode = 6 '單位設為毫米me.drawwidth = 5 '5毫米dim i, j as long

for i = 1 to 10

if i > 5 then

line (5, i * 2)-(50, i * 2), vbblue

else

line (5, i * 2)-(50, i * 2), vbredend if

next i

end sub

7樓:匿名使用者

private sub form_click()me.drawwidth = 5 '5畫素 自己轉換你想要的5毫米for i = 1 to 5

me.line (100, 200 * i)-(1500, 200 * i), vbred

next

for i = 1 to 5

me.line (100, 1000 + 200 * i)-(1500, 1000 + 200 * i), vbblue

next

end sub

8樓:匿名使用者

object..drawwidth = 10

vb 如何在picture中用line方法連續畫線 10

9樓:匿名使用者

vb可用object.line - (x2, y2)寫法實現在物件上繪製連續折線。

line 方法,在物件上畫直線和矩形。

以下是具體實現繪製曲線的**:

option explicit

const pi = 3.14159265432

private sub command1_click()

picture1.scale (-2 * pi, 1)-(2 * pi, -1) '建立座標系

dim i as single

picture1.currentx = -2 * pi '建立當前座標

picture1.currenty = 0

for i = -2 * pi to 2 * pi step 0.01

picture1.line -(i, cos(3 * i) * sin(5 * i)), vbred '繪製曲線

next

end sub

執行效果:

VB中FORMAT是什麼意思,在VB中,Format 是什麼意思,怎麼理解的?

format是cstring類的一個成員函式,它通過格式操作使任意型別的資料轉換成一個字串 datetime是時間型別。返回值是一種格式化後的字元,format裡面可以寫普通的字串,比如 my name is 但有些格式指令字元具有特殊意義,比如 6s vb格式輸出函式可以使數值 日期或字串按指定的...

vb中tab(n)是什麼意思,在vb中「vbtab」 是什麼意思?

tab n 可選的 n 引數是在顯示或列印列表中的下一個表示式之前移動的列數。若省略此引數,則 tab 將插入點移動到下一個列印區的起點。這就使 tab 可用來替換國別中的逗號,此處,逗號是作為十進位制分隔符使用的。tab函式把顯示或列印位置移到由引數n指定的列數。當在一個 print方法中有多個t...

在vb中什麼叫標籤,什麼叫控制元件,在VB中什麼叫標籤,什麼叫控制元件?

在標籤的cilck事件中寫上 就可以點選了。private sub label1 click msgbox 點我 end sub 在圖形使用者介面 gui 中螢幕上的一種物件,使用者可操作該物件來執行某一行為。控制元件是使用者可與之互動以輸入或運算元據的物件。控制元件通常出現在對話方塊中或工具欄上。...