当前位置: 首页 > 编程笔记 >

hta 实现的五子棋界面

司徒俊良
2023-03-14
本文向大家介绍hta 实现的五子棋界面,包括了hta 实现的五子棋界面的使用技巧和注意事项,需要的朋友参考一下

保存为 五子棋.hta,运行即可看到效果

<html>
<title>五子棋界面 - zh159</title>
<hrad>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HTA:APPLICATION
ID="MyhyliApp"
APPLICATIONNAME="五子棋界面 - zh159"
BORDER="thin"
BORDERSTYLE=""
VERSION="1.0"
SCROLL="no"
ICON="C:\WINDOWS\System32\wuauclt.exe"
INNERBORDER="no"
CONTEXTMENU="no"
CAPTION="yes"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
</hrad>

<script language="javascript"></script>
<script language="VBScript"></script>

<style>
.GUIwh {width:24;height:24;cursor:hand;}
</style>

<body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;">

<table align="center" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff" style="font: 13px 宋体;border-collapse:collapse;">
 <tr align="center">
  <td width="450" height="450">
   <table border="0" cellspacing="0" cellpadding="0" borderColor="#ffffff" style="font: 21px 宋体;border:2px solid #ffffff;">
    <script language="VBScript">
    str = "ABCDEFGHIJKLMNOPQRS"
    For i = 1 To Len(str)
        with document
        .write "<tr align='center'>"
        For n = 1 To Len(str)
            stri = MID(str,i,1)
            strn = MID(str,n,1)
            tdstr = "<td id='GUI_" & strn & stri & "' class='GUIwh'><span onclick='Test(this)' onMouseOver='innerText=""●"";style.color=""blue""' onMouseOut='innerText=""┼"";style.color=""""'>┼</span></td>"
            s = "┼"

            If (stri = "A" and strn = "A") Then .write Replace(tdstr,s,"┌")
            If stri = "A" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┬")
            If (stri = "A" and strn = "S") Then .write Replace(tdstr,s,"┐")

            If not (stri = "A" or stri = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├")
            If not (stri = "A" or stri = "S" or strn = "A" or strn = "S") Then .write tdstr
            If not (stri = "A" or stri = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤")
            
            If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└")
            If stri = "S" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┴")
            If (stri = "S" and strn = "S") Then .write Replace(tdstr,s,"┘")
        Next
        .write "</tr>"
        end with
    Next
    </script>
   </table>
  </td>
  <td>
   <span id="PC"><button>电脑先下</button><br><br>直接点击为玩家先下</span>
  </td>
 </tr>
</table>
</body>

<script language="VBScript">
 width = 660
 height = 550
 window.resizeTo width, height
 ileft=(window.screen.width-width)/2
 itop=(window.screen.height-height)/2
 window.moveTo ileft,itop

    Sub Test(this)
this.parentNode.style.cursor = "default"
this.parentNode.innerHtml = "●"
PC.style.display = "none"
    End Sub

    Sub Title
Document.title = "五子棋 - zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3)
    End Sub

Title:setInterval "Title()",500
</script>

</html>
 类似资料:
  • 本文向大家介绍javafx实现五子棋游戏,包括了javafx实现五子棋游戏的使用技巧和注意事项,需要的朋友参考一下 需求描述 一个五子棋游戏,能实现双方黑白对决,当一方获胜时给出提示信息,利用GUI界面实现 项目结构如下图 一、实体 FiveChess类 提供五子棋实体包含的所有信息 判断游戏是否结束 play方法改变chess[][]棋盘中的数据 二、视图 ChessPane类继承Pane类实现

  • 本文向大家介绍python实现五子棋游戏,包括了python实现五子棋游戏的使用技巧和注意事项,需要的朋友参考一下 本文实例为大家分享了python实现五子棋游戏的具体代码,供大家参考,具体内容如下 话不多说,直接上代码: 全部工程文件,在GitHub:五子棋 效果预览: 以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持呐喊教程。

  • 本文向大家介绍Java swing五子棋的实现方法,包括了Java swing五子棋的实现方法的使用技巧和注意事项,需要的朋友参考一下 今天给大家介绍一下如何用Java swing实现五子棋的开发即用Java开发图形界面程序五子棋,代码由于太多,只贴部分,最下面会附上下载地址,废话不多说,下面我们先看一下运行结果:  接下来我们看代码: 首先是创建主frame框架界面: 然后再创建子框架界面: 以

  • 本文向大家介绍java实现五子棋小游戏,包括了java实现五子棋小游戏的使用技巧和注意事项,需要的朋友参考一下 java实现五子棋小游戏 演示图: 以上所述就是本文的全部内容了,希望能够对大家熟练掌握java有所帮助。

  • 本文向大家介绍JavaScript实现五子棋小游戏,包括了JavaScript实现五子棋小游戏的使用技巧和注意事项,需要的朋友参考一下 本文实例为大家分享了JavaScript实现五子棋小游戏的具体代码,供大家参考,具体内容如下 HTML部分 JavaSrcipt 更多有趣的经典小游戏实现专题,分享给大家: C++经典小游戏汇总 python经典小游戏汇总 python俄罗斯方块游戏集合 Java

  • 本文向大家介绍java Swing实现五子棋游戏,包括了java Swing实现五子棋游戏的使用技巧和注意事项,需要的朋友参考一下 本文实例为大家分享了java实现五子棋项目,供大家参考,具体内容如下 运行结果 视频经过压缩画质略显粗糙。 标题 1)绘制网格棋盘: 重写JPanel的paint(Graphics g)方法,绘制16*16网格。 如图: 2)代码如下(仅包含部分代码): 具体运行效果