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

2004-04-22 11:23:07 139 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Carla-编译CarlaUE4提示HoloLens.Automation项目缺少Windows程序集？编译CarlaUE4提示HoloLens.Automation项目缺少Windows程序集？不妨看看这个！阅读详情

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

...全文

脑电分析：为什么大脑信号会“变同步”？——事件相关同步化与去同步化 (ERS/ERD) 全景解析脑电分析中的事件相关同步化（ERS）和去同步化（ERD）是研究大脑动态节律的重要方法，反映特定任务下脑电频段能量的变化。ERD表示神经元活动分散（功率下降），提示脑区活跃处理信息；ERS则反映神经元同步（功率增强），常与静息状态相关。本文详解了ERS/ERD的生理机制、计算流程（包括基线校正和功率谱分析），并提供了Python实现示例，展示如何通过Welch法和STFT进行时频分析，生成ERD/ERS热力图。该技术广泛应用于运动想象脑机接口、癫痫检测等领域，为理解大脑功能状态提供了量化工具。阅读详情

Yurixu

.NET社区 62,273 成员 668,968 内容

+ 关注 + 加入社区

切换为时间正序

Yurixu 2004-04-28

打赏
举报

先试一下，能用就结了

fsvision 2004-04-28

打赏
举报

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 2004-04-22

打赏
举报

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

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

相关推荐