如何利用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 =     "" & vbCrLf & _
                   "" & vbCrLf & _
                   ""

    GenerateStyleTag = strStyle
  End Function

  Public Function GenerateButtonTag()
    Dim strHTML
    strHTML = "              "onMouseOver=""this.className='buttonover" & Name & "';"" " & _
              "onMouseOut=""this.className='buttontext" & Name & "';"">" & _
              vbCrLf & "" & vbCrLf & Text & vbCrLf & "

" & 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按钮-创新互联
本文URL：http://scyanting.com/article/ddcceh.html

如何利用vbs类实现css按钮-创新互联

其他资讯