vb 部件中的颜色部件是那个

vb 部件中的颜色部件是那个

通用对话框控件。CommonDialog(在部件中引用Microsoft common Dialog Control 6.0)

'通用对话框控件。CommonDialog(在部件中引用Microsoft common Dialog Control 6.0) 'CommonDialog 控件提供诸如“打开”、“另存为”、“颜色”、“字体”、“打印”体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。 '要先单击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0(SP6)”选中，在工具栏就多出了一个CommonDialog控件图标，将其添加到窗体上 '1. 指定在“文件类型”列表框中显示的文件过滤器列表。 '　　　　可用下列格式设置 Filter 属性： '　　　　description1 | filter1 | description2 | filter2... '　　　　Description 是列表框中显示的字符串——例如，"Text Files (*.txt)"。Filter 是实际的文件过滤器─—例如，"*.txt"。每个description | filter 设置间必须用管道符号分隔 (|)。 '　　　　2. 用 ShowOpen 方法显示对话框。 '　　　　对所有公共对话框，当 CancelError 属性为 True，而且用户单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误，以此检测是否按了“取消”按钮。 '　　　　下列代码显示“打开”对话框并以选定的文件名为打开文件过程的参数： Private Sub mnuFileOpen_Click() 'CancelError 为 True。 On Error GoTo ErrHandler '设置过滤器。 CommonDialog1.Filter = "全部文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|MP3文件 (*.Mp3|*.mp3" '指定缺省过滤器。 CommonDialog1.FilterIndex = 2 '显示“打开”对话框。 CommonDialog1.ShowOpen '调用打开文件的过程。 MsgBox CommonDialog1.FileName Exit Sub ErrHandler: '用户按“取消”按钮。 Exit Sub End Sub Private Sub Command1_Click() '将 Cancel 设置成 True。 CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置 Flags 属性。 CommonDialog1.Flags = cdlCCRGBInit '显示“颜色”对话框。 CommonDialog1.ShowColor '将窗体的背景颜色设置成选定的'颜色。 Form1.BackColor = CommonDialog1.Color Exit Sub ErrHandler: '用户按了“取消”按钮。 Exit Sub End Sub Private Sub Command2_Click() '将 Cancel 设置成 True。 CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置 Flags 属性。 CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '显示“字体”对话框。 CommonDialog1.ShowFont '根据用户的选择来设置文本属性。 Text1.Font.Name = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = CommonDialog1.FontBold Text1.Font.Italic = CommonDialog1.FontItalic Text1.Font.Underline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color Exit Sub ErrHandler: '用户按了“取消”按钮。 Exit Sub End Sub 'CommonDialog1.ShowOpen ("") 'CommonDialog1.ShowSave ("") 'Flags属性： 'cdlOFNAllowMultiselect = &H200 '它指定文件名列表框允许多重选择，运行时，通过按SHIFT键以及使用UPARROW和DOWNARROW键可选择多个文件。作完此操作后，FileName属性就返回一个包含全部所选文件名的字符串。串中各文件名用空格隔开 'cdlOFNCreatePrompt = &H2000 '当文件不存在时对话框要提示创建文件?该标志自动设置cdlOFNPathMustExist和cdlOFNFileMustExist标志 'cdlOFNExplorer = &H80000 '它使用类似资源管理器的打开一个文件的对话框模板?适用于Windows95和WindowsNT4 0# 'cdlOFNExtensionDifferent = &H400 '它指示返回的文件扩展名与DefaultExt属性指定的扩展名不一致。如果DefaultExt属性是Null，或者扩展相匹配，或者没有扩展时，此标志不设置。当关闭对话框时，可以检查这个标志的值 'cdlOFNFileMustExist = &H1000 '它指定只能输入文件名文本框已经存在的文件名。如果该标志被设置，则当用户输入非法的文件名时，要显示一个警告。该标志自动设置cdlOFNPathMustExist标志 'cdlOFNHelpButton = &H10 '使对话框显示帮助按钮 'cdlOFNHideReadOnly = &H4 '隐藏只读复选框? 'cdlOFNLongNames = &H200000 '使用长文件名 'cdlOFNNoChangeDir = &H8 '强制对话框将对话框打开时的目录置成当前目录 'cdlOFNNoDereferenceLinks = &H100000 '不要间接引用外壳链接（也称作快捷方式）。缺省时，选取外壳链接会引起它被外壳间接引用 'cdlOFNNoLongNames = &H40000 '无长文件名 'cdlOFNNoReadOnlyReturn = &H8000 '它指定返回的文件不能具有只读属性，也不能在写保护目录下面 'cdlOFNNoValidate = &H100 '它指定公共对话框允许返回的文件名中含有非法字符 'cdlOFNOverwritePrompt = &H2 '使“另存为”对话框当选择的文件已经存在时应产生一个信息框，用户必须确认是否覆盖该文件 'cdlOFNPathMustExist = &H800 '它指定只能输入有效路径。如果设置该标志，输入非法路径时，应显示一个警告信息 'cdlOFNReadOnly = &H1 '建立对话框时，只读复选框初始化为选定。该标志也指示对话框关闭时只读复选框的状态 'cdlOFNShareAware = &H4000 '它指定忽略共享冲突错误 CommonDialog 使用指定的方法，CommonDialog 控件能够显示下列对话。 方法 所显示的对话框 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”或“打印选项”对话框 ShowHelp 调用 Windows 帮助引擎 －－－－－－－－－－－－－－－－－－－－－－－－－ CommonDialog1.Filter = "All Files (*.*)|*.*|TextFiles (*.txt)|*.txt|Batch Files (*.bat)|*.bat" '设置过滤器 －－－－－－－－－－－－－－－－－－－－－－－－－－ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Command1_Click() '打开的小例子 On Error GoTo ErrHandler CommonDialog1.Filter = "All Files (*.*)|*.*|TextFiles (*.txt)|*.txt|Batch Files (*.bat)|*.bat" CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName Text1 = CommonDialog1.FileName ErrHandler: '用户按"取消"按钮。 Exit Sub End Sub -------------------------- CommonDialog1.Filter = "EXCEL文件(*.xls)|*.xls|" CommonDialog1.DialogTitle = "保存文件" CommonDialog1.ShowSave ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 常数 值 描述 cdlAlloc &H&H7FF0 & 不能对 FileName 或Filter 属性分配内存 cdlCancel &H&H7FF3 & 选择了取消 cdlDialogFailure &H&H8000 & 函数不能加载对话框 cdlFindResFailure &H&H7FF9 & 函数不能加载指定资源 cdlHelp &H&H7FEF & 不能调用 Windows 帮助 cdlInitialization &H&H7FFD & 在初始化期间函数失败 cdlLoadResFailure &H&H7FF8 & 函数不能加载指定的字符串 cdlLockResFailure &H&H7FF7 & 函数不能锁定指定的资源 cdlMemAllocFailure &H&H7FF6 & 函数不能对内部数据结构分配内存 cdlMemLockFailure &H&H7FF5 & 函数不能锁定与句柄相关联的内存 cdlNoFonts &H&H5FFE & 不存在字体 cdlBufferTooSmall &H&H4FFC & 缓冲区，在其内，成员 lpstrFile 点太小 cdlInvalidFileName &H4&H4FFD & 文件名称无效 cdlSubclassFailure &H&H4FFE & 不能将列表框分出子类，因为内存不够 cdlCreateICFailure &H&H6FF5 & 当 PrintDlg 函数要创建信息上下文时，该函数失败 cdlDndmMismatch &H&H6FF6 & DevMode 与 DevNames 数据结构中的数据描述两种不同的打印机 cdlGetDevModeFail &H&H6FFA & 打印机设备驱动程序不能初始化 DevMode 数据结构 cdlInitFailure &H&H6FF9 & 在初始化期间 PrintDlg 函数失败 cdlLoadDrvFailure &H&H6FFB & PrintDlg 函数不能加载被指定的打印机设备驱动程序 cdlLoadStrFailure &H7FFA 函数不能加载指定的字符串。 cdlNoDefaultPrn &H&H6FF7 & A 缺省打印机不存在 cdlNoDevices &H&H6FF8 & 未找到打印机设备驱动程序 cdlParseFailure &H&H6FFD & CommonDialog 函数不能分析 Win.ini 的 [设备]一节中的字符串 cdlPrinterCodes &H&H6FFF & 设置了 PDReturnDefault 标记，但 hDevMode 或 hDevNames 字段都非零 cdlPrinterNotFound &H&H6FF4 & Win.ini 的 [设备]一节不包含所需打印机的登录项 cdlRetDefFailure &H&H6FFC & 设置了 PDReturnDefault 标记，但 hDevMode 或 hDevNames 字段都非零 cdlSetupFailure &H&H6FFE & 不能加载所需资源 CommonDialog 控件常数 文件打开/保存对话框标记 常数 值 描述 cdlOFNAllowMultiselect &H200 指定文件名列表框允许多种选择。 用户在运行时 可按下 SHIFT 键选择多个文件并用 UP ARROW 与 DOWN ARROW 键选择所要。然后，FileName 属性包含所有选定文件的字符串。用空格来为字符串中的名字分界。 cdlOFNCreatePrompt &H2000 指定对话框提示用户创建当前不存在的文件。该标记自动设置 cdlOFNPathMustExist 与 cdlOFNFileMustExist 标记。 cdlOFNExplorer &H80000 使用“Explorer-like Open A File”对话框模板。在 Windows 下使用 Windows 95 外壳时，使用该标记的公共对话框不工作。 CdlOFNExtensionDifferent &H400 指出被返回的文件名的扩展名不同于 DefaultExt 属性指定的扩展名。如果 DefaultExt 属性是Null，如果扩展名匹配，或者如果文件无扩展名，则都不设置该标记。关闭了对话框后就可检查该标记值。 cdlOFNFileMustExist &H1000 指定用户可只在文件名文本框中输入现有文件名。如果设置了该标记，而且用户输入一个无效文件名，则将出现一个警告。该标记自动设置 cdlOFNPathMustExist 标记。 cdlOFNHelpButton &H10 使对话框显示帮助按钮。 cdlOFNHideReadOnly &H4 隐藏只读复选框。 cdlOFNLongNames &H200000 使用长文件名。 cdlOFNNoChangeDir &H8 强制对话框将当前目录设置成在打开对话框时的目录。 CdlOFNNoDereferenceLinks &H100000 不间接引用外壳链接（所谓快捷方式）。根据缺省，选择外壳链接回使外壳间接引用它。 cdlOFNNoLongNames &H40000 不使用长文件名。 CdlOFNNoReadOnlyReturn &H8000 指定被返回的文件将不会有只读属性设置，也不会在写保护目录中

有些部件不能透明~~比如单选,多选,标题就是Label,有一个Backstyle属性,可以设置透明属性

通用对话框控件commondialog commondialog1.showcolor 为显示颜色对话框

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息