vb双击事件怎么写

1.如果鼠标双击 则引发事件 的VB代码怎么写 帮帮忙

不用那么啰嗦。

○在窗体中输入以下代码:Private Sub Command1_Click() lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)End SubPrivate Sub Command2_Click() UnhookWindowsHookEx lHookEnd Sub○新建一个模块,输入以下代码:Option ExplicitPublic Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)Public Type MOUSEMSGS X As Long 'x座标 Y As Long 'y座标 a As Long b As Long time As Long 'Window运行时间End TypePublic Type POINTAPI X As Long Y As LongEnd TypePublic Const WH_MOUSE_LL = 14Public Const HC_ACTION = 0'鼠标消息Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public MouseMsg As MOUSEMSGSPublic lHook As Long'----------------------------------------'模拟鼠标Private Const MOUSEEVENTF_LEFTDOWN = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private 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)'鼠标钩子Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim pt As POINTAPI If code = HC_ACTION Then CopyMemory MouseMsg, lParam, LenB(MouseMsg) If wParam = WM_RBUTTONDOWN Then '把中键改为左键 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 CallMouseHookProc = 1 End If If wParam = WM_RBUTTONUP Then mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 CallMouseHookProc = 1 End If End If If code 0 Then CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam) End IfEnd Function。

2.Vb 怎样获取双击事件

以下在模块中 Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long) Public Type MOUSEMSGS X As Long 'x座标 Y As Long 'y座标 a As Long b As Long time As Long 'Window运行时间 End Type Public Type POINTAPI X As Long Y As Long End Type Public Const WH_MOUSE_LL = 14'-----------------------------------------'消息 Public Const HC_ACTION = 0'鼠标消息 Public Const WM_MOUSEMOVE = &H200 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public MouseMsg As MOUSEMSGS Public lHook As Long'---------------------------------------- Private Declare Function GetDoubleClickTime Lib "user32" () As Long'鼠标钩子 Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim pt As POINTAPI, DBLCLK As Long Static DBtime As Long DBLCLK = GetDoubleClickTime If code = HC_ACTION Then CopyMemory MouseMsg, lParam, LenB(MouseMsg) If wParam = 513 And MouseMsg.time - DBtime <= DBLCLK Then MsgBox "双击" If wParam = 512 Then DBtime = 0 If wParam = 514 Then DBtime = MouseMsg.time End If If code <> 0 Then CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam) End If End Function 以下在 form1 中'安装钩子 Private Sub AddHook() '鼠标钩子 lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0) End Sub'卸钩子 Private Sub DelHook() UnhookWindowsHookEx lHook End Sub Private Sub Command1_Click() DelHook '卸钩子 End Sub Private Sub Form_Load() AddHook End Sub Private Sub Form_Unload(Cancel As Integer) DelHook End Sub 请参考。

3.在VB6.0中 MSFlexGrid控件的双击事件怎么写

Form2中添加一个TextBox,Index设为0,即设为控件数组。

方法一:

Form1中:

Private Sub MSFlexGrid1_DblClick()

Dim frm As New Form2

With frm

For i = 1 To MSFlexGrid1.Cols - 1

Load .Text1(i)

.Text1(i).Visible = True

.Text1(i).Top = .Text1(i - 1).Top + 360

MSFlexGrid1.Col = i

.Text1(i) = MSFlexGrid1.Text

Next

.Text1(0).Visible = False

.Show

End With

End Sub

方法二:

Form1中:

Private Sub MSFlexGrid1_DblClick()

Dim frm As New Form2

frm.Text1(0) = MSFlexGrid1.Row

frm.Show

End Sub

Form2中:

Private Sub Text1_Change(Index As Integer)

If Index > 0 Then Exit Sub

For i = 1 To Form1.MSFlexGrid1.Cols - 1

Load Text1(i)

Text1(i).Visible = True

Text1(i).Top = Text1(i - 1).Top + 360

Form1.MSFlexGrid1.Col = i

Text1(i) = Form1.MSFlexGrid1.Text

Next

Text1(0).Visible = False

End Sub

4.VB中treeview双击事件代码怎么写啊

Private Sub TreeView1_DblClick()

On Error Resume Next

Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key

Case "hebei1"

WMP1.URL = "mms://mms.hebtv.com/tv1"

Case "hebei2"

WMP1.URL = "mms://mms.hebtv.com/tv2"

End Select

End Sub

自己可以再改改

5.VB工具栏按钮双击事件

道理是相同的。工具栏上面的按钮有单击事件,再加一个计时器就成了双击事件了。

