CssButton Class Demo

This demo illustrates how to use the CssButton class to generate CSS buttons. Note that when visiting this demo with IE, you can move your mouse over the button and it will become "hot" (i.e., the button text will change colors).


Yahoo!

 

Lycos


Source Code
<%
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 =     "<STYLE TYPE=""text/css"">" & vbCrLf & _
                   "<!--" & vbCrLf & _
                   "#mybutton" & Name & "   {border-style: inset; " & vbCrLf & _
                   "             border-color: " & BorderColor & ";" & vbCrLf & _
                   "             background-color: " & BackColor & ";" & vbCrLf & _
                   "             width: " & Width & ";" & vbCrLf & _
                   "             text-align: center; }" & vbCrLf & vbCrLf & vbCrLf & _
                   "A.buttontext" & Name & " {color: " & FontColor & "; " & vbCrLf & _
                   "              text-decoration: none; " & vbCrLf & _
                   "              font: " & Font & ";" & vbCrLf & _
                   "              cursor: hand; }" & vbCrLf & vbCrLf & vbCrLf & _
                   ".buttonover" & Name & " {color: " & MouseOverColor & ";" & vbCrLf & _
                   "             text-decoration: none; " & vbCrLf & _
                   "             font: " & Font & ";" & vbCrLf & _
                   "             cursor: hand; }" & vbCrLf & _
                   " // -->" & vbCrLf & _
                   "</STYLE>"

    GenerateStyleTag = strStyle
  End Function


  Public Function GenerateButtonTag()
    Dim strHTML
    strHTML = "<a href=""" & Url & """ class=""buttontext" & Name & """ " & _
              "onMouseOver=""this.className='buttonover" & Name & "';"" " & _
              "onMouseOut=""this.className='buttontext" & Name & "';"">" & _
              vbCrLf & "<div id=""mybutton" & Name & """>" & vbCrLf & Text & vbCrLf & "</div></a>" & vbCrLf

    GenerateButtonTag = strHTML
  End Function

End Class


Dim btnYahoo, btnLycos
Set btnYahoo = New CssButton
Set btnLycos = New CssButton

btnYahoo.BackColor = "#aaaaaa"
btnYahoo.BorderColor = "#bbbbbb"
btnYahoo.Font = "bold 12pt Verdana"
btnYahoo.FontColor = "black"
btnYahoo.Width = "80px"
btnYahoo.MouseOverColor = "yellow"
btnYahoo.Url = "http://www.yahoo.com/"
btnYahoo.Name = "yahoo"
btnYahoo.Text = "Yahoo!"

'Display the Yahoo button
Response.Write btnYahoo.GenerateStyleTag()
Response.Write btnYahoo.GenerateButtonTag()
Response.Write "<p> </p>"

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"

'Display the Lycos button
Response.Write btnLycos.GenerateStyleTag()
Response.Write btnLycos.GenerateButtonTag()
%>


[Return to the article]