名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor 【 】 Text1.ForeColor=CommonDialog1.Color End Sub
话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1.Filter=【 】 CommonDialog1.FilterIndex=【 】 CommonDialog1.ShowSave Info.Text=【 】 End Sub