vb.net事件多次触发的简单介绍

vb.net中WMP一直被触发的事件是什么?

没明白题主的意思,播放过程中一直被触发的事件?为啥会一直触发呢?wmp_PlayStateChange 是播放状态改变的事件,就是播放、暂停、停止,没有播放过程中一直触发的事件。

专业从事成都做网站、网站设计、外贸营销网站建设,高端网站制作设计,小程序制作,网站推广的成都做网站的公司。优秀技术团队竭力真诚服务,采用H5建站+CSS3前端渲染技术,成都响应式网站建设,让网站在手机、平板、PC、微信下都能呈现。建站过程建立专项小组,与您实时在线互动,随时提供解决方案,畅聊想法和感受。

如果是进度条的话,wmp.currentMedia.duration 为歌曲总长度,wmp.Ctlcontrols.currentPosition 为目前播放的进度,你可以设置进度条的最大值为歌曲总长度,然后用计时器不断设置进度条的Value 值为 wmp.Ctlcontrols.currentPosition 就好了啊。

VB.NET控件的一些事件的触发顺序是什么

一个一个回答吧。

1、CheckBox 的 MouseDown 事件发生在 CheckedChange 事件之前,但这是指在单步调试的状态下,事实上在编译好的程序中,这两个事件是分别处在两个不同的线程中,单纯的考虑时间上的前后没有意义。

2、MouseDown 在先。Scroll 事件发生在滚动条移动的过程中,而 ValueChange 事件发生在滚动条的 Value 属性发生改变的时候,两者没有必然联系。举例,当你用鼠标拖动滚动条移动的时候,这时发生的是 Scroll 事件;松开鼠标键后,Value 属性值改变,这时候触发 ValueChange 事件。另外,如果滚动条的 Value 是通过代码改变的而非鼠标拖动的,是不触发 Scroll 事件只触发 ValueChange 事件。

3、ClientSize 是指控件的工作区的高度和宽度。比如说 form,它的 Size 值是包括标题栏、边框等,而 ClientSize 是工作区,不包括标题栏、边框等。

4、一般是 Load→Paint→Shown。

vbnet中listview控件输入中文重复引发Keypress事件

如果是单个字的重复还好说,可是输入词组时,一串字的重复,而且一个字一次事件,这肯定是微软的一个Bug。

办法是有的,把中文字暂时放入字符缓冲中,遇到成双时对半分,前后对比一下,如果相同表示这次输入完成。

Private Sub ListView1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListView1.KeyPress

Static buffer As String

Static ar(1) As String

If Asc(e.KeyChar)  0 Then

buffer = e.KeyChar

If buffer.Length Mod 2 = 0 Then

ar(0) = buffer.Substring(0, buffer.Length \ 2)

ar(1) = buffer.Substring(buffer.Length \ 2)

If ar(0) = ar(1) Then

Debug.Print(ar(0)) '输出中文

buffer = Nothing

End If

End If

Else

Debug.Print(e.KeyChar) '输出英文

End If

End Sub

vb.net button如何实现需要点击3或4次才能执行下个事件,最好能有代码,谢谢

用一个全局变量计数,单击一次变量加1,计数到3或4时变量清0执行你的事件

Private clickCnt As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

clickCnt += 1

If clickCnt = 3 Then

clickCnt = 0

MessageBox.Show("点击了3次")

End If

End Sub

vb.net怎样才能在程序运行时一直重复执行一个子函数而不影响程序运行

首先这个要看的子函数执行的情况了,比如你子函数要8秒才能执行完成,你1秒钟执行一次,到时会有好几个子函数在运行,肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序;

再一个,如果不想影响主程序,你可以再建一个程序,专门用来执行子函数,然后让那个程序用定时器每秒执行一次子函数,这样就不会影响主程序;

(vb.net)动态添加的控件如何多次响应事件?

熟悉VB的朋友对使用ActiveX控件一定不会陌生,众多控件极大地方便了编程,但

唯一的缺陷是不能动态加载控件,必须在设计时通过引用,将控件放置在窗体上。

VB6.0已能够解决该问题,只是帮助中没有明确说明,并且没有描述到一些关键功能,

由于以前的版本中可以动态创建进程外服务:如果对象是外部可创建的,可在 Set 语

句中用 New 关键字、CreateObject 或 GetObject 从部件外面将对象引用赋予变量。

如果对象是从属对象,则需使用高层对象的方法,在 Set 语句中指定一个对象引用:

Dim xlApp1 As Excel.Application

Set xlApp1 = New Excel.Application

Dim xlApp As Object '定义存放引用对象的变量。

Set xlApp = CreateObject("excel.application")

xlApp.Visible = True

---- 这些语法很容易造成误导,以为动态加载ActiveX控件也是此方法,可能有朋友也

象我一样利用CreateObject尝试了无数次,却无功而返,不知微软公司是出于何种考

