主婦と.NETと犬のぶろぐ

Beep 関数

えーと、、超不定期ですが、今日は Beep 関数 です。
「ペッ」って鳴らすあれです。
単純に MessageBeep を呼ぶだけかと想像していたのですが、違うみたいですね。
アクセス許可絡みをうじゃうじゃやっているようです。

Option Strict On


Imports System.Security.Permissions
Imports System.Runtime.InteropServices
Imports System.ComponentModel


Public NotInheritable Class Functions


#Region " AppActivate "

AppActivate 関数 参照

#End Region


#Region " GetResourceString "

AppActivate 関数 参照

#End Region


#Region " Asc "

Asc 関数 参照

#End Region


#Region " Beep "
    <DllImport("user32", CharSet:=CharSet.Unicode)> _
    Friend Shared Function MessageBeep(ByVal uType As Integer) As Integer
    End Function


    Public Shared Sub Beep()
        Try
            Dim perm As UIPermission = New UIPermission(UIPermissionWindow.SafeSubWindows)
            perm.Demand()
        Catch exception As System.Security.SecurityException
            Try
                Dim perm As UIPermission = New UIPermission(UIPermissionWindow.SafeSubWindows)
                perm.Demand()
            Catch exception2 As System.Security.SecurityException
                Return
            End Try
        End Try
        MessageBeep(0)
    End Sub
#End Region
End Class

投稿日時 : 2008年1月23日 22:25