vb 用CommonDialog1控件把一个指定文件保存起来 5
2个回答
展开全部
建立一个textbox和command,使用CommonDialog1
将CommonDialog1名称修改为cmdlFilePath Text1修改为txtFilePath
以下是指定一个图片文件保存的例子.你看看吧
Private Sub Command2_Click()
On Error Resume Next
With cmdlFilePath
.FileTitle = "All Files (*.*)|*.*|Jpg Files(*.jpg)|*.jpg|Jpeg Files(*.jpeg)|*.jpeg|gif Files (*.gif)|*.gif"
.ShowOpen
txtFilePath.Text = cmdlFilePath.FileName
Image1.Picture = LoadPicture(txtFilePath.Text)
End With
End Sub
将CommonDialog1名称修改为cmdlFilePath Text1修改为txtFilePath
以下是指定一个图片文件保存的例子.你看看吧
Private Sub Command2_Click()
On Error Resume Next
With cmdlFilePath
.FileTitle = "All Files (*.*)|*.*|Jpg Files(*.jpg)|*.jpg|Jpeg Files(*.jpeg)|*.jpeg|gif Files (*.gif)|*.gif"
.ShowOpen
txtFilePath.Text = cmdlFilePath.FileName
Image1.Picture = LoadPicture(txtFilePath.Text)
End With
End Sub
展开全部
楼上的好像是打开文件吧。
建一个Command1,Text1,Commondialog1, 楼主没写指定什么文件,我就保存Text1内容吧。
代码如下。
===========
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) > 0 Then
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close
MsgBox "保存完毕"
End If
End Sub
建一个Command1,Text1,Commondialog1, 楼主没写指定什么文件,我就保存Text1内容吧。
代码如下。
===========
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) > 0 Then
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close
MsgBox "保存完毕"
End If
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询