我在窗体上建了四个控件,分别是驱动器列表框\目录列表框\文件列表框和image控件.

请各位大侠看代码:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 何家欢

    12人对此回答表示赞同

    用文件列表框的Filename的属性。不过要看看资料,它返回的是文件名字。在配合PATH的属性,把路径和名字一起加上就行。PATH的属性,你要看看。因为根目录里的文件和文件夹里的文件调出不一样。PATH的最后一个文件夹路径不会自动添加"\",自己要加上(提示:用right的函数,例如if right(dir1.path,"\") then ....),自己编吧。
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Andrew

    10人对此回答表示赞同

    用通用对话框会方便很多。
    展开
    10
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 旋转跳跃

    3人对此回答表示赞同

    Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
    若要判断错误,还应加些条件
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部