Question

vb有没有选择颜色控件？

类似这个：

让用户选择颜色。然后把颜色代码如（0x000000）黑色用MsgBox发送出来？？
看看啊~~是不是这个图标？

还有，我创建时为神马会这样：

求帮助！我再加分啊！加到60了！！





Answer 1

VB可通过CommonDialog 控件来打开“颜色”对话框，实现用户选择颜色。

通过使用 CommonDialog 控件的 ShowColor
方法可显示“颜色”对话框。“颜色”对话框用以从调色板选择颜色，或是生成和选择自定义颜色。

如要使用“颜色”对话框，先设置 CommonDialog 控件中与颜色对话相关的属性。然后使用
ShowColor 方法显示对话框，使用 Color 属性检索所选的颜色。

新建EXE工程，添加Microsoft Common Dialog Control 6.0部件到工程的工具箱中，然后在窗体上添加这个CommonDialog 控件，使用如下代码。

Private Sub Command1_Click()
    ' 设置“取消”为True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    '设置 Flags 属性
    CommonDialog1.Flags = cdlCCRGBInit
    ' 显示“颜色”对话框
    CommonDialog1.ShowColor
    ' 设置窗体的背景颜色为选定的颜色
    Form1.BackColor = CommonDialog1.Color
    Exit Sub
    
ErrHandler:
        ' 用户按了“取消”按钮
End Sub

Answer 2

有啊，点击菜单“工程”--“部件”，选中“Microsoft Common Dialog Control 6.0”，将新增加的控件放入窗体，代码如下：

Private Sub Command1_Click()
CommonDialog1.ShowColor
MsgBox CommonDialog1.Color
End Sub

追问

找不到啊，你截张图我看看好吗？

追答

追问

哎呀还是找不到。你在工具箱

和面板截个图吧。

追答

看来你装的不是VB6.0企业版，控件不全，请安装企业版！

追问

是企业版啊~

追答

Microsoft Common Dialog Control 6.0是VB的一个很重要的控件，中文名称是“通用对话框”，VB企业版一定是有这个控件的，你仔细找找
你上面贴了两张图，说明不了什么问题，并不是开机画面显示企业版就是企业版，我的XP开机画面改成Win7，但实际上还是XP。工具箱里面没有，说明部件没选中，最关键你还是要看部件里面有没有选中通用对话框控件（前面打勾）

追问

我的找到了是找到了（看打钩选项）：

但是在窗体上拖动创建

之后就是这样了：

怎么回事？我的图标是：

请大神看看对不对，不对到底怎么回事？？还有，我的文件名怎么和你的不一样？

你的：

我的：

追答

哦，你的文件名是对的，我那个并不是选择的通用对话框控件，需要点一下才行。
但是你这个控件用不起来，简单做法是重新装VB，复杂做法是上网下载这个控件，然后重新注册

Answer 3

追问

请问是不是这个图标：

还有为什么我创建后会变成这样？？

追答

你没打SP6的补丁?

追问

额，怎么打呢？

Answer 4

'要么,用api试试?
'api
Private Type ChooseColor
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long

'调用
Private Sub Command1_Click()
Dim iColor As ChooseColor
Dim iReturn As Long
With iColor
.lStructSize = Len(iColor)
.hwndOwner = hWnd
.flags = &H2
.lpCustColors = String$(16 * 4, 0)
End With
iReturn = ChooseColor(iColor)
If (iReturn) Then Me.BackColor = (iColor.rgbResult) '改变窗体背景色
End Sub

Answer 5

RGB(o,o,o)

追问

请问如何设置一个对象的颜色？