1樓:匿名使用者
直接在form上作圖的**可以參考如下:
用乙個的空白的form,上面放乙個按鈕,靠右邊放,點選按鈕將在form左上角畫乙個紅矩形
private sub command1_click()me.drawwidth = 2
me.forecolor = rgb(255, 0, 0)me.line (200, 200)-(200, 500)me.
line (200, 500)-(500, 500)me.line (500, 500)-(500, 200)me.line (500, 200)-(200, 200)end sub
2樓:匿名使用者
不知道你想要什麼樣的畫矩形的程式。下面是直接用滑鼠在窗體上畫矩形的。你只要按下滑鼠左鍵在窗體上畫,鬆開滑鼠就會畫出乙個矩形來。
dim cx0 as long, cy0 as longprivate sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
cx0 = x
cy0 = y
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then
me.line (cx0, cy0)-(x, y), , bend if
end sub
3樓:匿名使用者
以前寫過乙個比較複雜的
直接複製執行~
dim sx as integer
dim sy as integer
dim draw as boolean
dim sp as long
private sub form_keydown(keycode as integer, shift as integer)
if keycode = 32 then
p = me.left
c = me.top
unload me
me.hide
me.left = p
me.top = c
me.show
end if
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
sx = x
sy = y
draw = true
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if draw = true then
me.cls
line (sx, sy)-(x, y), , b
else
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
draw = false
line (sx, sy)-(x, y), , b
b = "sp" & sp
set a = controls.add("vb.shape", b)
a.visible = true
if x - sx <= 0 then
a.left = x
a.width = abs(x - sx)
else
a.left = sx
a.width = x - sx
end if
if y - sy <= 0 then
a.top = y
a.height = abs(y - sy)
else
a.top = sy
a.height = y - sy
end if
me.cls
a.shape = 4
a.backstyle = 1
a.zorder
randomize
a.backcolor = rgb(255 * rnd(), 255 * rnd(), 255 * rnd())
sp = sp + 1
end sub
vb裡面怎麼畫矩形?
4樓:趣園藝
vb程式設計中用程式自動生成矩形,**如下:
dim sx as integer
dim sy as integer
dim draw as boolean
dim sp as long
private sub form_keydown(keycode as integer, shift as integer)
if keycode = 32 then
p = me.left
c = me.top
unload me
me.hide
me.left = p
me.top = c
me.show
end if
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
sx = x
sy = y
draw = true
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if draw = true then
me.cls
line (sx, sy)-(x, y), , b
else
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
draw = false
line (sx, sy)-(x, y), , b
b = "sp" & sp
set a = controls.add("vb.shape", b)
a.visible = true
if x - sx <= 0 then
a.left = x
a.width = abs(x - sx)
else
a.left = sx
a.width = x - sx
end if
if y - sy <= 0 then
a.top = y
a.height = abs(y - sy)
else
a.top = sy
a.height = y - sy
end if
me.cls
a.shape = 4
a.backstyle = 1
a.zorder
randomize
a.backcolor = rgb(255 * rnd(), 255 * rnd(), 255 * rnd())
sp = sp + 1
end sub
5樓:瑞安阿芳
使用line方法,向form,picturebox這些控制項都支援這個方法。
語法:object.line [step] (x1, 1) [step] (x2, y2), [color], [b][f]
如:me.line (100,100)-(600,600), vbred, bf
加b這個引數就是矩形,加f就是用就邊框顏色填充
補充:color引數就是邊框顏色,如果省略,就用物件的forecolor(前景色,就是字型的顏色) 屬性值
vb裡面畫矩形的標準**是什麼?
6樓:匿名使用者
object.line (x1, 1) - (x2, y2), [color], [b][f]
[b] 可選的。如果包括,則利用對角座標畫出矩形。
具體用法,在msdn裡查詢line 方法。
vb的畫矩形圖問題
7樓:慕竹青將卯
放乙個timer控制項,把interval設定為800option
explicit
dimx1,
y1,x2,
y2private
subform_load()x1=
me.scalewidth/2
y1=me.scaleheight/2
endsub
private
subtimer1_timer()
randomizex2=
int(101
*rnd)
*10'這裡我乘了10,如果生成0-100的數,在座標系上太小了,看不清y2=
int(101
*rnd)*10
line
(x1,
y1)-(x2,
y2),,b
x1=x2y1=y2
endsub
8樓:網海1書生
pic1.line (100, 100)-(100 + a, 100 + b), , bf
跟pic1.line (100 + a, 100 + b)-(100, 100), , bf
的效果是一樣的,只不過是把起點和終點對換過來而已(就像數學中從a點到b點畫一條線段,跟從b點到a點畫一條線段是一樣的)。
bf是表示要畫實心的矩形,如果是
pic1.line (100, 100)-(100 + a, 100 + b)
則是畫一條線段。如果是
pic1.line (100, 100)-(100 + a, 100 + b), , b
則是畫乙個空心的矩形
pic1.fillcolor = vbbottonface是表示在pic1中畫圖的時候,把標準按鈕的表面顏色作為實心的封閉圖形(圓、矩形、三角形等等)的填充色
9樓:匿名使用者
1、[這裡為什麼這裡多了乙個not,後面的幾個if語句都沒有not的?]
not表示對 drawing取反再參與if的判斷。
2、[這裡定義座標為什麼是用冒號:的,而不是用分號;的?]
:相當於分行,也就是本應當寫兩行或多行的,中間用:隔開就可以寫在一行了。
3、[這裡後面的兩個逗號跟b是什麼意思的?]
object.line [step] (x1, 1) [step] (x2, y2), [color], [b][f]
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。
vb畫多邊形
我貼上的,對於多邊形面積就不知道怎麼算了 下面是 新建乙個txt文件,複製下面 儲存為.frm 就可以使用了 version 5.00 begin vb.form frmdraw caption form1 clientheight 10425 clientleft 120 clienttop 45...
圓角矩形工具怎麼用,PS中的圓角矩形工具怎麼用
你如果是用選區工具畫的矩形,那就像一樓所說的一樣,是不會發生這種情況的。但是我看你的題意好像是用形狀工具畫的矩形,那麼,選擇選單下的命令應該除了 全部 以外,全都是灰色的。原因很明顯啊,因為 選擇 選單是讓你調整選區用的,你沒有建立選區 形狀不是選區 當然選擇選單下的命令就不可用了。你說的要將矩形平...
在矩形ABCD中AB 6 AD 8將矩形ABCD沿EF摺疊時使點A與點C重合求摺痕EF的長
解 連線ac交ef於點o 摺疊時點a與點c重合,所以ae ec eao eco 同理 fao fco 又 fao eco eao fco 即ae fc,af ec 四邊形aecf是平行四邊形 四邊行aecf是菱形 因為平行四邊形的一組鄰邊相等 根據菱形的性質可得ef與ac相互垂直且平分即 aoe 9...
html裡怎麼畫矩形,html 裡怎麼畫乙個矩形
rect標籤引數解析 rect 元素的 width 和 height 屬性可定義矩形的高度和寬度,現在給矩形的寬為300,高為100 style 屬性用來定義 css 屬性 css 的 fill 屬性定義矩形的填充顏色 rgb 值 顏色名或者十六進製制值 css 的 stroke width 屬性定...
vb中的for語句,VB中的For語句
一 vb中的for語句格式 for 迴圈變數 初值 to 終值 step步長 迴圈體 exit for next 迴圈變數 二 vb中的for語句功能 當迴圈變數的值在初值到終值範圍內時,執行一次迴圈體中的語句塊,並使初值增加乙個步長。當迴圈變數的值不在初值到終值範圍內時,就退出迴圈,執行next後...