关于在vb中 怎样加载外部文件，或者连接的方法???

工程-部件-Micrsoft

Common

Dialog

Control

6.0

然后添加一个按钮command1和一个CommonDialog1

Private

Sub

Command1_Click()

CommonDialog1.ShowOpen

End

Sub

'ps:你去网上搜索下CommonDialog1的

用法

，很多的

Private Sub Command1_Click()

  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)

  CommonDialog1.Filter = "*.txt 文本文件|*.txt*.exe|*.exe 应用程序"

  CommonDialog1.FileName = ""

  CommonDialog1.ShowOpen '打开框

  'CommonDialog1.ShowSave '保存框

  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)

  If Len(CommonDialog1.FileName) Then

    '这里就是得到的文件名了

    '

  End If

End Sub

'下面应该是你想要的代码吧

Private Sub Command1_Click()

  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)

  CommonDialog1.Filter = "*.skn skn类文件|*.skn*.she|*.she she类文件"

  CommonDialog1.FileName = ""

  CommonDialog1.ShowOpen '打开框

  'CommonDialog1.ShowSave '保存框

  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)

  If Len(CommonDialog1.FileName) Then

    '这里就是得到的文件名了

    '

  End If

End Sub

比如添加一个Picture1，有两种方法进行加载：

①.静态加载

在窗体设计时把GIF图片加载到Picture1，这里只要设置Picture1的[Picture]属性就可以了。

②.动态加载

在代码里面把GIF图片加载到Picture1，这里可用LoadPicture函数实现：

Picture1.Picture = LoadPicture("GIF图片路径")

---