dim r as Windows.Forms.DialogResult
r=openfiledialog1.showdialog()
if r= Windows.Forms.DialogResult.OK then
end if
使用这种方式,避免显示多次对话框。
因为你判断时候调用的是If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
这样就导致判断时候就使OpenFileDialog1 显示出来了。