Dim blnClicked As Boolean

Private Sub Toolbar_Click()

If blnClicked =True Then

MsgBox "按钮被双击了"

blnClicked=False

Else

blnClicked=True

End If

End Sub

Private Sub Form_Load()

Timer1.Interval=500'设定双击有效间隔时间为半秒钟以内

End Sub

Private Sub Timer1_Timer()

blnClicked =False

End Sub

6.VB中treeview双击事件代码怎么写啊

Private Sub TreeView1_DblClick() On Error Resume Next Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key Case "hebei1" WMP1.URL = "mms://mms.hebtv.com/tv1" Case "hebei2" WMP1.URL = "mms://mms.hebtv.com/tv2" End SelectEnd Sub自己可以再改改。

vb双击事件怎么写

转载请注明出处育才学习网 » vb双击事件怎么写

知识

经营信誉怎么写

阅读(189)

本文主要为您介绍经营信誉怎么写,内容包括工厂经营信誉怎么写,厂家的经营信誉是什么,应该怎么写,企业信誉评价怎么写。守法经营报告守法诚信,是中华民族弥足珍贵的优良传统,是五千年古国文化颠扑不破的真理。古往今来,诚实守法、一诺千金的故

知识

凯用蒙语怎么写啊

阅读(227)

本文主要为您介绍凯用蒙语怎么写啊,内容包括俊凯用蒙语要怎么翻译,&#39;&#39;骂你‘’用蒙语怎么说,南丁用蒙语怎么写。他那日腮奴!(你们好!) 这里的“腮奴”是你好的意思2、白日带----by - yar - tai-----再见3、吧嗒一度--bada

知识

餐饮押金条怎么写

阅读(239)

本文主要为您介绍餐饮押金条怎么写,内容包括饭店押金条怎么写,押金条格式,押金条怎么写,押金条怎么写详细点。押金条格式:今收到__房屋出租押金__(小写__)元。该押金在合同到期后退还租房人。收款人:身份证号码:日期:二、押金条遗失说明:押金不

知识

啊杰英文怎么写

阅读(195)

本文主要为您介绍啊杰英文怎么写,内容包括阿杰英文怎么写,啊杰英文怎么写,杰的英文怎么写。杰森的英文:Jason、Jason的读音:[ˈdʒesən]。Jason的用法示例如下:1.Jason aims at becoming

知识

上户口村里的证明怎么写

阅读(186)

本文主要为您介绍上户口村里的证明怎么写,内容包括给孩子上户口村委会证明是在村里生的怎么写,给小孩上户口,村里开的证明怎么写,给小孩上户村里开的证明怎么写。小孩上户口证明 XXX派出所: 兹有我村村民XXX,男,身份证号XXXXXX,于XX年X月于XX地

知识

算字的笔顺怎么写

阅读(230)

