Visual Basic NET


- 4


. , . ( ):

Private Sub __Windows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles __Windows.Click

.FileName = "D:\WINNT\Media\Windows Logon Sound.wav"

End Sub

 

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

.FileName = "D:\WINNT\Media\canyon.mid"

End Sub

 

Private Sub ____Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles ___.Click

.FileName = "D:\WINNT\Media\In the Hall of the Mountain King.RMI"

End Sub

 

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

.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\DRILLRLE.AVI"

End Sub

 

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

.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\COUNT24.AVI"

End Sub

 

Private Sub Notre_Dame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Notre_Dame.Click

.FileName = "D:\Documents and Settings\d\My Documents\Visual Studio Projects\\Notre2.avi"

End Sub

 

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

.Play()

End Sub

 

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

.Stop()