none
VB中实现带预览的对话框 RRS feed

  • 常规讨论

  • 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
    2009年5月27日 8:35