新乡元润温泉酒店按摩:请帮我看一下

来源：百度文库 编辑：神马品牌网 时间：2024/05/09 19:11:27
Private Sub save_Click() '保存
If commondialog1.FileName <> "" Then
SavePicture Picture2.Image, commondialog1.FileName
Else
Call saveas_Click
End If
'mnufilename(0).Visible = True '分隔线可见
'Load mnufilename(indexmax) '动态加入菜单数组成员
'mnufilename(indexmax).Caption = FileName
'indexmax = indexmax + 1 '整形变量indexmax中存下一个动态菜单项的索引值+
End Sub

Private Sub saveas_Click() '另存为
On Error GoTo errorhandler
commondialog1.DialogTitle = "另存为"
commondialog1.Filter = "All Files(*.*)|*.*|BMP图象(*.bmp)|*.bmp|JPG图象(*.jpg)|*.jpg|ICO图象(*.ico)|*.ico|GIF图象(*.gif)|*.gif"
commondialog1.FilterIndex = 3 'JPG图象设置为默认
commondialog1.ShowSave
SavePicture Picture2.Image, commondialog1.FileName
Exit Sub
errorhandler:
MsgBox Err.Description, vbOKOnly
Exit Sub

End Sub

你的问题是什么了民

请帮我看一下 请帮我看一下 请大帮忙帮我看一下 请高手帮我看一下~! 请大家帮我看一下好吗？ 请帮我看一下他是谁？ 请高手帮我看一下 请帮我看一下这道单证题 请帮我看一下电脑配置 请帮我看一下ewido~