包含vb.net二次点击的词条
vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号。
1.用Win32 API PlaySound
创新互联公司专注于企业全网整合营销推广、网站重做改版、和平网站定制设计、自适应品牌网站建设、H5网站设计、商城建设、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为和平等各大城市提供网站开发制作服务。
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) '这句话也是错误的,你把文件流给写入空了,所以第二次运行打开文件就没有数据了。
多调试,跟踪数据,可以多学点经验。
分享文章:包含vb.net二次点击的词条
文章源于:http://myzitong.com/article/hchojh.html