vb点虐 制作双击事件的简单介绍

VB.NET环境下,winform中嵌入excel,Excel单元格双击的事件怎么写?

你可以先用循环的方法来获得改datagrid中“性别”的值,接着自己定义个变量来存放这个“性别”的1或者0,然后根据这个值用条件来判断是显示“男性”还是女性,打个比方(有五列十行数据,比方第二列显示出“性别”):

十多年的滨城网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整滨城建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联公司从事“滨城网站设计”,“滨城网站推广”以来,每个客户项目都认真落实执行。

Dim intRow As Integer

Dim intColumn As Integer

Dim Gender As Integer

For intRow = 0 To 9(DataGrid的行总和)

Gender = CInt(datagrid1.Item (intRow, 1).ToString )

If Gender = 0 Then

datagrid1.Item (intRow, 1)="男"

Else

datagrid1.Item (intRow, 1)="女"

Next

vb点虐 datagridview 双击弹出表单 这个您怎么解决的啊!大哥,- - 我想把弹出表单里的数据实现删除和修改

1.先在DataGridView控件的事件里找到“DoabuleClick”双击事件,刚才弹出表单的程序写在里面。

2.在表单里要删除和修改,通过相应的功能按钮的程序代码来实现。可通过对SQL语句的执行,达到你所要求的条件即可完成!

VB中怎样模拟鼠标双击操作?

当然可以啊。

使用API函数mouse_event可以模拟鼠标事件,比如左键单击、双击和右键单击等。这个实例利用此函数产生了十分有趣的效果,无论鼠标处于屏幕的任何位置,每隔一秒程序会使鼠标在那个位置单击或双击一次,这会给我们造成什么样的混乱呢?试一试就知道了。

先在程序中加入如下的声明后,就能引用mouse_event函数:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

其中各个参数的意义如下表所示:

参数 意义

dwFlags Long,下表中标志之一或它们的组合

dx,dy Long,根据MOUSEEVENTF_ABSOLUTE标志,指定x,y方向的绝对位置或相对位置

cButtons Long,没有使用

dwExtraInfo Long,没有使用

dwFlags常数 意义

MOUSEEVENTF_MOVE H1,移动鼠标

MOUSEEVENTF_LEFTDOWN H2,模拟鼠标左键按下

MOUSEEVENTF_LEFTUP H4,模拟鼠标左键抬起

MOUSEEVENTF_RIGHTDOWN H8,模拟鼠标右键按下

MOUSEEVENTF_RIGHTUP H10,模拟鼠标右键抬起

MOUSEEVENTF_MIDDLEDOWN H20,模拟鼠标中键按下

MOUSEEVENTF_MIDDLEUP H40,模拟鼠标中键抬起

MOUSEEVENTF_ABSOLUTE H8000,标示是否采用绝对坐标

程序中我们这样使用mouse_event函数:

1、这里是鼠标左键按下和松开两个事件的组合即一次单击:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

2、模拟鼠标右键单击事件:

mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

3、两次连续的鼠标左键单击事件 构成一次鼠标双击事件:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

如上面所示如果我们要使用两个dwFlags常数的组合时,可以用Or将其连接起来。本例中我们把dx,dy参数都设为0,是指每次模拟事件的位置是鼠标的当前位置,dx,dy在没有使用MOUSEEVENTF_ABSOLUTE标志时是相对于鼠标当前位置的坐标,如果设置为使用绝对坐标,则dx,dy是相对于屏幕的坐标。

然后把这些语句放在Timer控件的Timer事件中,就能实现每一定间隔模拟一次鼠标事件了。

说明:我不是很会VC,所以只给出VB里面调用得方法。抱歉。

vb点虐 如何在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点虐 制作双击事件的简单介绍
分享地址:http://scyanting.com/article/ddihgjs.html