怎样给自定义的dropdownlist控件加单击事件

[Yurixu]

我自定义了一个dropdownlist控件，需要右击控件弹出一个菜单。

[Yurixu]

这个问题很难吗?
来顶一下呀!!

[fsvision]

1---------
imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls

<ParseChildren(True), PersistChildren(False), _
Designer("PopupMenuDesigner"), _
ToolboxData("<{0}:PopupMenu runat=server></{0}:PopupMenu>")> _
Public Class PopupMenu
Inherits System.Web.UI.Control

Private _items As ListItemCollection

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content) _
, PersistenceMode(PersistenceMode.InnerProperty), _
Category("Misc"), DefaultValue(""), _
Description("")> _
ReadOnly Property PopupMenuItems() As ListItemCollection
Get
Return _items
End Get
End Property

Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)

Call CreatDivTag(writer)
MyBase.Render(writer)
End Sub

Protected Overrides Sub OnPreRender(ByVal e As System.EventArgs)
MyBase.OnPreRender(e)

Call CreatCssTag()

Call CreatJsTag()
End Sub


Private Sub CreatDivTag(ByVal output As System.Web.UI.HtmlTextWriter)
Dim strDivHtml As String

If PopupMenuItems.Count <> 0 Then
strDivHtml = "<div id=" & Me.ClientID & " style='z-index:10000;'" _
& " class='skin0' onmouseover='javascript:HighItimLight();'" _
& " onMouseout='javascript:LowItemLight();' onClick='JumpToUrl();'" _
& " onfocusout='HidePopupMenu(" & Me.ClientID & ")'>"

Dim i As ListItem
For Each i In PopupMenuItems
strDivHtml = strDivHtml _
& " <div class='menuitems' target='_blank' " _
& " url='" & i.Value & "'>" & i.Text & "</div>"
Next
strDivHtml = strDivHtml & "</div>"
output.Write(strDivHtml)
End If
End Sub


Private Sub CreatJsTag()
Dim strJsSrc As String
strJsSrc = "<script language=""javascript"" src=""js/CasioJinjiControl.js""></script>"

Page.RegisterClientScriptBlock("IncludeJs", strJsSrc)
End Sub


Private Sub CreatCssTag()
Dim strCssHtml As String

If PopupMenuItems.Count <> 0 Then
strCssHtml = "<style>" _
& " .skin0" _
& " {BORDER-RIGHT: black 2px solid;" _
& " BORDER-TOP: black 2px solid; VISIBILITY: hidden;" _
& " BORDER-LEFT: black 2px solid; WIDTH: 200px; CURSOR: default;" _
& " LINE-HEIGHT: 20px; BORDER-BOTTOM: black 2px solid; FONT-FAMILY: Verdana;" _
& " POSITION: absolute; BACKGROUND-COLOR: menu; TEXT-ALIGN: left}" _
& " .skin1" _
& " {BORDER-RIGHT: buttonhighlight 2px outset;" _
& " BORDER-TOP: buttonhighlight 2px outset; FONT-SIZE: 10pt;" _
& " VISIBILITY: hidden; BORDER-LEFT: buttonhighlight 2px outset;" _
& " WIDTH: 120px; CURSOR: default;" _
& " BORDER-BOTTOM: buttonhighlight 2px outset;" _
& " FONT-FAMILY: Arial, Helvetica, sans-serif; POSITION: absolute;" _
& " BACKGROUND-COLOR: menu; TEXT-ALIGN: left}" _
& " .menuitems" _
& " {PADDING-RIGHT: 10px; PADDING-LEFT: 15px}" _

Page.RegisterClientScriptBlock("PopupMenuCss", strCssHtml)
End If
End Sub

Public Sub New()

_items = New ListItemCollection
End Sub
End Class

2---------------
在另一个控件中添加一个属性与以上的控件想结合就行了
<Category("Appearance"), DefaultValue("")> Property PopupMenu() As String
Get
Return _strPopupMenu
End Get
Set(ByVal Value As String)
_strPopupMenu = Value
End Set
End Property
-------------------------

If Not PopupMenu Is Nothing Then
If CType(Page.FindControl(PopupMenu), PopupMenu).PopupMenuItems.Count <> 0 Then
writer.AddAttribute("oncontextmenu", _
"javascript:ShowPopupMenu(" & PopupMenu & ");")
End If
End If

[Yurixu]

先试一下，能用就结了