Visual Basic 2005 ¨C ÈçºÎ²¥·Å¼ôÌù²¾ÖеÄÒôЧÊý¾Ý
2007-01-11 11:00:37
°æÈ¨ÉùÃ÷£ºÔ´´×÷Æ·£¬ÈçÐè×ªÔØ£¬ÇëÓë×÷ÕßÁªÏµ¡£·ñÔò½«×·¾¿·¨ÂÉÔðÈΡ£ |
ÎÒÃÇ¿ÉÒÔ½«ÒôЧÊý¾Ý¸´ÖƵ½¼ôÌù²¾Â𣿵±È»¿ÉÒÔ¡£ÎÒÃÇ¿ÉÒÔ²¥·Å¼ôÌù²¾ÖеÄÒôЧÊý¾ÝÂ𣿵±È»¿ÉÒÔ¡£ÎÊÌâÊÇ£¬ÈçºÎ×÷ÄØ£¿
ÒÔϵijÌÐò´úÂëʾ·¶ÈçºÎ²¥·ÅÏÈǰÒѸ´ÖƵ½¼ôÌù²¾ÖеÄÒôЧÊý¾Ý£º
Try
' ½«¼ôÌù²¾ÖеÄÊý¾ÝÒÔÒ»¸öʵ×÷IDataObject½Ó¿ÚµÄ¶ÔÏ󴫻ء£ Dim oDataObj As IDataObject = Clipboard.GetDataObject() If oDataObj IsNot Nothing Then ' ¼ì²â´Ó¼ôÌù²¾Ëù´«»ØµÄÊý¾ÝÊÇ·ñ´æÔÚWav AudioµÄ¸ñʽ¡£ If oDataObj.GetDataPresent(DataFormats.WaveAudio) Then ' ÒÔWave Audio¸ñʽȡµÃÒôЧÊý¾Ý²¢¼ÓÒÔ²¥·Å¡£ My.Computer.Audio.Play( _ CType(oDataObj.GetData( _ DataFormats.WaveAudio, True), System.IO.Stream), _ AudioPlayMode.Background) End If End If ¡ End Try ±¾Îijö×Ô ¡°ÕÂÁ¢Ãñ¡± ²©¿Í£¬×ªÔØÇëÓë×÷ÕßÁªÏµ£¡ ±¾Îijö×Ô 51CTO.COM¼¼Êõ²©¿Í |



ÕÂÁ¢Ãñ
²©¿Íͳ¼ÆÐÅÏ¢
ÈÈÃÅÎÄÕÂ
×îÐÂÆÀÂÛ
ÓÑÇéÁ´½Ó