HTA更换图片路径的一个问题？ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: HTA更换图片路径的一个问题？

上一主题 | 下一主题

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『楼主』: HTA更换图片路径的一个问题？使用 LLM 解释/回答一下

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

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

2007-6-20 09:27

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

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

此帖被 +8 点积分

点击查看详情

2007-6-20 10:34

查看资料发短消息网志

编辑帖子回复引用回复

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

太棒了！谢谢！！

2007-6-20 10:45

查看资料发送邮件发短消息网志

编辑帖子回复引用回复