ロールオーバーを実装

http://www.atmarkit.co.jp/fdotnet/aspexp/aspexp02/aspexp02_04.html

イメージボタンのロールオーバーを実装できるらしい。
ちなみに下のサンプルだと

  • ポインタ乗せたとき
  • ポインタ退いたとき
  • クリックしたとき

の3つの状態を取得できるようニシタ。

    'ロールオーバー実相
    Public Sub sbMakeRollOver(ByVal that As WebControls.ImageButton, _
                     ByVal BaseImageURI As String, _
                     ByVal AlterImageURI As String, _
                     ByVal ClickImageURI As String)
        With that
            .Attributes("onmouseout") = "src='image/" & BaseImageURI & "'"
            .Attributes("onmouseover") = "src='image/" & AlterImageURI & "'"
            .Attributes("onmousedown") = "src='image/" & ClickImageURI & "'"

        End With
    End Sub

    '-----------------------------------------
    '呼び出し
        Call sbMakeRollOver(Me.ImageButton1, _
                            "first.bmp", "second.bmp", "third.bmp")