做这个例子,我不知道该怎么写才正确??

Private Sub Command1_Click()
Dim arr
Dim StrText As String
'On Error GoTo Note '当出现错误时，跳转到Note语句
With CommonDialog1
.DialogTitle = "打开对话框"
.Filter = "图片文档(*.jpg) |*.jpg|图片文档(*.bmp) |*.bmp"
.FilterIndex = 1
Text1.Text = ""
.ShowOpen        '或使用CommonDialog1.Action=1
 Text1.Text = .FileName
End With
If Err.Number > 1 Then '如果打开文件正确
   MsgBox "你打开的文件不正确！"
   Exit Sub
End If
n = 0
arr(0)=""    '这里需不需要这里先赋值?否则没有文件呢?那List1.List = arr赋值就会出错吧?'
StrText = Dir(CommonDialog1.InitDir &"\*.jpg")
     While Len(StrText) > 0
      n = n + 1
   ReDim Preserve arr(1 To n)
      arr(n) = Split(LCase(StrText), ".jpg")(0)
      StrText = Dir  'DIR ()
   Wend
List1.List = arr     报错说此句参数不对???      
End Sub

Private Sub Command1_Click()
Dim arr

'On Error GoTo Note '当出现错误时，跳转到Note语句
With CommonDialog1
    .DialogTitle = "打开对话框"
    .Filter = "图片文档(*.jpg) |*.jpg|图片文档(*.bmp) |*.bmp"
    .FilterIndex = 1
    Text1.Text = ""
    .ShowOpen                      '????????'或使用CommonDialog1.Action=1
    Text1.Text = .FileName
End With

If Err.Number > 1 Then '如果打开文件正确
    MsgBox "你打开的文件不正确！"
    Exit Sub
End If

StrText = Dir(CommonDialog1.InitDir & "\*.jpg")
While Len(StrText) > 0
    List1.AddItem StrText                       '使用此命令增加列表
    StrText = Dir
Wend

End Sub


没去测试，没环境。

还是listbox1中还是空的...不知为何????

追踪了一下,好象是Dir(CommonDialog1.InitDir & "\*.jpg") 是空值?这怎么会呢?
我在那个文件夹内明明放了好多JPG格式的图片呀????
我干脆用StrText = Dir("f:\gongsitu\*.jpg")  竟然也是空值是不是这个使用DIR函数之前,要引用什么???

文件扩展名也有可能是.jpeg 。

这个问题就是利用CommonDialog1.FileName来取路径名就解决了,回头想也不靠谱 ,当时我也怕是路径不对,就干脆用了:
StrText = Dir("e:\gongsitu\*.jpg")   也没有解决,现在为样就解决,有点奇怪呀????

Private Sub Command1_Click()
Dim arr
Dim StrText As String
'On Error GoTo Note '当出现错误时，跳转到Note语句
With CommonDialog1
.DialogTitle = "选择文件对话框"
InitDir = "e:\gongsitu\" '"c:\windows"
.Filter = "图片文档(*.jpg) |*.jpg|图片文档(*.bmp) |*.bmp"
.FilterIndex = 1
Text1.Text = ""
.ShowOpen '或使用CommonDialog1.Action=1
 Text1.Text = .FileName
End With
 If CommonDialog1.FileName = "" Then
    MsgBox "你要重新选择一个文件"
    Exit Sub
 End If
spath = Mid(CommonDialog1.FileName, 1, InStrRev(CommonDialog1.FileName, "\") - 1)
Picture1(0).Picture = LoadPicture(Text1.Text)        '这里使用打开对话框导入目标图片是成功的...
If Err.Number > 1 Then                               '如果打开文件正确
   MsgBox "你打开的文件不正确！"
   Exit Sub
End If
n = 0
 Text3.Text = spath      ' Dir(spath & "\*.jpg")   ''Dir("e:\gongsitu\*.jpg")  '
 StrText = Dir(spath & "\*.jpg")      
List1.Clear
While Len(StrText) > 0
  List1.AddItem StrText                       '使用此命令增加列表
  StrText = Dir()
Wend
End Sub