This program for the disabled people who can't speak to help them in chanting God's Names. It is believed that if you listen God almost 24 hrs. Then you get salvation.
Public Class Frmmantraplayer 'for close button declaration Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
Private Const MF_DISABLED = &H2
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByValwFlags As Long) As IntPtr Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
Public Sub DisableCloseButton(ByVal hwnd As IntPtr)
Dim hMenu As IntPtr Dim menuItemCount As Integer hMenu = GetSystemMenu(hwnd, False)
menuItemCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION)
Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION)
Call DrawMenuBar(hwnd)
End Sub
Private Sub frmmantraplayer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Call DisableCloseButton(Me.Handle)
End Sub
Private Sub cmdopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
'If axMantraAVmv.URL = "" Then Exit Sub If Txtplaycount.Text = "" Then Exit Sub axMantraAVmv.settings.playCount = Txtplaycount.Text
lbldisplayplaycount.Text = Txtplaycount.Text
OpenFileDialog1.Filter = "Audio Wave files(*.wav)|*.wav|MP3 files (*mp3)|*.mp3|MP4 files(*.mp4)|*.mp4|All files(*.*)|*.*" OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.ShowDialog()
axMantraAVmv.URL = OpenFileDialog1.FileName
End Sub
Private Sub btnplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplay.Click
axMantraAVmv.Ctlcontrols.play()
End Sub
Private Sub btnpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpause.Click
axMantraAVmv.Ctlcontrols.pause()
End Sub
Private Sub bntstopped_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbntstopped.Click
axMantraAVmv.Ctlcontrols.stop()
End Sub
Private Sub CmdRefresh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesCmdRefresh.Click
axMantraAVmv.Ctlcontrols.stop()
axMantraAVmv.Refresh()
Txtplaycount.Text = "" lbldisplayplaycount.Text = "" End Sub
Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
Dim msg As String Dim title As String Dim style As String Dim response As String msg = "Are sure you don't you want to continue?" style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Question Or MsgBoxStyle.YesNo
title = "Quitting Percent APP" response = MsgBox(msg, style, title)
If response = MsgBoxResult.No Then MsgBox("You cannot quit, clear values please!")
Else Me.Close()
End End If End Sub
Private Sub cmdvolcontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlescmdvolcontrol.Click
'MantraAVmv.ShowPropertyPages() Shell("C:\WINDOWS\system32\sndvol32.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub axMantraAVmv_MediaChange(ByVal sender As Object, ByVal e AsAxWMPLib._WMPOCXEvents_MediaChangeEvent) Handles axMantraAVmv.MediaChange
Txtplaycount.Text = Val(Txtplaycount.Text) - 1
End SubEnd Class
Private Const MF_REMOVE = &H1000
Private Const MF_DISABLED = &H2
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByValwFlags As Long) As IntPtr Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
Public Sub DisableCloseButton(ByVal hwnd As IntPtr)
Dim hMenu As IntPtr Dim menuItemCount As Integer hMenu = GetSystemMenu(hwnd, False)
menuItemCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION)
Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION)
Call DrawMenuBar(hwnd)
End Sub
Private Sub frmmantraplayer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Call DisableCloseButton(Me.Handle)
End Sub
Private Sub cmdopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
'If axMantraAVmv.URL = "" Then Exit Sub If Txtplaycount.Text = "" Then Exit Sub axMantraAVmv.settings.playCount = Txtplaycount.Text
lbldisplayplaycount.Text = Txtplaycount.Text
OpenFileDialog1.Filter = "Audio Wave files(*.wav)|*.wav|MP3 files (*mp3)|*.mp3|MP4 files(*.mp4)|*.mp4|All files(*.*)|*.*" OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.ShowDialog()
axMantraAVmv.URL = OpenFileDialog1.FileName
End Sub
Private Sub btnplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplay.Click
axMantraAVmv.Ctlcontrols.play()
End Sub
Private Sub btnpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpause.Click
axMantraAVmv.Ctlcontrols.pause()
End Sub
Private Sub bntstopped_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbntstopped.Click
axMantraAVmv.Ctlcontrols.stop()
End Sub
Private Sub CmdRefresh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesCmdRefresh.Click
axMantraAVmv.Ctlcontrols.stop()
axMantraAVmv.Refresh()
Txtplaycount.Text = "" lbldisplayplaycount.Text = "" End Sub
Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
Dim msg As String Dim title As String Dim style As String Dim response As String msg = "Are sure you don't you want to continue?" style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Question Or MsgBoxStyle.YesNo
title = "Quitting Percent APP" response = MsgBox(msg, style, title)
If response = MsgBoxResult.No Then MsgBox("You cannot quit, clear values please!")
Else Me.Close()
End End If End Sub
Private Sub cmdvolcontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlescmdvolcontrol.Click
'MantraAVmv.ShowPropertyPages() Shell("C:\WINDOWS\system32\sndvol32.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub axMantraAVmv_MediaChange(ByVal sender As Object, ByVal e AsAxWMPLib._WMPOCXEvents_MediaChangeEvent) Handles axMantraAVmv.MediaChange
Txtplaycount.Text = Val(Txtplaycount.Text) - 1
End SubEnd Class