Question

VB高手帮帮忙啊！！！

在窗体上放置通用对话框、命令按钮和图形框。通过单击命令按钮弹出文件打开对话框，在对话框内只允许显示图形文件，初始目录为c:\windows。当选定一个文件后，单击“打开”按钮，在图形框内显示所选择的图片内容。
再在上面实验的窗体上放置文本框、通用对话框控件。设置一个含有2个主菜单项的菜单系统，分别为“菜单1”和“菜单2”。其中“菜单2”包括“号字体”、“粗体”、“斜体”3个菜单命令。单击“菜单1”可打开字体对话框，要求字体对话框内出现删除线、下划线、颜色元素控制等，可设置文本框的字体属性。根据粗体、斜体的选择情况，在菜单项“粗体”、“斜体”左边加上或取消标记“√”同时使“字体”子菜单项标题显示为所选的具体字号，例如，“10.5”号字体。另外可通过鼠标右键弹出“菜单2”，显示当前设置情况。

Answer 1

Private Sub Command1_Click()
CommonDialog1.InitDir = "c:\windows" '初始化路径
CommonDialog1.Filter = "图形文件(*.jpg)|*.jpg|图标文件(*.ico)|*.ico|JPEG文件(*.jpeg)|*.jpeg"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName) '加载图片
End Sub

Private Sub mnu1_Click() '菜单1
CommonDialog1.Flags = 1
CommonDialog1.ShowFont
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub

Private Sub mnuFontColor_Click() '设置字体颜色
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub mnuFontStr_Click() '删除线
mnuFontStr.Checked = Not mnuFontStr.Checked
Text1.FontUnderline = CommonDialog1.FontUnderline
End Sub

Private Sub mnuFontUnderline_Click() '下划线
mnuFontUnderline.Checked = Not mnuFontUnderline.Checked
Text1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '弹出菜单2
PopupMenu mnu2
End If
End Sub
我实验了，可以的。但是菜单1中是不能设置“下划线”和“删除线”的，还有，其实你用一个通用对话框就可以了！无论设置“字体”“颜色”什么的，就一个就可以了，你可以用它的Flags属性调用不同对话框模式。