中国DOS联盟论坛 - Powered by Discuz! Board

标题: HTA更换图片路径的一个问题？ [打印本页]

作者: jmz573515 时间: 2007-6-20 09:27 标题: HTA更换图片路径的一个问题？

<head>
<title>图片</title>
<HTA:APPLICATION
      APPLICATIONNAME="图片"
      SCROLL="no"
      SINGLEINSTANCE="yes"
      WINDOWSTATE="normal"
      ShowInTaskBar="yes"
      MaximizeButton="no"
      MinimizeButton="no"
      SCROLL="no"
      NAVIGABLE="yes"
      BORDER="thin"
>
</head>

<script language="VBScript">

   window.resizeTo 330,400
   ileft=(window.screen.width-330)/2
   itop=(window.screen.height-400)/24
   window.moveTo ileft,itop

Sub liulan
      Set objDialog = CreateObject("UserAccounts.CommonDialog")
         objDialog.Filter = "JPG File|*.jpg|"
         objDialog.ShowOpen
         path = objDialog.FileName '不知道怎么用这个得到的图片路径，替换11.jpg
End Sub

</script>
<body bgcolor="0099ff" /设置背景颜色>
<img src = "11.jpg" border="1" width="300" height="300" alt="图片"><p>
<input type="button" name="liulan" value="游览" onclick="liulan">

</body>

我想实现通过浏览来更换图片路径，不知道该怎么写？谢谢！

作者: zh159 时间: 2007-6-20 10:34

<head>

<title>图片</title>

<HTA:APPLICATION 

        APPLICATIONNAME="图片"

        SCROLL="no"

        SINGLEINSTANCE="yes"

        WINDOWSTATE="normal"

        ShowInTaskBar="yes"

        MaximizeButton="no"

        MinimizeButton="no"

        SCROLL="no"

        NAVIGABLE="yes"

        BORDER="thin"

>

</head>

<script language="VBScript">

     window.resizeTo 330,400

     ileft=(window.screen.width-330)/2

     itop=(window.screen.height-400)/2

     window.moveTo ileft,itop

</script>

<body bgcolor="0099ff" /设置背景颜色> 

<span id="path"></span><p>

<input type="button" name="liulan" value="游览" onclick="liulan">

</body>

<script language="VBScript">

path.innerHTML = "<img src='11.jpg' border='1' width='300' height='300' alt='图片'>"

Sub liulan

         Set objDialog = CreateObject("UserAccounts.CommonDialog")

             objDialog.Filter = "JPG File|*.jpg|"

             objDialog.ShowOpen

             path.innerHTML = "<img src='" + objDialog.FileName + "' border='1' width='300' height='300' alt='图片'>"

End Sub

</script>

作者: jmz573515 时间: 2007-6-20 10:45
太棒了！谢谢！！