十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
这东西改不了,要想改的话要在系统显示设置里修改主题。
创新互联专业为企业提供水富网站建设、水富做网站、水富网站设计、水富网站制作等企业网站建设、网页设计与制作、水富企业网站模板建站服务,10年水富做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
不过如果想做的漂亮些,可以去网上找代码把整个窗体改成蓝色(随便一种颜色)然后用代码把窗体蓝色部分扣去,可以PS一个窗体图片,插到窗体上,这样这个窗体蓝色部分都被扣去了(图片里的蓝色无法扣去)只能看见一张图片,可以在上面加控件。
不用代码画线,你用LINE 对象吧
就是形状中的直线
就可以随时修改颜色了
代码给你了 剩下的就看你自己了
private void Form1_Load(object sender, EventArgs e)
{
//获取默认颜色
CellColor = dataGridView1[0, 0].Style.BackColor;
}
Color CellColor = Color.Black;
private void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e)
{
//如果第一个为红色,恢复默认并将所点击的单元格换色
if (dataGridView1[0, e.RowIndex].Style.BackColor != CellColor)
{
dataGridView1[0, e.RowIndex].Style.BackColor = CellColor;
dataGridView1[e.ColumnIndex, e.RowIndex].Style.BackColor = Color.Red;
}
//单击后第一个单元格红色
dataGridView1[0, e.RowIndex].Style.BackColor = Color.Red;
}
也容易,如果是黑白三个颜色加上相同的渐变量,彩色的是起始颜色的三个分量与终止颜色的对应三个分量的差值,再除于相同的份数,就得出三原色各自的步进量。
窗体上放个图片框试试下面代码:
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点虐 如何使文字能渐变颜色,就是颜色慢慢变淡然后在慢慢恢复?"
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