企业🤖AI智能体构建引擎,智能编排和调试,一键部署,支持私有化部署方案 广告
<p><strong><span style="font-size:16px;">DblClick 事件</span></strong></p> <p>当用户按下并释放鼠标按钮,然后按压并再次将其释放到对象上时发生。</p> <p><span style="line-height:1.78571;"><br /> </span></p> <p><span></span></p> <p class="label"><b>语法</b></p> <p><b>Private Sub</b> <span class="emp"><i>object_<b>DblClick&nbsp;</b><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:18px;"></span><b>(</b><i>index&nbsp;</i><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:18px;"></span><b>As&nbsp;</b><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:18px;"></span><b>Integer)</b></i></span></p> <p><span class="emp"><i><br /> </i></span></p> <p>DblClick&nbsp;事件的语法包含下面部分:<span></span></p> <table class="MsoNormalTable" border="1" cellpadding="0"><tbody><tr><td width="29%" valign="top"><p class="MsoNormal"><b><span style="font-size:9.0pt;font-family:宋体;">部分</span></b><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> <td width="71%" valign="top"><p class="MsoNormal"><b><span style="font-size:9.0pt;font-family:宋体;">描述</span></b><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> </tr> <tr><td width="29%" valign="top"><p class="MsoNormal"><span class="emp"><i><span style="font-size:9.0pt;">object</span></i></span><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> <td width="71%" valign="top"><p class="MsoNormal"><span style="font-size:9.0pt;font-family:宋体;"><span>对象表达式</span></span><span style="font-size:9.0pt;font-family:宋体;">,其值是<span> “</span>应用于<span>”</span>列表中的一个对象。</span><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> </tr> <tr><td width="29%" valign="top"><p class="MsoNormal"><span class="emp"><i><span style="font-size:9.0pt;"><i><i>index&nbsp;</i></i></span></i></span><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> <td width="71%" valign="top"><p class="MsoNormal"><span style="font-size:9.0pt;font-family:宋体;"><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:17.55px;">如果控件位于控件数组中,则标识该控件。</span></span><span style="font-size:9.0pt;font-family:宋体;"></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal">&nbsp;</p> <p class="label"><b>说明</b></p> <p><br /> </p> <p style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;">参数<i>Index</i>唯一标识一个控件,如果它在控件数组中。您可以使用DblClick事件过程进行隐含的操作,例如双击图标以打开窗口或文档。您还可以使用此类型的过程通过单个操作执行多个步骤,例如双击以选择列表框中的项目并关闭对话框。</p> <p style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;">要在Visual Basic中生成这样的快捷效果,您可以使用DblClick事件过程列表框或文件列表框与默认按钮 -&nbsp;<b>CommandButton</b>控件的<b>Default</b>属性设置为<b>True</b>。作为列表框的DblClick事件过程的一部分,您只需调用默认按钮的Click事件。</p> <p style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;">对于那些接收鼠标事件的对象,事件按以下顺序发生:MouseDown,MouseUp,Click,DblClick和MouseUp。</p> <p style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;">如果DblClick不在系统的双击时间限制内,则对象会识别另一个Click事件。双击时间限制可能会有所不同,因为用户可以在控制面板中设置双击速度。当您附加这些相关事件的过程时,请确保他们的操作不会冲突。不接收DblClick事件的控件可能会收到两次点击而不是DblClick。</p> <blockquote class="dtBlock" style="color:#000000;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;"><b class="le">注意</b>&nbsp;&nbsp;&nbsp;&nbsp;要区分左,右和中间的鼠标按钮,请使用MouseDown和MouseUp事件。</blockquote> <p style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;">如果<b>Click</b>事件中有代码,<b>DlbClick</b>事件将永远不会被引发。</p> <h4 class="dtH4" style="color:#000000;font-size:1.077em;font-family:'Segoe UI Semibold', 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-weight:normal;">例:<span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:1.78571;">当单击</span><b>CommandButton</b><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:1.78571;">控件或双击列表项时,此示例将在</span><b>TextBox</b><span style="color:#2A2A2A;font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;font-size:13px;line-height:1.78571;">控件中显示所选列表项。</span></h4> <pre class="prettyprint lang-vb">Private Sub Form_Load () &nbsp; &nbsp;List1.AddItem "John" &nbsp; '添加列表框条目。 &nbsp; &nbsp;List1.AddItem "Paul" &nbsp; &nbsp;List1.AddItem "George" &nbsp; &nbsp;List1.AddItem "Ringo" End Sub Private Sub List1_DblClick () &nbsp; &nbsp;Command1.Value = True &nbsp; ' Trigger Click 事件 End Sub Private Sub Command1_Click () &nbsp; &nbsp;Text1.Text = List1.Text &nbsp; '显示选择 End Sub </pre> <p><br /> </p> <p><br /> </p>