足球游戏_中国足彩网￥体育资讯$

简要咨询 咨询QQ 网站导航 网站搜索 手机站点 联系我们
搜公告
  • 搜公告
  • 搜职位
公众号
事业单位
首 页
足球游戏
事业单位
特岗教师
三支一扶
银行招聘
中国足彩网
选调遴选
学历升学
公 众 号
全站导航
当前位置：首页 > 范文|应用文 > IT技术专栏 > 脚本栏目
A notepad made in HTA(hta实现的记事本)
来源：易贤网 阅读：1028 次 日期：2014-08-12 16:46:09
温馨提示：易贤网小编为您整理了“A notepad made in HTA(hta实现的记事本)”,方便广大网友查阅！

This notepad can handle bigger files than the one shiped with Win9x.

Learn how to make windows looking interfaces in HTML.

Interesting use of Commondialogs.

效果图：

名单

代码如下:

<html><head>

<HTA:APPLICATION

 APPLICATIONNAME="HTANotePad" ID="oHTA" BORDER="thick"

 BORDERSTYLE="normal" CAPTION="yes" CONTEXTMENU="yes"

 INNERBORDER="no" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"

 NAVIGABLE="yes"

 ICON="NOTEPAD.EXE" SCROLL="no" SCROLLFLAT="no"

 SELECTION="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"

 SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">

<STYLE TYPE="text/css">

<!--

BODY { xfont-family: "Verdana, Arial, Helvetica, sans-serif";

  font:menu;

  background-color:Menu;

  color:MenuText;

  xfont-size: 8pt;

  cursor:default; //auto, text, pointer

 }

TABLE { xfont-family:"Arial";

  xfont-size:8pt;

  font:menu;

  padding:0pt;

  border:0pt;

  FILTER: progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=90);

 }

IFrame { height:expression(document.body.clientHeight-MenuTable.clientHeight);

  width:100%;

 }

TD { border:"1px solid Menu";}

.submenu {position:absolute;top=20;

  background-color:Menu;

  border="2px outset";}

.MenuIn  {border:'1px inset';}

.Menuover {border:'1px outset';}

.Menuout {border:'1px solid';}

.Submenuover {background-color:highlight;color:highlighttext;}

.Submenuout {background-color:Menu;color:MenuText;}

-->

</STYLE>

<script language=vbscript>

option explicit

Dim FileName,fModif,LastChildMenu,LastMenu

fModif=False 'Not modified

DisplayTitle

Set LastChildMenu=Nothing

Set LastMenu=Nothing

Sub DisplayTitle

 If FileName="" Then

  document.Title="sans titre - " & oHTA.ApplicationName

 Else

  document.Title=FileName & " - " & oHTA.ApplicationName

 End If

End Sub

'''''''''''''''''''

' File management '

'''''''''''''''''''

Sub SaveAs

 Dim oDLG

 Set oDLG=CreateObject("MSComDlg.CommonDialog")

 With oDLG

  .DialogTitle="SaveAs"

  .Filter="Scripts|*.vbs;*.hta;*.wsf;*.js|Text Files|*.txt|All files|*.*"

  .MaxFileSize=255

  .ShowSave

  If .FileName<>"" Then

   FileName=.FileName

   Save

  End If

 End With

 Set oDLG=Nothing

 DisplayTitle

End Sub

Sub Save()

 Dim fso,f

 If FileName<>"" Then

  Set fso=CreateObject("Scripting.FileSystemObject")

  Set f=fso.CreateTextFile(FileName,True)

  f.Write MyFrame.MyText.Value

  f.Close

  Set f=Nothing

  Set fso=Nothing

 Else

  SaveAs

 End If

End Sub

Sub OpenIt

 Dim fso,f

 Set fso=CreateObject("Scripting.FileSystemObject")

 Set f=fso.OpenTextFile(FileName,1)

 MyFrame.MyText.Value=f.ReadAll

 f.close

 Set f=Nothing

 Set fso=Nothing

 DisplayTitle

End Sub

Sub Open()

 If fModif Then

  Select Case Msgbox("The text in the file " & FileName & " has been changed." _

   & vbCrLf & "Do you want to save the changes ?",51,oHTA.ApplicationName)

  Case 6 'Yes

   Save

  Case 7 'No

  Case 2 'Cancel

   Exit Sub

  End Select

 End If

 Dim oDLG

 Set oDLG=CreateObject("MSComDlg.CommonDialog")

 With oDLG

  .DialogTitle="Open"

  .Filter="Scripts|*.vbs;*.hta;*.wsf;*.js|Text Files|*.txt|All files|*.*"

  .MaxFileSize=255

  .Flags=.Flags Or &H1000 'FileMustExist (OFN_FILEMUSTEXIST)

  .ShowOpen

  If .FileName<>"" Then

   FileName=.FileName

   OpenIt

  End If

 End With

 Set oDLG=Nothing

