1樓：匿名使用者
在窗體上加入控制元件line1，然後複製下面**，執行後在窗體上拖放滑鼠即可。
option explicit
private sub form_load()
me.autoredraw = true
line1.visible = false
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
with line1
.x1 = x
.y1 = y
.x2 = x
.y2 = y
.visible = true
end with
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
with line1
if button = 1 then
.x2 = x
.y2 = y
end if
end with
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
with line1
if button = 1 then
.visible = false
line (.x1, .y1)-(.x2, .y2)
end if
end with
end sub
2樓：
vb有一個shape控制元件可以做一條直線出來，判斷滑鼠按下時顯示這條直線，同時固定一端(x1和y1)，滑鼠移動時修改這條直線的另一端的(x2和y2)，然後在滑鼠鬆開時用line(x1,y1)-(x2,y2)畫線並隱藏直線控制元件就可以了
3樓：永弘壯
line (0,100)-(100,200)
4樓：匿名使用者
可以實現而且無須api
vb中畫直線問題？
5樓：匿名使用者
「雙擊起點第二下不鬆開並拖動滑鼠時會畫同以起點開始的n多條直線」，這是程式的響應事件問題，第一次mousedown、mouseup，再按下時，就產生dblclick事件，同時阻斷mousedown事件，再鬆開時，就產生mouseup事件。（需要按同一個鍵）
dblclick事件只需要mousedown、mouseup、mousedown就會產生。
可以這麼說，dblclick事件替換掉了第二次的mousedown事件。
只要在dblclick事件裡呼叫mousedown事件就能解決問題了。
新增一個變數
dim bn as integer '記錄按鍵資訊
private sub picture2_mousedown(button as integer, shift as integer, x as single, y as single)
bn = button
if button <> 1 then exit sub
picture2.autoredraw = false
startx = x
starty = y
end sub
private sub picture2_mousemove(button as integer, shift as integer, x as single, y as single)
if button <> 1 then exit sub
picture2.refresh
picture2.line (startx, starty)-(x, y)
end sub
private sub picture2_mouseup(button as integer, shift as integer, x as single, y as single)
if button <> 1 then exit sub
endx = x
endy = y
picture2.autoredraw = true
picture2.line (startx, starty)-(endx, endy)
end sub
private sub picture2_dblclick()
if bn = 1 then call picture2_mousedown(1, 0, endx, endy)
end sub
在vb中畫線（急！）
6樓：依然特雷西
1、繪製線表後肯定要先找到這兩個控制元件。
2、然後在這裡先畫上x和y兩軸線。
4、接下來，用標籤輸入這兩個標誌。
4、在使用這個形狀按鈕繪製。
5、一個個畫過去線條就可以了。
注意事項：
vb可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立active x控制元件，用於高效生成型別安全和麵向物件的應用程式。
7樓：匿名使用者
畫直線為了在兩個座標點之間畫一條直線，可使用 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 屬性，來決定直線的顏色。
8樓：匿名使用者
瞭解下面幾個方法的使用
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)畫點
急！為什麼在ps畫完的圖畫印刷出來效果很不好
解析度最好是在300dpi，我們知道，高解析度的影象比相同大小的低解析度的影象包含的畫素多，影象資訊也較多，表現細節更清楚，這也就是考慮輸出因素確定影象解析度的一個原因。由於影象的用途不一，因此應根據影象用途來確定解析度。如一幅影象若用於在螢幕上顯示，則解析度為72dpi或 96dpi即可 若用於6...
畫漫畫中的問題
1 類似電影裡的鏡頭效果，就是漫畫裡那些一個一個的小格子，根據情景劇情人物不同會有不同的形狀或者大小。2 一般還是先寫一個指令碼 手寫版 就是類似 小a 你太弱了。俯視小b，嘲笑 小b 不可能 我怎麼會輸！站起，眼神堅定 嘛 專業的指令碼需要程式設計，你還是玩手寫體的吧。3 一般a4無誤。畫小了沒關...
在春雨沙沙，的短文中，春雨織出的圖畫中有哪些景物？除了這些,你認
一場溫暖的春雨,亮晶的雨絲,又好像春姑娘撥動的琴絃,春風是你輕柔的手指,彈出一首首動人的歌曲.春雨一聲響,你可來臨了,無聲無息地下著,雨絲如煙如粉.柔情的春雨,你多麼像一位天使,從山那邊跑來.搜一下 在春雨沙沙，的短文中，春雨織出的圖畫中有哪些景物？除了這些,你認 燕子在雨中指出春天的圖畫還有哪些 ...