锐客网

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

vb.net按钮双击 vb双击窗体的代码怎么写

IT技术MOUSEEVENTF

关于VB.net RadioButton控件设置cheked时会触发单击事件的问题 。。。表示刚才亲自测试，建立以个Form，拖了一个Panel，在Panel里面放了3个RadioButton（默认Checked就是False）,然后启动，发现第一个被选中了，
然后双击了一下它，跳到代码页面 ， 在启动，第二个被选中，双击第二个和第三个 ， 此时再代码一面出现了3个按钮的事件，在三个事件都设好断点，启动程序，发现3个都没有被选中了，而且也没执行任何一个事件 。
VB.NET求帮忙！...新建窗体vb.net按钮双击 ， 把maximizebox属性和MinimizeBox 属性设为falsevb.net按钮双击，再添加一个Label1放置文字一个Picturebox1放图片 。
在窗体vb.net按钮双击的load事件中vb.net按钮双击：
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\pic.jpg)
End Sub
窗体Click事件：
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub
窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用vb.net按钮双击！"
End Sub
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 = 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
'''自动生成的字段 。
'''若要进行修改，请将字段声明从设计器文件移到代码隐藏文件 。
【vb.net按钮双击 vb双击窗体的代码怎么写】'''/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中怎样模拟鼠标双击操作？当然可以啊 。
使用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.NET 计时器的问题不对 。步骤如下：
添加一个label标签名字label1 用来显示时间
再添加一个timer控件 名字timer1interval属性=1000 用来计时
窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:"t.TimeOfDay.ToString
End Sub
关于vb.net按钮双击和vb双击窗体的代码怎么写的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：萌宠金毛看电视怎么办，金毛喜欢看什么电视

    下一篇：网站制作官网，制作网站的网址