如何利用vbs类实现css按钮-创新互联
这篇文章主要介绍“如何利用vbs类实现css按钮”,在日常操作中,相信很多人在如何利用vbs类实现css按钮问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何利用vbs类实现css按钮”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!
目前成都创新互联公司已为上千的企业提供了网站建设、域名、网页空间、网站托管、服务器托管、企业网站设计、蚌山网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。复制代码 代码如下:
<%
rem 文章标题: 利用vbs类实现css按钮
rem 作者:yanek
rem 联系:aspboy@263.net
Class CssButton
Public Name
Public BackColor
Public BorderColor
Public Font
Public FontColor
Public Width
Public Text
Public Url
Public MouseOverColor
Public Function GenerateStyleTag()
'Create the STYLE tag
Dim strStyle
strStyle = ""
GenerateStyleTag = strStyle
End Function
Public Function GenerateButtonTag()
Dim strHTML
strHTML = " "onMouseOver=""this.className='buttonover" & Name & "';"" " & _
"onMouseOut=""this.className='buttontext" & Name & "';"">" & _
vbCrLf & "
GenerateButtonTag = strHTML
End Function
End Class
rem 建立类的实例
Dim btnYahoo, btnLycos
Set btnYahoo = New CssButton
Set btnLycos = New CssButton
rem 设置按钮对象的相关属性
btnYahoo.BackColor = "#aaaaaa"
btnYahoo.BorderColor = "#bbbbbb"
btnYahoo.Font = "bold 12pt Verdana"
btnYahoo.FontColor = "black"
btnYahoo.Width = "80px"
btnYahoo.MouseOverColor = "yellow"
btnYahoo.Url = "/tupian/20230522/"
btnYahoo.Name = "yahoo"
btnYahoo.Text = "Yahoo!"
rem 调用方法输出按钮
Response.Write btnYahoo.GenerateStyleTag()
Response.Write btnYahoo.GenerateButtonTag()
Response.Write "
"
rem 设置按钮对象的相关属性
btnLycos.BackColor = "#aaaaaa"
btnLycos.BorderColor = "#bbbbbb"
btnLycos.Font = "10pt Arial"
btnLycos.FontColor = "black"
btnLycos.Width = "70px"
btnLycos.MouseOverColor = "yellow"
btnLycos.Url = "http://www.lycos.com/"
btnLycos.Name = "lycos"
btnLycos.Text = "Lycos"
rem 调用方法输出按钮
Response.Write btnLycos.GenerateStyleTag()
Response.Write btnLycos.GenerateButtonTag()
%>
到此,关于“如何利用vbs类实现css按钮”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!
网站题目:如何利用vbs类实现css按钮-创新互联
标题来源:http://scyanting.com/article/ddcceh.html