SoundPlayer sync VS Async

非同步播放音樂
Dim m As New System.Media.SoundPlayer
m.SoundLocation = "http://ppp_peer/t1.wav"
m.LoadAsync()
m.PlaySync

同步播放音樂
Dim m1 As New System.Media.SoundPlayer
m1.SoundLocation = "http://ppp_peer/t1.wav"
m1.Load()
m1.Play()

留言

張貼留言

這個網誌中的熱門文章

使用VB讀取健保卡基本資料

Imports System Imports System.Text Imports System.Runtime.InteropServices Class CitizenDigitalCertificateCardNoReader Public Structure SCARD_IO_REQUEST Public dwProtocol As Integer Public cbPciLength As Integer End Structure '引用 PC/SC(Personal Computer/Smart Card) API WinScard.dll _ Public Shared Function SCardEstablishContext(ByVal dwScope As UInteger, ByVal nNotUsed1 As Integer, ByVal nNotUsed2 As Integer, ByRef phContext As Integer) As Integer End Function _ Public Shared Function SCardReleaseContext(ByVal phContext As Integer) As Integer End Function _ Public Shared Function SCardConnect(ByVal hContext As Integer, ByVal cReaderName As String, ByVal dwShareMode As UInteger, ByVal dwPrefProtocol As UInteger, ByRef phCard As Integer, ByRef ActiveProtocol As Integer) As Integer End Function _ Public Shared Function SCardDisconnect(ByVal hC
閱讀完整內容

使用VB讀取自然人評証卡號

Imports System Imports System.Text Imports System.Runtime.InteropServices Class CitizenDigitalCertificateCardNoReader Public Structure SCARD_IO_REQUEST Public dwProtocol As Integer Public cbPciLength As Integer End Structure '引用 PC/SC(Personal Computer/Smart Card) API WinScard.dll _ Public Shared Function SCardEstablishContext(ByVal dwScope As UInteger, ByVal nNotUsed1 As Integer, ByVal nNotUsed2 As Integer, ByRef phContext As Integer) As Integer End Function _ Public Shared Function SCardReleaseContext(ByVal phContext As Integer) As Integer End Function _ Public Shared Function SCardConnect(ByVal hContext As Integer, ByVal cReaderName As String, ByVal dwShareMode As UInteger, ByVal dwPrefProtocol As UInteger, ByRef phCard As Integer, ByRef ActiveProtocol As Integer) As Integer End Function _ Public Sha
閱讀完整內容