谁帮忙解下这道题啊（VB第三版 高等教育出版社 P281 T5 ）

来源：百度知道 编辑：UC知道 时间：2024/07/01 14:13:53
设计一个应用程序如图，当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后调用记事本程序编辑文件。
提示1尽管程序中用到了“颜色”和“打开文件”两个对话框，但实际一个就够了。
2，可以使用shell韩式运行笔记本程序。

第一题答案:
一个CommonDialog控件.2个按钮控件.一个Label控件.一个Text控件.
Text1.MultiLine设置为true

Private Sub Command1_Click()
CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command2_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, temp
All = All & temp & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = All
ErrHandler:
Exit Sub
End Sub

Private Sub Form_Load()
Command1.Caption = "设置标签颜色"
Command2.Caption = "打开文件"
End Sub

第二题答案:
Private Sub Command1_Click()
notepad = Shell("notepad.exe", vbNormal