Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÖв¥·ÅWAVÎļþ

http://zhidao.baidu.com/question/33440250.html
ÔÚÄ£¿éÖÐÊäÈëÒÔÏ´úÂë
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub
ÔÚ´°ÌåÖÐÊäÈëÒÔÏ´úÂë
Private Sub Form_Load()
PlaySound "D:\sound.wav"
End Sub
VBÖв¥·ÅWAVÎļþ
×÷ÕߣºÕÔÅô
ÔÚ¶àýÌåÈí¼þµÄ¿ª·¢Éè¼ÆÖУ¬ÉùÒôÊÇÒ»¸öÏàµ±ÖØÒªµÄ¶àýÌåÔªËØ£¬ÓÅÐãµÄÉùÒôÉè¼Æ»áΪ¶àýÌåÈí¼þÔöÉ«²»ÉÙ¡£¶øWAV¸ñʽµÄÉùÒôÎļþÊÇÒ»ÖÖ×î³£ÓõÄÉùÒôÎļþ¸ñʽ£¬Ò²×îÈÝÒ׵õ½£¬±ÈÈçͨ¹ýWin 95Öеē¼Òô»ú”³ÌÐò£¬ÀûÓÃÂó¿Ë·ç¾Í¿ÉÒԷdz£¼òµ¥µØÂ¼ÖÆWAVÎļþ¡£VBÊÇÒ»¸öÏ൱¾­µäµÄ¶àýÌ忪·¢µÄ¹¤¾ß£¬ÔÚVBÖв¥·ÅWAVÎļþµÄ·½·¨Ö÷ÒªÓÐÕâÑù¼¸ÖÖ¡£
     Ò»¡¢ÀûÓÃOLE¿Ø¼þ
     ½¨Ò»´°Ì壬ÓÃÊó±êÑ¡ÔñOLE¿Ø¼þ£¬ÔÚ´°ÌåÉÏÍϳöOLEÇøÓò£¬ÔÚͼһµÄ´°¿ÚÖÐÑ¡Ôñн¨ºÍÉùÒôÈ»ºó°´È·¶¨¼ü¾ÍÍê³ÉÁËÔÚ´°¿ÚÖÐÌí¼ÓOLE¿Ø¼þ£¬Èçͼ¶þ¡£
     ÕâÑù¾Í¿ÉÒÔÔÚOLE¿Ø¼þµÄResourceDocÊôÐÔÖÐÑ¡ÔñËùÒª²¥·ÅµÄÎļþ£¬³ÌÐòÔËÐÐʱ˫»÷OLE¿Ø¼þ¼´¿É¡£
ÔÚʵ¼ÊµÄ³ÌÐòÉè¼Æµ±ÖУ¬ÍùÍùÐèÒªµ¥»÷ij¸öͼ±ê»ò°´Å¥À´¿ØÖÆÉùÒôµÄ²¥·Å£¬ÆäʵÏÖ·½·¨ÊÇÕâÑùµÄ£ºÊ×ÏȽ«OLE¿Ø¼þµÄVISIBLEÊôÐÔÉèÖÃΪFALSE,È»ºóÔÚͼ±ê»ò°´Å¥µÄµ¥»÷ʼþÖбàдÈçϵijÌÐò£º
Private Sub Contol_Click()
OLE1.Action = 7
End Sub
     ¶þ¡¢ÀûÓÃMMControl¿Ø¼þ
     VB5.0ÌṩÁËÐí¶àÉè¼Æ¶àýÌåµÄ¿Ø¼þ£¬ÔÚPROJECT/COMPENENTS/CONTROLSÖÐÑ¡ÔñMMControls ¿Ø¼þ£¬´°ÌåÉϾͳöÏÖÁ˶àýÌå¿Ø¼þ¶ÔÏó£¬ÔÚÕâ¸ö¶ÔÏóÉÏÓв»Í¬µÄͼÐι¦Äܱêʶ£¬ÆäÃû³Æ´Ó×óµ½ÓÒ·Ö±ðÊÇPre¡¢Next¡¢Play¡¢Pause¡¢Back¡¢Step¡¢Stop¡¢Record ¡¢Eject ÈçͼÈý¡£
     Õâ¸ö¶àýÌå¿Ø¼þ¿ÉÒÔ²¥·Å¶àÖÖ¸ñʽµÄÉùÒô£¬²¥·ÅWAV¸ñʽÉùÒôÎļþµÄ³ÌÐò´úÂë
