中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-05 03:05

欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » HTA更换图片路径的一个问题？查看 856　回复 2

楼主 HTA更换图片路径的一个问题？发表于 2007-06-20 09:27　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别男

状态离线

<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 楼发表于 2007-06-20 10:34　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210

状态离线

<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	+8	2007-06-20 10:44

第 3 楼发表于 2007-06-20 10:45　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别男

状态离线

太棒了！谢谢！！

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: