Click here to Skip to main content
15,920,503 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Events and Windows NT Pin
Dave Kreskowiak13-Apr-05 3:55
mveDave Kreskowiak13-Apr-05 3:55 
GeneralRe: Events and Windows NT Pin
KreativeKai14-Apr-05 6:37
professionalKreativeKai14-Apr-05 6:37 
GeneralRe: Events and Windows NT Pin
Dave Kreskowiak14-Apr-05 6:58
mveDave Kreskowiak14-Apr-05 6:58 
GeneralRe: Events and Windows NT Pin
KreativeKai22-Apr-05 4:04
professionalKreativeKai22-Apr-05 4:04 
GeneralRe: Events and Windows NT Pin
Dave Kreskowiak23-Apr-05 2:45
mveDave Kreskowiak23-Apr-05 2:45 
GeneralHelp with Track bar linked to mci sound Pin
steve shafa13-Apr-05 0:30
steve shafa13-Apr-05 0:30 
GeneralRe: Help with Track bar linked to mci sound Pin
Dave Kreskowiak13-Apr-05 5:23
mveDave Kreskowiak13-Apr-05 5:23 
GeneralRe: Help with Track bar linked to mci sound Pin
steve shafa13-Apr-05 6:11
steve shafa13-Apr-05 6:11 
Hi AndyYie This is how I have decalred MCI sound

End Function

Public Function PlayMCI(ByVal filename As String, Optional ByVal ShowMsg As Boolean = False) As Boolean
If SoundFormat(filename) <> "NotSoundFile" Then
' close any previous commands that have opened the media
mciSendString("Close all", 0, 0, 0)
' and create the string which will open the new one
mciSendString("Open " & Chr(34) & filename & Chr(34) & " Type " & SoundFormat(filename) & _
" Alias Med", 0, 0, 0)
' Playthe(File)
mciSendString("Play Med", 0, 0, 0)

mciSendString("MCI_RECORD", 0, 0, 0)





End If
End Function ' Play MCI



Private Function SoundFormat(ByVal FullPath As String) As String
Dim Sound As New FileInfo(FullPath)
Dim FileExt As String = Sound.Extension.ToLower

Select Case FileExt
Case ".wav"
Return "Waveaudio"
Case ".mid"
Return "Sequencer"
Case ".mp3"
Return "MPEGVideo"
Case ".mpg"
Return "CDAudio"
Case ".wma"
Return "MPEGVideo"
Case ".mpeg"
Return "Windows Media Player"
Case Else
Return "NotSoundFile"
End Select
End Function ' SoundFormat


Hope this helps you to understand what Im doing
GeneralRe: Help with Track bar linked to mci sound Pin
Dave Kreskowiak13-Apr-05 7:20
mveDave Kreskowiak13-Apr-05 7:20 
GeneralRe: Help with Track bar linked to mci sound Pin
steve shafa13-Apr-05 7:27
steve shafa13-Apr-05 7:27 
GeneralRe: Help with Track bar linked to mci sound Pin
steve shafa13-Apr-05 7:39
steve shafa13-Apr-05 7:39 
GeneralRe: Help with Track bar linked to mci sound Pin
Dave Kreskowiak13-Apr-05 8:05
mveDave Kreskowiak13-Apr-05 8:05 
GeneralRe: Help with Track bar linked to mci sound Pin
steve shafa13-Apr-05 12:50
steve shafa13-Apr-05 12:50 
GeneralRe: Help with Track bar linked to mci sound Pin
Dave Kreskowiak13-Apr-05 17:05
mveDave Kreskowiak13-Apr-05 17:05 
QuestionHow to start a process when windows starts first time Pin
usmanmir12-Apr-05 19:24
usmanmir12-Apr-05 19:24 
AnswerRe: How to start a process when windows starts first time Pin
Dave Kreskowiak13-Apr-05 4:26
mveDave Kreskowiak13-Apr-05 4:26 
GeneralPassing value from combo box to textbox (urgent) Pin
AndyYie12-Apr-05 16:19
AndyYie12-Apr-05 16:19 
GeneralRe: Passing value from combo box to textbox (urgent) Pin
vertig073012-Apr-05 16:22
vertig073012-Apr-05 16:22 
GeneralRe: Passing value from combo box to textbox (urgent) Pin
AndyYie12-Apr-05 16:26
AndyYie12-Apr-05 16:26 
GeneralListView RElational Pin
Codero12-Apr-05 14:50
Codero12-Apr-05 14:50 
GeneralRe: ListView RElational Pin
Dave Kreskowiak13-Apr-05 4:33
mveDave Kreskowiak13-Apr-05 4:33 
Generalslash screen Pin
Lisana12-Apr-05 9:58
Lisana12-Apr-05 9:58 
GeneralRe: slash screen Pin
rwestgraham12-Apr-05 10:16
rwestgraham12-Apr-05 10:16 
GeneralRe: slash screen Pin
Lisana12-Apr-05 10:43
Lisana12-Apr-05 10:43 
GeneralRe: slash screen Pin
vertig073012-Apr-05 11:29
vertig073012-Apr-05 11:29 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.