Private Sub form_load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filen


Ïà¹ØÎĵµ£º

vb½çÃæ×ÔÊÊÓ¦²»Í¬·Ö±æÂÊÖÕ¼«½â¾ö·½°¸

ÏÖÔÚ¿íÆÁ£¬´óÆÁÄ»ÏÔʾÆ÷Ô½À´Ô½ÆÕ±é£¬Ô­À´ÔÚ800*600ÏÂÉè¼ÆµÄÈí¼þ½çÃæ£¬ÔÚ´óÆÁÄ»ÏÔʾÆ÷£¨1680*1050£©ÉϽçÃæ×ÜÊÇËõµ½Ò»½Ç£¬·Ç³£ÄÑ¿´£¬Òª½«ÀϳÌÐòµÄ½çÃæ°´ÕÕ²»Í¬µÄ·Ö±æÂÊÔÚÖØÐ½øÐÐÉè¼Æ±à³Ì£¬Õû¸ö¹ý³Ì±È½Ï¸´ÔÓ¶øÇÒʵÓÃÐÔ²»´ó£¬Èç¹ûÔ­À´³ÌÐò±È½Ï´óÇÒ½çÃæ±È½Ï¶àµÄ»°ÄÇô¹¤×÷Á¿Ò²½«ÊǾ޴óµÄ£¬¶øÇÒ»¹¿ÉÄܳöÏÖÆäËû´íÎó£¬ÓÐûÓÐÒ»ÖÖÖØ ......

vb³ÌÐòÖÐwebbrowser ½ÓÊÜSendMessage µÄÏûÏ¢

webbrowser ²»ÄÜÊÕµ½SendMessageµÄÏûÏ¢
Ö÷ÒªÊÇÒòΪ1webbrowser µÄ¾ä±úÕÒ²»µ½¡£¾­¹ýŬÁ¦ËÑË÷£¬ÖÕÓÚ½â¾öÁË¡£×ö¸ö¼Ç¼.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......

vb´ò°üÏòµ¼ Éú³É°²×°Îļþ

vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0  mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔØµÄºÜ¶à°²×°³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......

VBʵÏÖÅúÁ¿Ãû³ÆÐÞ¸Ä

ǰÕó×ÓдÁËÒ»¸öĿ¼Ãû/ÎļþÃûµÄ»ñȡС³ÌÐò£¬ÕâÁ½Ìì¾ÓÈ»ÓÖ±»Ãû³ÆÅúÁ¿ÐÞ¸ÄÂé·³ÁËһϣ¬ËùÒÔÔÙдһ¸ö°É¡£
×¢Ò⣺ÄãÒªÊÇÖ»Ïëдһ´ÎµÄ»°£¬ÓÃÅú´¦Àí¸ü·½±ã¡£Ö»Óжà´ÎʹÓõÄÇé¿öÏ£¬×Ô¼ºÐ´³ÌÐò²ÅÓÐÒâÒå¡£
VBÖнøÐÐÃû³ÆÐ޸ĺÜÈÝÒ×,Óõ½µÄ¾ÍÊÇNameÕâ¸öº¯Êý£¬Ó÷¨ÈçÏ£º
Name OldName As NewName£¬Ëü²»½ö¿ÉÒÔ¸ÄдÃû³Æ£¬¶øÇÒ¿ÉÒÔ¸ü¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