HTA更换图片路径的一个问题？ - 中国DOS联盟论坛

<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>

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

<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>

太棒了！谢谢！！

第1楼　jmz573515	发表于 2007-06-20 09:27
银牌会员　发帖 464　积分 1,212
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> 我想实现通过浏览来更换图片路径，不知道该怎么写？谢谢！

第2楼　zh159	发表于 2007-06-20 10:34
金牌会员　发帖 1,467　积分 3,687
<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>

第3楼　jmz573515	发表于 2007-06-20 10:45
银牌会员　发帖 464　积分 1,212
太棒了！谢谢！！