ロールオーバーを実装するには

概要

イメージボタンにマウスをあわせると色が変わったりするページがあります。
このページでは、このようなロールオーバーを実装するためのサンプルスクリプトを
提供します。
マウスポインタをボタンに乗せたり、クリックしたときに画像を差し替えるためのコードはAttributeによって実現できます。

コード

[tips3.aspx.vb]

    'ロールオーバー実相
    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")