1樓：匿名使用者
vb可用line方法迴圈呼叫rgb函式實現七彩過渡漸變色效果。
1）line 方法，在物件上畫直線和矩形。
2）rgb 函式，返回乙個 long整數，用來表示乙個 rgb 顏色值。
3）實現**如下：
option explicit
dim w, h, a, i, c
private sub form_click()
scalemode = 3
w = 600 '寬度
h = 300 '高度
a = w / 6 '影象分六部分
for i = 0 to a
c = i * 255 / a
line (i + a * 0, 0)-(i + a * 0, h), rgb(255, 0, 255 - c)
line (i + a * 1, 0)-(i + a * 1, h), rgb(255, c, 0)
line (i + a * 2, 0)-(i + a * 2, h), rgb(255 - c, 255, 0)
line (i + a * 3, 0)-(i + a * 3, h), rgb(0, 255, c)
line (i + a * 4, 0)-(i + a * 4, h), rgb(0, 255 - c, 255)
line (i + a * 5, 0)-(i + a * 5, h), rgb(c, 0, 255)
next i
end sub
private sub form_load()
me.width = 9270
end sub效果：
2樓：滿以柳
用vb6做的程式如下圖：
雖然顏色選擇的起始順序有些不同，但原理是相通的。參考一下...
程式如下：
private sub form_load()dim i as integer
dim k as integer
k = 15
for i = 1 to 255 step 6me.forecolor = rgb(255, 0, i)line (k, 0)-(k, 250)
k = k + 1
next i
for i = 252 to 0 step -6me.forecolor = rgb(i, 0, 255)line (k, 0)-(k, 250)
k = k + 1
next i
for i = 6 to 255 step 6me.forecolor = rgb(0, i, 255)line (k, 0)-(k, 250)
k = k + 1
next i
for i = 252 to 0 step -6me.forecolor = rgb(0, 255, i)line (k, 0)-(k, 250)
k = k + 1
next i
for i = 6 to 255 step 6me.forecolor = rgb(i, 255, 0)line (k, 0)-(k, 250)
k = k + 1
next i
for i = 252 to 0 step -6me.forecolor = rgb(255, i, 0)line (k, 0)-(k, 250)
k = k + 1
next i
end sub
3樓：
scalemode = 3
w = 600 '寬度
h = 300 '高度
a = w / 6 '影象分六部分
for i = 0 to a
c = i * 255 / a
line (i + a * 0, 0)-(i + a * 0, h), rgb(255, 0, 255 - c)
line (i + a * 1, 0)-(i + a * 1, h), rgb(255, c, 0)
line (i + a * 2, 0)-(i + a * 2, h), rgb(255 - c, 255, 0)
line (i + a * 3, 0)-(i + a * 3, h), rgb(0, 255, c)
line (i + a * 4, 0)-(i + a * 4, h), rgb(0, 255 - c, 255)
line (i + a * 5, 0)-(i + a * 5, h), rgb(c, 0, 255)
next i
4樓：匿名使用者
用rgb函式加畫線，應該有色調轉rgb的演算法
5樓：匿名使用者
執行附件中的exe，視窗自動隱藏後的效果看能不能給你啟發
如何用vb做顏色漸變的窗體
6樓：永恆的風風
用個timer空間控制顏色就行了
7樓：念尐憂
private sub form_load()timer1.interval = 100end sub
private sub timer1_timer()me.backcolor = rgb(rnd() * 255, rnd() * 255, rnd() * 255)
end sub
8樓：
顏色漸變，不是定時變換顏色
用個漸變的背景**就行了啊
9樓：匿名使用者
'單色漸變
private sub form_click()randomize
c2 = int(rnd * 256)
c3 = int(rnd * 256)
c = int(rnd * 3 + 1)
d = (me.height - 500) / 254me.drawwidth = d \ 15 + 1for i = 0 to (me.height - 500) step d
me.line (0, i)-(me.width, i), choose(c, rgb(c1, c2, c3), rgb(c2, c1, c3), rgb(c2, c3, c1))
c1 = c1 + 1
next
end sub
利用vb語言實現圖形顏色深度線性漸變
10樓：匿名使用者
您好！！請看如下**：
private sub form_click()dim max as integer
max = 10000
for i = 1 to max
line (i, 0)-(i, me.height), rgb(i * (255 / max), 0, 0)
next i
end sub
這段**實現在窗體中畫出乙個由黑色到紅色的漸變，範圍是變數max決定的10000（您定的100範圍太小，漸變效果不明顯，所以我改成了10000。），您可以改成其他的數值，您只需要稍加修改就能夠使用了。望採納！！
七彩鐵怎麼養，七彩鐵好養嗎？
ceo雄風 適宜在陽光直射或明亮散射光下生長，夏季最好半遮蔭，溫度維持在15 20 土壤和空氣濕度要大些，應經常給葉叢噴霧。該植物沒有休眠期，冬季溫度以12 16 為宜，植株具有相當程度抗寒力。3 9 月間，每月應施一次液體肥料，栽培基質以等量有機質土 泥碳和細沙混合物為宜。每2 3年換一次盆土，加...
七彩峽谷介紹
七彩大峽谷位於雲南省曲靖市沾益縣境內，上至大坡河尾，流經菱角，下至德澤小江，全長57千米。是一條萬丈深淵的大峽谷，峽谷兩岸懸崖高低差最大處達1 500米左右，由 天蓬谷 幽魂谷 空靈谷 紅巖谷 五大景區組成。兩岸石壁呈紅 黃 白 藍 青 紫等色調，與岸邊繁茂的植物和多彩的瑞雲 彩霞相輝映，故名 七彩...
七彩玫瑰怎麼養，七彩玫瑰花的種植原理
sunny體育老師 在白玫瑰的培育水中添入各種食用色素和染色劑，經由白玫瑰莖部擴散至花瓣，再經花瓣吸收後開出絢麗的彩色花朵。買到七彩玫瑰鮮花後，可以和普通玫瑰一樣保養，定期換水，避免風吹，遠離暖氣和高溫，避免太陽直射，保持空氣溼度。七彩玫瑰贈予那些相信愛情的人們。純真發願，點滴注入，璀璨綻放，篤定永...