一个很简单的问题，在线高分相候。

Question

用两个commondialog控件打开两个对话框，用showopen方法。
     还有一个是image和一个是text .
     如何让打开的图像和文件在image,text显示。
     谢谢！
     请写源码。
      我是个新手。

Answer 1

你是不是要在你的对话框中对你的image,text进行预览?

Answer 2

text1.text = commondialog1.file
set image1.picture = loadpicture(text1.text)

Answer 3

不是，是分开的两个commondialog.
我是想让另外一个图像之类的文件在image中显示。

Answer 4

Private Sub Command1_Click()
Dim stfilename As String
Dim tempstr
CommonDialog1.Filter = "txt files|*.txt"
CommonDialog1.flags = cdlofnhidereadonly
CommonDialog1.initdir = "文件路径"
CommonDialog1.showopen
stfilename = CommonDialog1.FileName
Open stfilename For Input As #1
Do Until EOF(1)
   Line Input #1, tempstr
   filestr = filestr & tempstr & Chr$(13) & Chr$(10)
Loop
Text1.Text = filestr
End Sub
你在试试看这个行不行？
楼下的我这对不对！

Answer 5

我认为Dim stfilename As String应作为通用说明
Open stfilename For Input As #1
Do Until EOF(1)
   Line Input #1, tempstr
   filestr = filestr & tempstr & Chr$(13) & Chr$(10)
Loop
Text1.Text = filestr
这一段应在click_ok写

Answer 6

图像也一样
Image1.Picture = LoadPicture(strFilename)

Answer 7

CommonDialog1.showopen 没有参数？
其他我看都对。

Answer 8

commondialog 共用七种用法：
NO action 不运行
open 打开文件 
save as 文件换名存盘
font 字体对话框
color   'yanse
pinter 打印
invokes WINHELP.EXE 调用WIN的帮助文件
在这里我想向大家讨教一下
如何用最下面的一个???本人在这里谢谢了！！！

Answer 9

我觉得txt那个，wtty9822(wt) 的是正确的
可以考虑
关于image 得到路径后loadpicture（）一下就可以了

Answer 10

为什么我输入后，
却看不到文本文件
而图像也只有bmp.
为什么？

Answer 11

这个问题解决了，
谢谢各位。
原来是因为我在"所有文件(*.*)|(*.*)"中多了一个括号。
现在还有一个问题。
我输入到文本框后。
改过的文本我用。
commondialog.showsave
为何保存来呢？