包含vb.net二次点击的词条

vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号。

1.用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：

先声明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

2． 调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub

vb中点击一个命令按钮出来一件事情，再次点击出来另一件事情如何操作？

这个问题可以用文本框或label标签等来存储点击次数，举个例子吧：Private

sub

command1_click()

Dim

a

As

String

a

=

Label1.caption

If

a

=

Then

........'第一次事件

Label1.Caption=1

Elseif

a

=

1

Then

.........'第二次事件

Label1.Caption=0

End

If

End

Sub

希望采纳

vb.net 如何实现继续运行

看代码吧！在上次累加的基础上继续累加

窗体中包含一个Button1

Public Class Form1

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

Static a As Integer

For i = 1 To 100 '运算100次

a = a + i

Next

End Sub

End Class

static 是声明静态变量，只要程序不退出，值就会一直保存

这样，你第一次点击 a的值就是5050

第二次点击a就变成了 10100

vb.net如下代码只能运行一次，第二次后就没效果了，求解？

因为你Dim lByte As Byte 没有声名数组，

lSWiter.WriteByte(Nothing) '这句话也是错误的，你把文件流给写入空了，所以第二次运行打开文件就没有数据了。

多调试，跟踪数据，可以多学点经验。