主婦と.NETと犬のぶろぐ

奥様 と プログラム と お犬様 の 楽しい日常

目次

Blog 利用状況

ニュース


  •  

なおこ(・∀・)＠わんくま同盟

お犬様同盟

書庫

日記カテゴリ

2008年1月23日 #

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

posted @ 22:25 | Feedback (2)