vb.net版本数字播放声音和图片程序代码

EYYLTV

于 2024-08-07 11:20:09 发布

阅读量20

点赞数 1

文章标签： .net 开发语言

本文链接：https://blog.csdn.net/qq_32257509/article/details/140960808

版权

Imports System.Runtime.InteropServices

Public Class Form1

<DllImport("kernel32.dll")>
Public Shared Function Beep(ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Boolean
End Function




Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim input As String = TextBox1.Text
    Dim numbers() As String = input.Split(New Char() {"."})

    For Each number As String In numbers
        Try
            Select Case number
                Case "1"
                    Beep(840, 300) '播放1音
                    PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2010\Projects\数字播放mp3声音和图片程序\1.jpeg")
                Case "2"
                    Beep(994, 300) '播放2音
                    PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2010\Projects\数字播放mp3声音和图片程序\2.jpeg")
                Case "3"
                    Beep(1123, 300) '播放3音
                    PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2010\Projects\数字播放mp3声音和图片程序\3.jpeg")
                Case "4"
                    Beep(2123, 300) '播放4音
                    PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2010\Projects\数字播放mp3声音和图片程序\4.jpeg")
                Case Else
                    MessageBox.Show("无效的数字")
            End Select
        Catch ex As Exception
            MessageBox.Show("找不到图片文件: " & ex.Message)
        End Try
    Next
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    TextBox1.Text = "1.2.3.4"
End Sub

End Class