正文
vb.net16位色 vbs颜色代码
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb6.0安装完成后为什么图标没显示出来
其实很简单啦。如果你是想用作“编译出来的程序”的图标，你可以先下载一个iconworkshop，打开那个ico，再添加一个16位色和8位色的图标（程序会自动根据32位图标转换）。
然后扔给vb，vb只认16位色和8位色，所以这样的图标就可以使用；编译出来的程序依然会显示原来32位图标。
相关问答
Q1: 如何用vb.net向串口发送十六位进制数据
下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Length - 1)
Dim i As Integer
For i = 0 To TestArray.Length - 1
hexBytes(i) = Val("h" TestArray(i))
Next
SerialPort.Write(hexBytes, 0, hexBytes.Length)
Q2: VB如何获得或设置系统色
API 调用 SetSysColors
GetSysColor 获取系统颜色vb.net16位色，SetSysColors 设置系统颜色
Private Const COLOR_BACKGROUND = 1 '桌面背景
Private Const COLOR_ACTIVECAPTION = 2 '活动窗口标题
Private Const COLOR_INACTIVECAPTION = 3 '非活动窗口标题
Private Const COLOR_MENU = 4 '菜单
Private Const COLOR_WINDOW = 5 '窗口背景
Private Const COLOR_WINDOWFRAME = 6 '窗口框
Private Const COLOR_MENUTEXT = 7 '窗口文字
Private Const COLOR_WINDOWTEXT = 8 '3D 阴影 (Win95)
Private Const COLOR_CAPTIONTEXT = 9 '标题文字
Private Const COLOR_ACTIVEBORDER = 10 '活动窗口边框
Private Const COLOR_INACTIVEBORDER = 11 '非活动窗口边框
Private Const COLOR_APPWORKSPACE = 12 'MDI 窗口背景
Private Const COLOR_HIGHLIGHT = 13 '选择条背景
Private Const COLOR_HIGHLIGHTTEXT = 14 '选择条文字
Private Const COLOR_BTNFACE = 15 '按钮
Private Const COLOR_BTNSHADOW = 16 '3D 按钮阴影
Private Const COLOR_GRAYTEXT = 17 '灰度文字
Private Const COLOR_BTNTEXT = 18 '按钮文字
Private Const COLOR_INACTIVECAPTIONTEXT = 19 '非活动窗口文字
Private Const COLOR_BTNHIGHLIGHT = 20 '3D 选择按钮
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Sub Command1_Click()
SetSysColors 1, COLOR_ACTIVECAPTION, RGB(255,0,0)'把标题设置为红色
End Sub
Q3: VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码
这篇文章介绍了VB.NET设置屏幕分辨率、颜色位数、刷新率
实例代码，有需要的朋友可以参考一下
复制代码
代码如下:
Private
Declare
Function
GetDeviceCaps
Lib
"gdi32"
(ByVal
hdc
As
Long,
ByVal
nIndex
As
Long)
As
Long
Private
Declare
Function
ChangeDisplaySettings
Lib
"user32"
Alias
"ChangeDisplaySettingsA"
(lpDevMode
As
Any,
ByVal
dwflags
As
Long)
As
Long
Private
Const
CCDEVICENAME
As
Long
=
32
Private
Const
CCFORMNAME
As
Long
=
32
Private
Const
DM_BITSPERPEL
As
Long
=
H40000
Private
Const
DM_PELSWIDTH
As
Long
=
H80000
Private
Const
DM_PELSHEIGHT
As
Long
=
H100000
Private
Const
DM_DISPLAYFLAGS
As
Long
=
H200000
Private
Const
DM_DISPLAYFREQUENCY
=
H400000
Private
Const
CDS_FORCE
As
Long
=
H80000000
Private
Const
BITSPIXEL
As
Long
=
12
Private
Const
HORZRES
As
Long
=
8
Private
Const
VERTRES
As
Long
=
10
Private
Const
VREFRESH
=
116
Private
Type
DEVMODE
dmDeviceName
As
String
*
CCDEVICENAME
dmSpecVersion
As
Integer
dmDriverVersion
As
Integer
dmSize
As
Integer
dmDriverExtra
As
Integer
dmFields
As
Long
dmOrientation
As
Integer
dmPaperSize
As
Integer
dmPaperLength
As
Integer
dmPaperWidth
As
Integer
dmScale
As
Integer
dmCopies
As
Integer
dmDefaultSource
As
Integer
dmPrintQuality
As
Integer
dmColor
As
Integer
dmDuplex
As
Integer
dmYResolution
As
Integer
dmTTOption
As
Integer
dmCollate
As
Integer
dmFormName
As
String
*
CCFORMNAME
dmUnusedPadding
As
Integer
dmBitsPerPel
As
Integer
dmPelsWidth
As
Long
dmPelsHeight
As
Long
dmDisplayFlags
As
Long
dmDisplayFrequency
As
Long
End
Type
Private
Sub
cmdChangeDesktopMode_Click()
Dim
DM
As
DEVMODE
With
DM
.dmPelsWidth
=
CInt(txtNewWidth.Text)
.dmPelsHeight
=
CInt(txtNewHeight.Text)
.dmBitsPerPel
=
CInt(txtNewColor.Text)
.dmDisplayFrequency
=
CInt(txtNewFreq.Text)
.dmFields
=
DM_PELSWIDTH
Or
DM_PELSHEIGHT
Or
DM_BITSPERPEL
Or
DM_DISPLAYFREQUENCY
.dmSize
=
LenB(DM)
End
With
If
ChangeDisplaySettings(DM,
CDS_FORCE)
Then
MsgBox
"错误!不支持此模式！"
End
If
End
Sub
Private
Sub
Form_Load()
txtOldWidth.Text
=
GetDeviceCaps(Me.hdc,
HORZRES)
txtOldHeight.Text
=
GetDeviceCaps(Me.hdc,
VERTRES)
txtOldColor.Text
=
GetDeviceCaps(Me.hdc,
BITSPIXEL)
txtOldFreq.Text
=
GetDeviceCaps(Me.hdc,
VREFRESH)
End
Sub
Q4: vb.net 16进制数字转换为字符串
把字符串“12341168C5B7”转换为16进制数存为string型
用shuzi=Convert.ToInt32("12341168C5B7",16)
就ok了。
反之用 shuzi.ToString("X")就行了。
给分！！！
12341168C5B7转换成10进制数就是20014839678391。。
而int32的最大值为2,147,483,647。。所以产生错误。
所以要用int64，它的最大值为9,223,372,036,854,775,807。也就是16位十六进制数0X7FFFFFFFFFFFFFFF。
难道还有比F靠后的数？？？？？？
vb.net16位色的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs颜色代码、vb.net16位色的信息别忘了在本站进行查找喔。
