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
Ïà¹ØÎĵµ£º
ÏÖÔÚ¿íÆÁ£¬´óÆÁÄ»ÏÔʾÆ÷Ô½À´Ô½ÆÕ±é£¬ÔÀ´ÔÚ800*600ÏÂÉè¼ÆµÄÈí¼þ½çÃæ£¬ÔÚ´óÆÁÄ»ÏÔʾÆ÷£¨1680*1050£©ÉϽçÃæ×ÜÊÇËõµ½Ò»½Ç£¬·Ç³£ÄÑ¿´£¬Òª½«ÀϳÌÐòµÄ½çÃæ°´ÕÕ²»Í¬µÄ·Ö±æÂÊÔÚÖØÐ½øÐÐÉè¼Æ±à³Ì£¬Õû¸ö¹ý³Ì±È½Ï¸´ÔÓ¶øÇÒʵÓÃÐÔ²»´ó£¬Èç¹ûÔÀ´³ÌÐò±È½Ï´óÇÒ½çÃæ±È½Ï¶àµÄ»°ÄÇô¹¤×÷Á¿Ò²½«ÊǾ޴óµÄ£¬¶øÇÒ»¹¿ÉÄܳöÏÖÆäËû´íÎó£¬ÓÐûÓÐÒ»ÖÖÖØ ......
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¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔØµÄºÜ¶à°²×°³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
ǰÕó×ÓдÁËÒ»¸öĿ¼Ãû/ÎļþÃûµÄ»ñȡС³ÌÐò£¬ÕâÁ½Ìì¾ÓÈ»ÓÖ±»Ãû³ÆÅúÁ¿ÐÞ¸ÄÂé·³ÁËһϣ¬ËùÒÔÔÙдһ¸ö°É¡£
×¢Ò⣺ÄãÒªÊÇÖ»Ïëдһ´ÎµÄ»°£¬ÓÃÅú´¦Àí¸ü·½±ã¡£Ö»Óжà´ÎʹÓõÄÇé¿öÏ£¬×Ô¼ºÐ´³ÌÐò²ÅÓÐÒâÒå¡£
VBÖнøÐÐÃû³ÆÐ޸ĺÜÈÝÒ×,Óõ½µÄ¾ÍÊÇNameÕâ¸öº¯Êý£¬Ó÷¨ÈçÏ£º
Name OldName As NewName£¬Ëü²»½ö¿ÉÒÔ¸ÄдÃû³Æ£¬¶øÇÒ¿ÉÒÔ¸ü¸ ......