| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 431 人关注过本帖
标题:这个图片浏览器怎么回事????
只看楼主 加入收藏
zhnzz4229
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2011-12-2
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:3 
这个图片浏览器怎么回事????
程序代码:
Option Explicit
Dim a, b As Single

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Action = 1
CommonDialog1.Filter = " All File (*.*) | *.*| JPG文件(.jpg)|*.jpg "
CommonDialog1.FilterIndex = 2
Image1.Stretch = True
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'Image1.Stretch = True
'Image1.Picture = LoadPicture("d:\6.jpg")
a = Image1.Width / Form1.ScaleWidth
b = Image1.Height / Form1.ScaleHeight
End Sub

Private Sub Form_Resize()
Image1.Width = a * Form1.ScaleWidth
Image1.Height = b * Form1.ScaleHeight
End Sub

程序运行后,在第一次打开一个图片后,接着再一次打开时,却无法显示jpg的图片,这是怎么回事????

[ 本帖最后由 zhnzz4229 于 2013-9-2 20:12 编辑 ]
搜索更多相关主题的帖子: 浏览器 图片 
2013-09-02 20:01
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:10 
需改command1_click里的代码如下:
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "All File (*.*)|*.*|JPG文件(*.jpg)|*.jpg"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Image1.Stretch = True
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
2013-09-03 17:27
zhnzz4229
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2011-12-2
收藏
得分:0 
你这个代码跟我的一样。
我已经解决了,说起来郁闷。代码没错,只需要在打开文件窗口把文件类型选为所有文件,*.jpg类型图片就出来了。
2013-09-03 22:09
zhnzz4229
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2011-12-2
收藏
得分:0 
程序代码:
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Action = 1
CommonDialog1.Filter = " All File (*.*) | *.*| JPG文件(.jpg)|*.jpg|PNG文件(.png)|*.png "
CommonDialog1.FilterIndex = 1
Image1.Stretch = True
Image1.Picture = LoadPicture(CommonDialog1.FileName)
代码是这样改的:
把默认文件类型选为“所有文件”。
2013-09-03 22:14
快速回复:这个图片浏览器怎么回事????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042572 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved