1樓:藏誠方嬋
一般情況,我們在窗體(from)或者**框(picturebox)內畫圖。
下面是乙個在窗體內畫線的例子:
private
subform_click()
me.drawwidth=1
'設定寬度(其他寬度下線型均為實線)
fori=0
to6me.drawstyle=i
'設定線條型別
me.line
(1000*i
+100,
100)-(1000*i
+100,
6000),
vbred
'線的起點、終點和顏色
next
iend
sub下面是乙個在**框內畫線的例子(當然窗體內必須有乙個**框,並且假定name屬性為picture1):
private
subform_click()
picture1.drawwidth=1
'設定寬度(其他寬度下線型均為實線)
fori=0
to6picture1.drawstyle=i
'設定線條型別
picture1.line
(1000*i
+100,
100)-(1000*i
+100,
6000),
vbred
'線的起點、終點和顏色
next
iendsub
2樓:郗晚竹長衣
picture,form是容器控制項,可以放線條,也可以放其他控制項。
設定控制項的font屬性。
vb問題,在什麼控制項內可以畫圖,線的寬度和顏色如何控制?
3樓:
一般情況,我們在窗體(from)或者**框(picturebox)內畫圖。
下面是乙個在窗體內畫線的例子:
private sub form_click()
me.drawwidth = 1 '設定寬度(其他寬度下線型均為實線)
for i = 0 to 6
me.drawstyle = i '設定線條型別
me.line (1000 * i + 100, 100)-(1000 * i + 100, 6000), vbred '線的起點、終點和顏色
next i
end sub
下面是乙個在**框內畫線的例子(當然窗體內必須有乙個**框,並且假定name屬性為picture1):
private sub form_click()
picture1.drawwidth = 1 '設定寬度(其他寬度下線型均為實線)
for i = 0 to 6
picture1.drawstyle = i '設定線條型別
picture1.line (1000 * i + 100, 100)-(1000 * i + 100, 6000), vbred '線的起點、終點和顏色
next i
end sub
4樓:
vb6 畫圖原始碼 可實現功能 線 圓 矩形 圖形移動 顏色 線寬更改 大小更改
5樓:匿名使用者
picture,form是容器控制項,可以放線條,也可以放其他控制項。
設定控制項的font屬性。
vb 如何設定控制項的寬度、高度
6樓:匿名使用者
可以把 twip 單位 / screen.twipsperpixelx 和 screen.twipsperpixely
如 picture1.width / screen.twipsperpixelx
picture1.height / screen.twipsperpixely
其實如果不嚴緊的話 可以用 15 代替 screen.twipsperpixelx
如 picture1.width / 15
picture1.height / 15
另外可以用
picture1.scalex(x,vbtwips,vbpixel)
picture1.scaley(y,vbtwips,vbpixel)
vb中,如何改變控制項的顏色?
7樓:沈欣達
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
private sub text1_mousemove(button as integer, shift as integer, x as single, y as single)
移到text1用mousemove事件使label1顏色變紫,滑鼠離開label1也就是到了窗體上只需在窗體中加入mousemove事件即可。試試看保證可行,而且是最簡單的語句。
vb.net中有沒有哪個控制項可以自定義形狀(如圓形,多邊形)和顏色,如果有,希望你您給出**
8樓:匿名使用者
記得vb6當中有shape控制項,但是vb.net裡這個控制項不存在了。
提個思路:使用picture控制項或label控制項,通過**在控制項裡繪圖想要的圖形,可以試試。
vb picture 控制項 畫線的時候怎麼分別改變線的透明度,粗細 是不同的線可以設定不同線寬嗎?………… 謝謝
9樓:
line的borderwidth可以改變粗細。
編寫乙個vb迴圈程式用line方法或line控制項物件在螢幕上隨機產生20條長度、顏色、寬度各異的直線段
10樓:聽不清啊
private sub form_click()clsrandomize
me.windowstate = 2
for i = 1 to 20
me.drawwidth = int(20 * rnd) + 1line (int(rnd * form1.width), int(rnd * form1.
height))-(int(rnd * form1.width), int(rnd * form1.height)), rgb(int(256 * rnd), int(256 * rnd), int(256 * rnd))
next i
end sub
vb picture 控制項 畫線的時候怎麼分別改變線的透明度,粗細
11樓:飄葉雜談
透明度無法改變
粗細可以修改 窗體的drawwidth屬性 預設為1
12樓:匿名使用者
private sub form_load()picture1.autoredraw = truepicture1.drawwidth = 1picture1.
line (0, 0)-(100, 500), vbred
picture1.drawwidth = 5picture1.line -(1000, 1000), vbgreen
picture1.drawwidth = 9picture1.line -(2000, 1000), vbblue
end sub
在vb中控制項可不可以在**框中繪圖
13樓:匿名使用者
可以!以下**在picturebox中畫出1個矩形和乙個圓option explicit
private sub command1_click()'畫乙個矩形
picture1.line (10, 10)-(100, 60), vbred, b
end sub
private sub command2_click()'畫乙個圓:圓心在(80, 50),半徑為50picture1.circle (80, 50), 50, vbblue
end sub
private sub form_load()'背景色為白
picture1.backcolor = vbwhite'作圖時以畫素為單位
picture1.scalemode = vbpixels'自動重新整理
picture1.autoredraw = trueend sub
14樓:
這句話這麼有語病。什麼叫控制項在**框中繪圖?是你繪圖!控制項又沒有思想
15樓:匿名使用者
當然可以!
圖中是用畫斜線的方式,當然你可以畫點,畫圓等。
private sub command1_click()picture1.scale (0, 100)-(200, 0) '定義乙個自己的座標系統,便於畫圖
picture1.line (0, 0)-(200, 100)end sub
16樓:匿名使用者
一般用line和circle繪圖
不懂下個msdn
搜下介紹的很詳細
vb問題timer控制項的用法,VB問題,timer 控制項的用法。
dim t private sub command1 click t 0 timer1.interval 1000 計時事的毫秒數,即每1秒呼叫一次timer1 timer timer1.enabled trueend sub private sub timer1 timer t t 1 text1...
VB有關image控制項的問題
在form.load裡面 下一張.click裡面 上一張.click裡面 dim tu as integer private sub command1 click 上一張if tu 1 then tu tu 1 image1.picture loadpicture n tu private sub ...
求VB幫助控制項陣列的問題
品牌3個按鈕為command1控制項組 品牌資訊3個文字框為text1控制項組 各個品牌數量及總價為text2控制項組 確定取消結束為command2控制項組 private sub command1 click index as integer if index 0 then text1 0 愛國...