本文主要为您介绍算字的笔顺怎么写,内容包括算的笔画顺序怎么写的,算字的笔画,的字的笔画顺序怎么写。姓名:刘骐锋五行分别是:火木金笔画分别是:15 18 15天格.人格.地格.总格.外格数分别:16(土) 33(火) 33(火) 48(

知识

开平方符号怎么写

阅读(240)

本文主要为您介绍开平方符号怎么写,内容包括开平方的符号怎样写,开平方的符号怎样写,开方的符号怎么打。左手按住换档键(Alt键)不放,右手依次按41420(不要按键盘上方的,要按右边的),松开双手,根号(√)就出来了。

知识

蛙读书报告怎么写

阅读(215)

本文主要为您介绍蛙读书报告怎么写,内容包括读书报告怎么写,读书报告怎么写,读书报告怎么写。读书报告是一种非常有用的实用体裁,它可以帮助我们记录复习学过的知识并提高我们的概括能力、综合能力、分析能力和评判能力。读书报告的写法如下

知识

铝箔纸的拼音怎么写

阅读(245)

本文主要为您介绍铝箔纸的拼音怎么写,内容包括印的拼音怎么写,林家宇的拼音怎么写,邹佳的拼音怎么写。拼 音:yìn 部 首卩五 笔QGBH笔 顺ノフ一フ丨【详细解释 】图章,戳记:~章。~玺。~记。~把子(亦喻政权)。痕迹:手~。指~。

知识

高三周记怎么写

阅读(183)

本文主要为您介绍高三周记怎么写,内容包括高三开学第一周周记怎么写,高三我来了这个题目的周记怎么写200字左右,高中周记300字左右怎么写啊。一个漫长的暑假已过去,迎来的是一个美好的秋天.新的一学期又开始了,迎着早晨的第一缕阳光,我们又重

知识

英语错题本怎么写

阅读(272)

本文主要为您介绍英语错题本怎么写,内容包括英语错题本怎么弄,英语的错题本怎么写,英语的错题本要怎么做。错题本整理的内容主要是单项选择,完形填空以及翻译句子,至于其他的题目就没有必要也没法整理,其中以单项选择为主!无论是自己做没做对,只

知识

出租房发布怎么写

阅读(174)

本文主要为您介绍出租房发布怎么写,内容包括出租房信息发布怎么写,出租房子的信息怎么写,赶集网上发布出租房信息电话怎么写不上去呢。原发布者:澎湃小伙一般房屋出租范本怎么写告示中只要写清楚出租的房屋的具体位置、楼层、面积、几室几厅

知识

主管领导评鉴意见怎么写

阅读(265)

本文主要为您介绍主管领导评鉴意见怎么写,内容包括主管领导评鉴意见怎么写,主管领导意见怎么写,机关事业单位工作人员年度考核登记表主管领导评鉴意见怎么写搜狗。主管领导评鉴意见是对员工工作自评或者述职报告的一项确认性质的评价意见。

知识

html文字上下居中代码怎么写

阅读(203)

本文主要为您介绍html文字上下居中代码怎么写,内容包括HTML文字居中怎么写,html居中代码怎么写,如何用html代码实现网页上下居中。如果这排文字放在table里,这样写:<table><td align="center"> &lt;!--让td中的内容居中--><a

知识

事件新闻稿怎么写

阅读(207)

本文主要为您介绍事件新闻稿怎么写,内容包括如何写一篇事件通讯稿,突发性事件新闻稿怎么写,新闻稿怎么写。通讯稿 1.通讯的概念 通讯,是运用叙述、描写、抒情、议论等多种手法,具体、生动、形象地反映新闻事件或典型人物的一种新闻报道形式。

知识

vb里的for循环语句怎么写

阅读(205)

本文主要为您介绍vb里的for循环语句怎么写,内容包括vb怎么写for循环语句,VB中的循环语句中的for是怎么用的,vb怎么写for循环语句。For循环的格式:For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2[循环体]Next [循环变量

知识

电影事件分析怎么写

阅读(223)

本文主要为您介绍电影事件分析怎么写,内容包括电影影片分析怎么写,请问电影分析怎么写啊,影片中人物分析怎么写。怎样写影评,专业第一遍,先看光,每个镜头中光是怎么用的,下一个镜头的光有什么变化,有没有投影的变化,有没有黑天白天的变化,有没有阴

知识

事件反思怎么写

阅读(198)

本文主要为您介绍事件反思怎么写,内容包括安全事故反思怎么写,做错事反思怎样写,反思怎么写400个字。安全故事反思:通过对XX公司系统各类事故的学习和分析,根据自身实际,XX组织全员进行了深刻反思,我认为事故的发生存在以下一些不可忽视的问

知识

vb显示代码怎么写

阅读(152)

本文主要为您介绍vb显示代码怎么写,内容包括VB作保存,显示和分别显示的代码怎么写,怎么看VB代码、又怎么编写代码,VB这些代码怎么写。|答案e799bee5baa6e78988e69d8331333234333233一Private Sub Command1_Click

知识

监听事件怎么写

阅读(140)

本文主要为您介绍监听事件怎么写,内容包括怎样写JTextField的监听和处理事件,JAVA中的事件监听程序怎么写,JList的监听事件怎样写,给一个范例就行。首先,jTextField有不同于按钮等其它组件的监听器,通常不使用楼上所使用的监听器.下面这段是

知识

vba复制代码怎么写

阅读(178)

本文主要为您介绍vba复制代码怎么写,内容包括excel用vba实现内容的复制代码怎么写,vba下拉复制怎么写代码,vba下拉复制怎么写代码。打开工作表,找到原数据,。插入表单按钮。ALT+F11打开VBA代码编辑器,输入宏代码如下。将表单按钮指定到宏,运行

知识

不良事件上报表怎么写

阅读(252)

本文主要为您介绍不良事件上报表怎么写,内容包括血透科护理不良事件报告表怎么写,事件报告怎么写,流出不良报告怎么写。事故、失误报告管理规定名词解释:事故事件发生时可能或已经造成物资损坏、财产损坏、人员伤亡,并且引发或有可能引发生产

[/e:loop]