| 1 |
|
| 2 |
|
| 3 | Public MustInherit Class RolloverImage
|
| 4 |
|
| 5 | Inherits System.Web.UI.UserControl
|
| 6 |
|
| 7 | Protected WithEvents Link1 As System.Web.UI.WebControls.HyperLink
|
| 8 | Protected WithEvents Image1 As System.Web.UI.WebControls.Image
|
| 9 |
|
| 10 |
|
| 11 | Web Form Designer Generated Code |
| 25 |
|
| 26 | Private _NormalImage As String = ""
|
| 27 | Property NormalImageSrc() As String
|
| 28 | Get
|
| 29 | Return _NormalImage
|
| 30 | End Get
|
| 31 | Set(ByVal Value As String)
|
| 32 | _NormalImage = Value
|
| 33 | End Set
|
| 34 | End Property
|
| 35 |
|
| 36 | Private _RolloverImage As String = ""
|
| 37 | Property RolloverImageSrc() As String
|
| 38 | Get
|
| 39 | Return _RolloverImage
|
| 40 | End Get
|
| 41 | Set(ByVal Value As String)
|
| 42 | _RolloverImage = Value
|
| 43 | End Set
|
| 44 | End Property
|
| 45 |
|
| 46 | Private _LinkURL As String = ""
|
| 47 | Property LinkURL() As String
|
| 48 | Get
|
| 49 | Return _LinkURL
|
| 50 | End Get
|
| 51 | Set(ByVal Value As String)
|
| 52 | _LinkURL = Value
|
| 53 | End Set
|
| 54 | End Property
|
| 55 |
|
| 56 | Private _StatusText As String = ""
|
| 57 | Property StatusText() As String
|
| 58 | Get
|
| 59 | Return _StatusText
|
| 60 | End Get
|
| 61 | Set(ByVal Value As String)
|
| 62 | _StatusText = Value
|
| 63 | End Set
|
| 64 | End Property
|
| 65 |
|
| 66 |
|
| 67 |
|
| 68 | Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
| 69 |
|
| 70 | Dim OverEvent As String = ""
|
| 71 | Dim OutEvent As String = ""
|
| 72 |
|
| 73 | ' mouseover javascript
|
| 74 | OverEvent &= Image1.ClientID & ".src='"
|
| 75 | OverEvent &= _RolloverImage & "'; window.status='"
|
| 76 | OverEvent &= _StatusText & "'; return true;"
|
| 77 |
|
| 78 | ' mouseout javascript
|
| 79 | OutEvent &= Image1.ClientID & ".src='"
|
| 80 | OutEvent &= _NormalImage & "'; window.status=' '; return true;"
|
| 81 |
|
| 82 |
|
| 83 |
|
| 84 | Image1.ImageUrl = _NormalImage
|
| 85 | Image1.Attributes.Add("name", Image1.ClientID)
|
| 86 | Link1.NavigateUrl = _LinkURL
|
| 87 | Link1.Attributes.Add("onMouseOver", OverEvent)
|
| 88 | Link1.Attributes.Add("onMouseOut", OutEvent)
|
| 89 |
|
| 90 | End Sub
|
| 91 |
|
| 92 | End Class
|