重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这东西改不了,要想改的话要在系统显示设置里修改主题。
创新互联长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为文县企业提供专业的网站建设、网站制作,文县网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。
不过如果想做的漂亮些,可以去网上找代码把整个窗体改成蓝色(随便一种颜色)然后用代码把窗体蓝色部分扣去,可以PS一个窗体图片,插到窗体上,这样这个窗体蓝色部分都被扣去了(图片里的蓝色无法扣去)只能看见一张图片,可以在上面加控件。
其他机器是只同一个程序 还是 是不是应为你的其他软件的背景色是透明的呢
Dim r as new Random
Dim m_Color As Color=Color.FromArgb(255,r.Next(0,255),r.Next(0,255),r.Next(0,255))
VB可使用Point方法来获取图片指定点的颜色。
Point 方法
按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。
语法
object.Point(x, y)
'窗体判色代码:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
给你一个示例
Private Sub DG1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DG1.CellFormatting
If DG1.Columns(e.ColumnIndex).Name = "Red1" Or DG1.Columns(e.ColumnIndex).Name = "Red2" Or DG1.Columns(e.ColumnIndex).Name = "Red3" Or DG1.Columns(e.ColumnIndex).Name = "Red4" Or DG1.Columns(e.ColumnIndex).Name = "Red5" Or DG1.Columns(e.ColumnIndex).Name = "Red6" Or DG1.Columns(e.ColumnIndex).Name = "Red7" Or DG1.Columns(e.ColumnIndex).Name = "Red8" Or DG1.Columns(e.ColumnIndex).Name = "Red9" Or DG1.Columns(e.ColumnIndex).Name = "Red10" Or DG1.Columns(e.ColumnIndex).Name = "Red11" Or DG1.Columns(e.ColumnIndex).Name = "Red12" Or DG1.Columns(e.ColumnIndex).Name = "Red13" Or DG1.Columns(e.ColumnIndex).Name = "Red14" Or DG1.Columns(e.ColumnIndex).Name = "Red15" Or DG1.Columns(e.ColumnIndex).Name = "Red16" Or DG1.Columns(e.ColumnIndex).Name = "Red17" Or DG1.Columns(e.ColumnIndex).Name = "Red18" Or DG1.Columns(e.ColumnIndex).Name = "Red19" Or DG1.Columns(e.ColumnIndex).Name = "Red20" Or DG1.Columns(e.ColumnIndex).Name = "Red21" Or DG1.Columns(e.ColumnIndex).Name = "Red22" Or DG1.Columns(e.ColumnIndex).Name = "Red23" Or DG1.Columns(e.ColumnIndex).Name = "Red24" Or DG1.Columns(e.ColumnIndex).Name = "Red25" Or DG1.Columns(e.ColumnIndex).Name = "Red26" Or DG1.Columns(e.ColumnIndex).Name = "Red27" Or DG1.Columns(e.ColumnIndex).Name = "Red28" Or DG1.Columns(e.ColumnIndex).Name = "Red30" Or DG1.Columns(e.ColumnIndex).Name = "Red31" Or DG1.Columns(e.ColumnIndex).Name = "Red32" Or DG1.Columns(e.ColumnIndex).Name = "Red33" Or DG1.Columns(e.ColumnIndex).Name = "Red29" Then
If Not (e.Value Is Nothing) Then
If Val(e.Value) 0 Then
e.CellStyle.BackColor = Color.Red
End If
End If
ElseIf DG1.Columns(e.ColumnIndex).Name = "Blue1" Or DG1.Columns(e.ColumnIndex).Name = "Blue2" Or DG1.Columns(e.ColumnIndex).Name = "Blue3" Or DG1.Columns(e.ColumnIndex).Name = "Blue4" Or DG1.Columns(e.ColumnIndex).Name = "Blue5" Or DG1.Columns(e.ColumnIndex).Name = "Blue6" Or DG1.Columns(e.ColumnIndex).Name = "Blue7" Or DG1.Columns(e.ColumnIndex).Name = "Blue8" Or DG1.Columns(e.ColumnIndex).Name = "Blue9" Or DG1.Columns(e.ColumnIndex).Name = "Blue10" Or DG1.Columns(e.ColumnIndex).Name = "Blue11" Or DG1.Columns(e.ColumnIndex).Name = "Blue12" Or DG1.Columns(e.ColumnIndex).Name = "Blue13" Or DG1.Columns(e.ColumnIndex).Name = "Blue14" Or DG1.Columns(e.ColumnIndex).Name = "Blue15" Or DG1.Columns(e.ColumnIndex).Name = "Blue16" Then
If Not (e.Value Is Nothing) Then
If Val(e.Value) 0 Then
e.CellStyle.BackColor = Color.Blue
End If
End If
End If
End Sub