vb.net如何在listbox中增加双击事件?

给ListBox添加DoubleClick事件，然后通过ListBox的SelectedItem就知道用户双击了哪一个Item

创新互联专注于宜城网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供宜城营销型网站建设，宜城网站制作、宜城网页设计、宜城网站官网定制、小程序定制开发服务，打造宜城网络公司原创品牌,更为您提供宜城网站排名全网营销落地服务。

补充：

晕，我还以为是WinForm呢。楼主你说清楚是ASP.NET啊！

给你个思路，给listbox（也就是HTML的select）添加一个ondoubleclick属性，调用JavaScript代码，设法标记双击的对象并通知页面提交。如果有困难我再给你写代码

===================

补充：例子做好喽

Default.aspx

***********

%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication1._Default" %

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head runat="server"

title演示/title

script type="text/javascript"

function Move() {

var myForm = document.getElementById("% = Me.form1.ClientId %");

var iptHidden = document.getElementById("% = Me.iptHidden.ClientId %");

var listbox1 = document.getElementById("% = Me.ListBox1.ClientId %");

iptHidden.value = listbox1.selectedIndex;

myForm.submit();

}

/script

/head

body

form id="form1" runat="server"

div

asp:ListBox ID="ListBox1" ondblclick="javascript:Move();" runat="server" Height="238px"

Width="338px"

/asp:ListBox

asp:ListBox ID="ListBox2" runat="server" Height="235px" Style="margin-top: 0px"

Width="339px"/asp:ListBox

input type="hidden" id="iptHidden" runat="server" /

/div

/form

/body

/html

**********

Default.aspx.vb

**********

Public Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

Me.ListBox1.Items.Add("选项1")

Me.ListBox1.Items.Add("选项2")

Me.ListBox1.Items.Add("选项3")

Me.ListBox1.Items.Add("选项4")

Me.ListBox1.Items.Add("选项5")

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Me.IsPostBack Then

Dim indexToMove = CInt(Request.Form("iptHidden"))

If indexToMove = 0 Then

Dim itemToMove = Me.ListBox1.Items(indexToMove)

itemToMove.Selected = False

Me.ListBox1.Items.Remove(itemToMove)

Me.ListBox2.Items.Add(itemToMove)

End If

End If

End Sub

End Class

**********

Default.aspx.designer.vb

**********

'------------------------------------------------------------------------------

' 自动生成

' 此代码由工具生成。

'

' 对此文件的更改可能会导致不正确的行为，并且如果

' 重新生成代码，这些更改将会丢失。

' /自动生成

'------------------------------------------------------------------------------

Option Strict On

Option Explicit On

Partial Public Class _Default

'''summary

'''form1 控件。

'''/summary

'''remarks

'''自动生成的字段。

'''若要进行修改，请将字段声明从设计器文件移到代码隐藏文件。

'''/remarks

Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm

'''summary

'''ListBox1 控件。

'''/summary

'''remarks

'''自动生成的字段。

'''若要进行修改，请将字段声明从设计器文件移到代码隐藏文件。

'''/remarks

Protected WithEvents ListBox1 As Global.System.Web.UI.WebControls.ListBox

'''summary

'''ListBox2 控件。

'''/summary

'''remarks

'''自动生成的字段。

'''若要进行修改，请将字段声明从设计器文件移到代码隐藏文件。

'''/remarks

Protected WithEvents ListBox2 As Global.System.Web.UI.WebControls.ListBox

'''summary

'''iptHidden 控件。

'''/summary

'''remarks

'''自动生成的字段。

'''若要进行修改，请将字段声明从设计器文件移到代码隐藏文件。

'''/remarks

Protected WithEvents iptHidden As Global.System.Web.UI.HtmlControls.HtmlInputHidden

End Class

**********

如何在 vb.net 为动态生成的控件添加事件并传递数据

'把图片的声明放在外面，类里面过程外面，而且要用As，不然等会儿没法用

Dim myPicture As New System.Windows.Forms.PictureBox()

'动态生成的控件，加一行

Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.Panel3.Controls.Add(myPicture)

myPicture.Size =New System.Drawing.Size(115, 160)

myPicture.TabStop =False

myPicture.Name ="p"

myPicture.Cursor = Cursors.Hand

AddHandler myPicture.Click, AddressOf mypic_Click '添加事件

AddHandler returnid, AddressOf idReturned '绑定事件和过程

End Sub

'再来个事件，放在声明的地方，就是类里面、过程外面

Private Event returnid(ByVal id As String) '这个事件可以传递值哦~

'普通的单击事件

Private Sub mypic_Click()

RaiseEvent returnid(myPicture.Name)

End Sub

'会传值的事件过程

Private Sub idReturned(ByVal id As String)

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

'用id变量做点什么吧

End Sub

如果要改事件的签名（参数一类的）的话，得重写控件。你可以这样自己弄一个事件。

vb.net动态菜单，如何添加事件？

动态生成的控件：

Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Dim myPicture = New System.Windows.Forms.PictureBox()

Me.Panel3.Controls.Add(myPicture)

myPicture.Size = New System.Drawing.Size(115, 160)

myPicture.TabStop = False

myPicture.Name = "p" 

myPicture.Cursor = Cursors.Hand

AddHandler myPicture.Click, AddressOf mypic_Click '添加事件

End Sub

处理事件的过程：

Private Sub mypic_Click() 'ByVal id As String

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

在VB.net中，怎么在类中添加事件

首先： textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建的，需要跨线程操作。需要用到委托，这样才能显示出来。 其次： 我觉得用串口的接收数据事件更好一些。

vb.net给控件加事件

两种方法：

1. 用WithEvents声明变量，这样你就可以像对待拖上去的控件一样操作：

Public Class Form3

WithEvents btn As New Button

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load

Controls.Add(btn)

End Sub

Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click

MsgBox(Now)

End Sub

End Class

2. 使用AddHandler 语句：

Public Class Form3

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim btn As New Button

AddHandler btn.Click, AddressOf btn_Click

Controls.Add(btn)

End Sub

Private Sub btn_Click(sender As Object, e As EventArgs)

MsgBox(Now)

End Sub

End Class

WithEvents (Visual Basic)：

AddHandler 语句：

vb.net 动态菜单如何在指定位置添加新项,并添加单击事件?

常见事件有鼠的标单击、双击、移动；

有键盘的键按下、键松开、按键；

有窗体加载、窗体卸载等等。

本文标题：关于vb.net新增事件的信息
文章地址：http://scyingshan.cn/article/hhgoeo.html