×¢²á | µÇ¼ Íü¼ÇÃÜÂ룿 51ctoÊ×Ò³ | ²©¿Í | ÂÛ̳ | ÕÐÆ¸
ÈȵãÎÄÕ һ¸öºÚ¿ÍÓëÒ»¸öµçÄ԰׳յÄ..
¡¡°ïÖú

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ö×Ô ¡°ÕÂÁ¢Ãñ¡± ²©¿Í£¬×ªÔØÇëÓë×÷ÕßÁªÏµ£¡





    ÎÄÕÂÆÀÂÛ
 
 

·¢±íÆÀÂÛ

êÇ   ³Æ£º
ÑéÖ¤Â룺 ¡¡µã»÷ͼƬ¿ÉË¢ÐÂÑéÖ¤Âë¡¡¡¡²©¿Í¹ý2¼¶£¬ÎÞÐèÌîдÑéÖ¤Âë
ÄÚ   ÈÝ£º