说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中实现带预览的对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB中实现带预览的对话框


  用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是VB的通用对话框没有预览的功能,为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。
  程序示例:
  程序功能说明:
  在窗体的file1中选择一个图片文件,点选“预览”复选框,image控件就显示相应的图片,label1就显示该图片的大小。
  新建一个工程,加入以下控件:
  控件 名称 属性
  form form1 borderstyle=3
   (vbsizedouble)
  caption=“图片预览对话框"
  drivelistbox drive1
  dirlistbox dir1
  filelistbox file1 pattern=“*.bmp;
   *.jpg;*.gif"
  image image1 stretch=true
  checkbox chk value=“预览"
  commandbutton cmd1 caption=“确定"
  cmd2 caption=“退出"
   label lab1 caption=“"
  源代码:
  'declare
  Public filename$
  dim sfilename$
   Private sub drive1_change()
  dir1.path=drive1.drive
  End sub
  Private sub dir1_change()
  file1.path=dir1.path
  End sub
  Private sub cmd1_click()
  filename=sfilename
  End sub
  Private sub cmd2_click()
  End
  End sub
  Private sub file1_click()
  dim ssize as long
  if fille1.listcount>0 then
  if right(file1.path,1)<>“\" then
  sfilename=file1.path&“\"&file1.filename
  else
  sfilename=file1.path&file1.filename
  End if
  if chk.checked then
  image1.picture=loadpicture(“")
  image1.picture=loadpicture(sfilename)
  ssize=filelen(sfilename)
  ssize=ssize/1000
  lab1.caption=str(ssize)&“k"
  else
  lab1.caption=“"
  image1.picture=loadpicture(“")
  end if
  end if
  End sub(四川 陈东)



VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 請教一下,sqlserver2000復制方面的問題 VB中,如何实现:把鼠标控制在一个窗体之内。直到关闭窗体。谢谢 为什么我在安装Duwamish的时候在安装DB时总提示用户SA登陆失败 请问,我将VB。NET的项目用VS。NET自带的项目安装与部署打包后,安装到客户的机子上还需要装。NET框架吗? 在JSP中我怎么解决select..update..的问题(能用锁来解决吗?) ASP.NET不能访问数据库的问题 请教~ 菜鸟提问,大家多帮忙 :) 求救,如何下载.txt文件 当x趋向于正无穷,求lim{(根号((n^2)+1 用孕育,硕大,吹拂,溶解四词造句(不超过80字) 用平凡什么,孕育什么,只要什么.造句如:平凡是草原 怀字怎么组词造句 用 孕育,硕大,遮盖,吹拂 四个词语围绕一个主题写 数学智力题一题 2013年一句话新闻(国内,国际,大型的,最近的) 两列火车从甲乙两站同时开出相向而行,第一列火车每小 n趋向于无穷lim(根号下(n+1)-根号下n)= 昨天浙江国考报名不足10人岗位还有4美国美女记者采访被泼饮料仍淡定直播(伦敦出新规:街头排便者需自行清理(组沙特不收联合国“大礼” 表示对美外交美姐妹打造可爱“鱿鱼树” 做衣穿衣花菲律宾灾区民众哄抢政府粮库 8人被压梁思成的文革境遇:听说让会见外宾就痛女志愿军忆审战俘:美国兵哭哭啼啼很快自由港政策——香港成功的重要秘诀白宫回应ABC辱华言论:不代表大部分狩魔空间网游之拳扫天下都市之狂尊尊塔无限之恐怖公司沙扒湾旅游文化广场旅游不是书店旅游周恩来故居旅游连州地下河旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