如何利用vbs類實現(xiàn)css按鈕-創(chuàng)新互聯(lián)

這篇文章主要介紹“如何利用vbs類實現(xiàn)css按鈕”，在日常操作中，相信很多人在如何利用vbs類實現(xiàn)css按鈕問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”如何利用vbs類實現(xiàn)css按鈕”的疑惑有所幫助！接下來，請跟著小編一起來學(xué)習(xí)吧！

目前成都創(chuàng)新互聯(lián)公司已為上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計、蚌山網(wǎng)站維護(hù)等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

復(fù)制代碼代碼如下:

<%
rem 文章標(biāo)題：利用vbs類實現(xiàn)css按鈕
rem 作者：yanek
rem 聯(lián)系：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 設(shè)置按鈕對象的相關(guān)屬性

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 調(diào)用方法輸出按鈕
Response.Write btnYahoo.GenerateStyleTag()
Response.Write btnYahoo.GenerateButtonTag()
Response.Write "

"

rem 設(shè)置按鈕對象的相關(guān)屬性
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 調(diào)用方法輸出按鈕
Response.Write btnLycos.GenerateStyleTag()
Response.Write btnLycos.GenerateButtonTag()
%>

到此，關(guān)于“如何利用vbs類實現(xiàn)css按鈕”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識，請繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
網(wǎng)頁名稱：如何利用vbs類實現(xiàn)css按鈕-創(chuàng)新互聯(lián)
當(dāng)前網(wǎng)址：http://weahome.cn/article/ddcceh.html

真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

如何利用vbs類實現(xiàn)css按鈕-創(chuàng)新互聯(lián)

其他資訊

網(wǎng)站制作

企業(yè)服務(wù)

網(wǎng)站建設(shè)

服務(wù)器托管