End Sub

Sub NewText

 If fModif Then

  Select Case Msgbox("The text in the file " & FileName & " has been changed." _

   & vbCrLf & "Do you want to save the changes ?",51,oHTA.ApplicationName)

  Case 6 'Yes

   Save

  Case 7 'No

  Case 2 'Cancel

   Exit Sub

  End Select

 End If

 MyFrame.MyText.Value=""

 FileName=""

 DisplayTitle

End Sub

'''''''''''''''

' Drag & Drop '

'''''''''''''''

Sub ChangeIFrame

 'We use an Iframe to allow Drag&Drop

 MyFrame.Document.Body.InnerHTML="<textarea ID=MyText WRAP=OFF onChange" & _

  "='vbscript:parent.fModif=True' onclick='vbscript:parent.HideMenu' " & _

  "style='width:100%;height:100%'></textarea>"

 With MyFrame.Document.Body.Style

  .marginleft=0

  .margintop=0

  .marginright=0

  .marginbottom=0

 End With

 With MyFrame.MyText.Style

  .fontfamily="Fixedsys, Verdana, Arial, sans-serif"

  '.fontsize="7pt"

 End With

 Select Case UCase(MyFrame.location.href)

 Case "ABOUT:BLANK"

  FileName=""

 Case Else

  FileName=Replace(Mid(MyFrame.location.href,9),"/","\") 'suppress file:///

  OpenIt

 End Select

End Sub

'''''''''''''''''''

' Menu management '

'''''''''''''''''''

Sub ShowSubMenu(Parent,Child)

 If Child.style.display="block" Then

  Parent.classname="Menuover"

  Child.style.display="none"

  Set LastChildMenu=Nothing

 Else

  Parent.classname="Menuin"

  Child.style.display="block"

  Set LastChildMenu=Child

 End If

 Set LastMenu=Parent

End Sub

Sub MenuOver(Parent,Child)

 If LastChildMenu is Nothing Then

  Parent.className="MenuOver"

 Else

  If LastMenu is Parent Then

   Parent.className="MenuIn"

  Else

   HideMenu

   ShowSubMenu Parent,Child

  End If

 End If

End Sub

Sub MenuOut(Menu)

 If LastChildMenu is Nothing Then Menu.className="MenuOut"

End Sub

Sub HideMenu

 If Not LastChildMenu is Nothing Then

  LastChildMenu.style.display="none"

  Set LastChildMenu=Nothing

  LAstMenu.classname="Menuout"

 End If

End Sub

Sub SubMenuOver(Menu)

 Menu.className="SubMenuOver"

 'LastMenu.classname="Menuin"

End Sub

Sub SubMenuOut(Menu)

 Menu.className="SubMenuOut"

End Sub

</script>

</head>

<body leftmargin=0 topmargin=0 rightmargin=0>

<TABLE id=MenuTable><TR>

 <TD onclick='ShowSubMenu Me,MyFileMenu'

  onmouseover='MenuOver Me,MyFileMenu'

  onmouseout='MenuOut Me'> File </TD>

 <TD onclick='ShowSubMenu Me,MyEditMenu'

  onmouseover='MenuOver Me,MyEditMenu'

  onmouseout='MenuOut Me'> Edit </TD>

 <TD onclick='ShowSubMenu Me,MyFindMenu'

  onmouseover='MenuOver Me,MyFindMenu'

  onmouseout='MenuOut Me'> Find </TD>

 <TD onclick='ShowSubMenu Me,MyHelpMenu'

  onmouseover='MenuOver Me,MyHelpMenu'

  onmouseout='MenuOut Me'> ? </TD>

 <TD onclick="HideMenu" width=100% border=2></TD>

 </TR></TABLE>

<TABLE ID=MyFileMenu class=submenu style="left=2;display:none;"><TR>

 <TD onclick="HideMenu:NewText"

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'> New</TD></TR>

 <TR><TD onclick="HideMenu:open"

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'> Open</TD></TR>

 <TR><TD onclick="HideMenu:save"

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'> Save</TD></TR>

 <TR><TD onclick="HideMenu:saveAs"

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'> Save As</TD></TR>

 <TR><TD><HR></TD></TR>

 <TR><TD onclick="HideMenu:window.close"

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'> Quit</TD></TR>

 </TABLE>

<TABLE ID=MyEditMenu class=submenu style="left=30;display:none;"><TR>

 <TD><HR width=50px></TD></TR>

 </TABLE>

<TABLE ID=MyFindMenu class=submenu style="left=60;display:none;"><TR>

 <TD><HR width=50px></TD></TR>

 </TABLE>

<TABLE ID=MyHelpMenu class=submenu style="left=90;display:none;"><TR>

 <TD onclick='HideMenu:msgbox "No help available yet;under construction ;=)"'

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'>Help</TD></TR>

 <TR><TD onclick='HideMenu:CreateObject("MSComDlg.CommonDialog").AboutBox'

  onmouseover='Submenuover Me'

  onmouseout='Submenuout Me'>About</TD></TR>

 </TABLE>

<iframe id=MyFrame application=yes scrolling=no onload="ChangeIFrame"></iframe>

<script language=vbscript>

'We can handle a file as a parameter to this HTA

Dim x

FileName=Trim(oHTA.CommandLine)

x=Instr(2,FileName,"""")

If x=Len(FileName) Then

 FileName="" 'No File Loaded

Else

 FileName=Trim(Mid(FileName,x+1))

 OpenIt

End If

</script>

</body></html>

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看脚本栏目
【点此处就本文及相关问题在本站进行非正式的简要咨询（便捷快速）】 【点此处查询各地各类考试咨询QQ号码及交流群】
上一篇：DOM浏览器(方便需要dom操作的朋友)
下一篇：XMLDOM下载者生成器代码(xmldown.hta)
易贤网手机网站地址：A notepad made in HTA(hta实现的记事本)
由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！
相关阅读脚本栏目
Bottle框架中的装饰器类和描述符应用详解10月30日
Python探索之SocketServer详解10月30日
Python探索之实现一个简单的HTTP服务器10月30日
python探索之BaseHTTPServer-实现Web服务器介绍10月30日
13个最常用的Python深度学习库介绍10月30日
深入理解Python中的*重复运算符10月30日
python logging日志模块详解10月30日
System表空间不足的报警问题浅析10月22日
Android开发自定义TextView省略号样式的方法10月22日
MySQL 清除表空间碎片的实例详解10月22日
Ubuntu下MySQL安装及配置远程登录教程10月22日
Python 2.x如何设置命令执行的超时时间实例10月22日
windows 64位下redis安装教程10月22日
Android 自定义 HorizontalScrollView 打造多图片OOM 的横向滑动效果10月22日
浅谈Node Inspector 代理实现10月22日
java web开发之购物车功能实现示例代码10月22日
Android开发中GridView用法示例10月22日
Django ORM框架的定时任务如何使用详解10月22日
SpringMail使用过程中的报错解决办法10月22日
Android 使用自定义RecyclerView控件实现Gallery效果10月22日
易贤网移动网站

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
最新信息
2025年交通运输部所属事业单位第二批统一招聘公告
2024年云南省林业和草原科学院招聘第二批高层次人才LK001号岗拟聘用公示
2025年国家文物局考古研究中心招聘出站博士后公告
2025年中国地质调查局局属单位招聘公告（第一批）
2024年大理州剑川县甸南镇剑英幼儿园中国足彩网公告
2024年临沧市临翔区交通运输局城镇公益性岗位人员招聘公告
2024年12月玉溪市交通职业教育产业开发有限公司招聘公告
2024年昆明市五华区人社局信息服务中心招聘公告
2024年澄江星崟传媒科技有限公司第一期见习人员招募公告（10人）
2024年大理州检察机关招聘聘用制书记员（二批）公告（2号）
公考类
云南公务员 贵州公务员 四川公务员 广西公务员 各省公务员 国家公务员 选调遴选
招聘类
事业单位 中国足彩网 特岗教师 三支一扶 志 愿 者 银行招聘 国企招聘
各类考试
学历升学 会计考试 职业资格 外语考试 医学考试 工程考试 教师资格
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号：滇ICP备2023014141号-1 足球游戏_中国足彩网￥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证：（云）人服证字（2023）第0102001523号
云南网警备案专用图标
联系电话：0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号：hfpxwx
咨询QQ：526150442（9:00—18:00）版权所有:易贤网
云南网警报警专用图标