锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net制作双击事件的信息( 二 )

IT技术鼠标


然后把这些语句放在Timer控件的Timer事件中，就能实现每一定间隔模拟一次鼠标事件了 。
说明：我不是很会VC，所以只给出VB里面调用得方法 。抱歉 。
vb.net如何在listbox中增加双击事件?给ListBox添加DoubleClick事件vb.net制作双击事件，然后通过ListBoxvb.net制作双击事件的SelectedItem就知道用户双击了哪一个Item
补充：
晕，vb.net制作双击事件我还以为是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 = https://www.04ip.com/post/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 控件 。

推荐阅读


上一篇：加入鸿蒙生态厂商，鸿蒙生态合作伙伴名单

下一篇：excel如何带转换为箱，转化成excel