虑,动态加载ActiveX控件是扩展控件集合的方式实现,通过实际摸索,终于就如何实

现动态ActiveX控件找出了一条切实可行的方法,下面以一个具体的实例来详细说明。

一、ActiveX控件

---- ActiveX 控件是 Visual Basic 工具箱的扩充部分。使用 ActiveX 控件的方法与

使用其它标准内装的控件,如 CheckBox 控件,完全一样。在程序中加入 ActiveX 控

件后,它将成为开发和运行环境的一部分,并为应用程序提供新的功能。

---- ActiveX 部件通过客户端/服务器关系与应用程序— 及与部件相互之间— 交互作

用。客户端是使用部件功能的应用程序代码或部件。服务器是部件及其关联的对象。例

如,假设应用程序使用 ActiveX 控件来提供一个标准的雇员窗体,供公司的多种应用

程序使用。提供雇员窗体的 ActiveX 控件就是服务器,使用这个控件的应用程序就是

服务器的客户端。

二、加载方法

---- VB6.0中对Controls 集合进行了扩展,以前版本中Controls 集合在窗体上列举出

已加载的控件,这在迭代过程中是很有用的。Controls 集合标识一个叫做 Controls

的内在窗体级变量。如果忽略可选的 object 所在处的整数,则关键字 Controls 必须

包括在内。我们通常在窗口中使用如下代码:

Text1.Text="Hello, world"

其实也可以使用如下代码达到同一目的:

Controls(1).Text="Hello, world"

---- 在VB6.0中除了原来的Clear、Remove 方法外(很奇怪,为什么微软在VB5.0中只提

供这两种方法,而没有提供Add方法,因为没有Add,这两种方法也就没什么用处),增

加了Add方法,该方法就是用于动态加载控件的:

Controls.Add(progid as String, Name as String);

progid: ActiveX部件的ProgID,如:"VB.CheckBox";

Name:ActiveX部件加载后的名称,如: "MyCheckBox";

若要在窗体上添加一个名为MyButton的按钮,可以使用:

dim oControl as Object '窗体级变量

注意:这里声明为Object对象类型

Private Sub LoadControl()

Set oControl = Controls.Add

("VB.CommandButton", "MyButton")

oControl.Left = 10

oControl.Top = 10

oControl.Visible = True '使控件可见

End Sub

---- 这是VB6.0的标准语法,它在例程中也是如此演示的,不过该方法虽然现实了控件

的动态加载,按钮显示在窗体上,可以象普通按钮一样按下去,但加载的控件不能预先

设计响应事件代码,如:事件Sub MyButton_Click()将是非法的,当然,可以将要响应

的事件封装在控件内部。就编程的观点来看该方法没什么大的用处,开发ActiveX控件

的目的是为了资源共享,为了被其他开发人员利用,所以要提供必要的事件接口,显然

利用该方法不行,通过分析VBControls等相关对象,找出VBControlExtender对象与

EventInfo相结合能提供事件陷井捕捉,VBControlExtender对象对动态添加控件特别有

用,它提供了一套通用的属性、方法、事件给开发人员,它的一个突出特点是能编程设

计控件的事件,熟习类编程的朋友对带事件的对象声明一定不会陌生:

---- Dim WithEvents objElemt as CElemtVBControlExtender也不例外,声明的语法

一样,只不过它有个特殊的事件ObjectEvent(Info As EventInfo),它能捕捉到对象使

用RaiseEvent产生的所有事件,EventInfo数据结构映射了事件的名称、参数个数和参

数的值。VBControlExtender和 EventInfo相结合,采用Select Case 就可以预先将不

同类对象的事件放置一起,各自独立运作。将上面的代码改写一下就能提供Click事件

了:

---- Dim WithEvents oControl As VBControlExtender '带事件声明声明之后您就可

以在代码窗口的左上角的对象下拉框中发现该对象出现了,也就是说,该对象有了事件

或方法了,它的事件有DragDrop,DragOver ,LostFocus ,GotFocus ,ObjectEvent

和Validate,其中ObjectEvent是通用的事件捕捉。

Private Sub LoadControl()

Set oControl = Controls.Add

("VB. CommandButton", "MyButton")

oControl.Visible = True

End Sub

Private Sub oControl_ObjectEvent(Info As EventInfo)

Select Case Info.Name

Case "Click" 'Click事件

'您可以添加处理Click事件代码

MsgBox "您按了MyButton!"

Case Else ' 其他事件

' Handle unknown events here.

End Select

End Sub

---- 当然对微软提供的标准控件能采用该方法添加,大家都不会怀疑,但自己开发的

控件也能吗?答案是肯定的,我们可以用一个实际的例子进行说明。


本文标题:vb.net事件多次触发的简单介绍
链接分享:http://scjbc.cn/article/hjiogd.html

其他资讯