VB點(diǎn)虐 如何更改窗體標(biāo)題欄顏色？

這東西改不了，要想改的話要在系統(tǒng)顯示設(shè)置里修改主題。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供水富網(wǎng)站建設(shè)、水富做網(wǎng)站、水富網(wǎng)站設(shè)計(jì)、水富網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、水富企業(yè)網(wǎng)站模板建站服務(wù)，10年水富做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

不過如果想做的漂亮些，可以去網(wǎng)上找代碼把整個(gè)窗體改成藍(lán)色（隨便一種顏色）然后用代碼把窗體藍(lán)色部分扣去，可以PS一個(gè)窗體圖片，插到窗體上，這樣這個(gè)窗體藍(lán)色部分都被扣去了（圖片里的藍(lán)色無法扣去）只能看見一張圖片，可以在上面加控件。

vB點(diǎn)虐 如何在信號(hào)輸入時(shí),直線顏色發(fā)生變化

不用代碼畫線，你用LINE　對(duì)象吧

就是形狀中的直線

就可以隨時(shí)修改顏色了

vb點(diǎn)虐 怎么做可以使datagridview選中某行時(shí)，行的第一個(gè)單元格改變顏色（如紅色），單擊其他單元格恢復(fù)

代碼給你了??剩下的就看你自己了

private?void?Form1_Load(object?sender,?EventArgs?e)

{

//獲取默認(rèn)顏色

CellColor?=?dataGridView1[0,?0].Style.BackColor;

}

Color?CellColor?=?Color.Black;

private?void?dataGridView1_CellClick(object?sender,?DataGridViewCellEventArgs?e)

{

//如果第一個(gè)為紅色，恢復(fù)默認(rèn)并將所點(diǎn)擊的單元格換色

if?(dataGridView1[0,?e.RowIndex].Style.BackColor?!=?CellColor)?

{

dataGridView1[0,?e.RowIndex].Style.BackColor?=?CellColor;

dataGridView1[e.ColumnIndex,?e.RowIndex].Style.BackColor?=?Color.Red;

}

//單擊后第一個(gè)單元格紅色

dataGridView1[0,?e.RowIndex].Style.BackColor?=?Color.Red;

}

vb點(diǎn)虐 如何使文字能漸變顏色，就是顏色慢慢變淡然后在慢慢恢復(fù)？

也容易，如果是黑白三個(gè)顏色加上相同的漸變量，彩色的是起始顏色的三個(gè)分量與終止顏色的對(duì)應(yīng)三個(gè)分量的差值，再除于相同的份數(shù)，就得出三原色各自的步進(jìn)量。

窗體上放個(gè)圖片框試試下面代碼：

Private?Sub?PictureBox1_Paint(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.PaintEventArgs)?Handles?PictureBox1.Paint

Dim?startColor?As?Color?=?Color.Red

Dim?endColor?As?Color?=?Color.Green

Dim?s?As?String?=?"vb點(diǎn)虐 ?如何使文字能漸變顏色，就是顏色慢慢變淡然后在慢慢恢復(fù)？"

Dim?Steps?As?Integer?=?s.Length?\?2

Dim?StepR?As?Integer?=?(CInt(endColor.R)?-?startColor.R)?\?Steps

Dim?StepG?As?Integer?=?(CInt(endColor.G)?-?startColor.G)?\?Steps

Dim?StepB?As?Integer?=?(CInt(endColor.B)?-?startColor.B)?\?Steps

Dim?R?As?Integer?=?startColor.R

Dim?G?As?Integer?=?startColor.G

Dim?B?As?Integer?=?startColor.B

Dim?drawFont?As?New?System.Drawing.Font("Arial",?16)

Dim?X?As?Integer?=?50

For?i?As?Integer?=?1?To?Steps

Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))

e.Graphics.DrawString(s.Substring(i?-?1,?1),?drawFont,?drawBrush,?X,?50.0)

X?+=?18

R?+=?StepR

G?+=?StepG

B?+=?StepB

Next

For?i?As?Integer?=?1?To?Steps

Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))

e.Graphics.DrawString(s.Substring(i?+?Steps?-?1,?1),?drawFont,?drawBrush,?X,?50.0)

X?+=?18

R?-=?StepR

G?-=?StepG

B?-=?StepB

Next

End Sub