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

¹ØÓÚvbÖÐÇл»ÉãÏñÍ·µÃÎÊÌâ

ÎҵĵçÄÔͨ¹ýu¿ÚÁ¬×ÅÁ½¸öÉãÏñÍ·£¬ÏÖÓеÄvb±àµÄÈí¼þÊÇ¿ÉÒÔͨ¹ýµãÒ»¸ö°´¼üµ÷³öÒ»¸ö²¶»ñÔ´µÄ½çÃæ£¨ÏñÊǵ÷³öÁËwindows×Ô´øµÄ½çÃæ£©£¬ÔÚÕâ¸ö½çÃæÉÏÓÐÁ½¸öÑ¡ÏÏñÊÇÉ豸Çý¶¯£¬ÕâÑù¾Í¿ÉÒÔÑ¡ÔñÏàÓ¦µÃÁË¡£
ÎÒÏÖÔÚÏëµãÕâ¸ö°´¼ü²»Òªµ÷³öÑ¡Ôñ½çÃæ£¬Ö±½ÓÇл»ÐÐÂ𣬾ÍÊÇÒ»¼üÇл»£¬²»ÖªµÀÔÚ´Ë»ù´¡ÉÏÈçºÎʵÏÖÄØ£¿ лл´ó¼Ò£¡

ÊÇµÄ ÎÒÓõľÍÊÇvbµÄmVFW(VFW.bas)Ä£¿é ¿ÉÊÇÀïÃæ²¢Ã»ÓгöÏÖÉÏÊöÄúËù˵µÄÓï¾ä£¬ËûÓ¦¸Ã¾ÍÊǵ÷ÓÃwindows API°É È»ºó³öÏÖÉÏÃæÄǸö ²¶»ñÔ´µÄ¶Ô»°¿ò È»ºó¿ÉÒÔÑ¡Ôñ¡£ ÎÒÏëÄܲ»Äܲ»³öÏÖÕâ¸ö¿ò Á½¸öÉãÏñÍ·Ö±½ÓÒ»¼üÀ´»Ø×ª»»£¬²»ÐèÒªÓû§ÔÚÑ¡ÔñʲôµÄ ʡȥÕâ¸ö²¶»ñÔ´µÄ²½Öè

ÎҸĹýÁ˵«ÊÇȴûÓÐ×÷ÓÃ
ÎҵijÌÐòÖÐÉæ¼°µ½ capdriverconnectµÄ´úÂëÊÇÕâÑùµÄ£º
Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10)
SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0
ËÆºõÎÒµÄÁ½¸öu¿ÚÉãÏñÍ·Çý¶¯¶¼ÓõÄÉ豸ºÅ0  Ôõô¸Ä³É1¶¼²»Æð×÷Óà »¹ÊÇÉ豸ºÅµÄÔ­ÒòÄØ£¿
SendMessage nCaptureHandle, WM_CAP_DRIVER_DISCONNECT, _
    nCameraID, 0
¶øÕâ¸ödisµÄ¶Ï¿ªÉ豸µÄ´úÂ룬¸Ä³É1»òÕ߯äËû»¹ÊÇÄܶϿª£¬²»ÖªµÀÔ­Òò³öÔÚÁËÄÄ£¬ºÃÏñÎÞ·¨Çø·Ö²»Í¬É豸£¿Ð»Ð»

ºÃÏñÕâ¸öÊÇÓÃÔÚÓÐÁ½¸ö²¶»ñÉ豸°É ¼ÙÈçÎÒÓÃÁ©u¿ÚÁ¬½ÓÁ©ÉãÏñÍ·ºÃÏñ»¹ÊÇËãÒ»¿é²¶»ñ¿¨É豸 ÄÇÑùµÄ»°³ÌÐò¾Í²»¹ÜÓÃÁ˰É
ÒýÓÃ
Èç¹ûÄãÊÇÓÃVFW£¬ÄÇôÄãÓ¦¸Ã×¢ÒâÒÔÏÂÁ¬½ÓÉ豸ʱµÄ²ÎÊý
rd = capDriverConnect(AVIhWnd,0);
¸ü»»
rd = capDriverConnect(AVIhWnd,1);

Äã¿ÉÒÔ¿´¿´·¶Àý
http://blog.csdn.net/SupermanKing/archive/2008/11/02/3207341.aspx



Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

¹ØÓÚvbÓïÒô¿ª·¢µÄÎÊÌ⣿ - VB / ¶àýÌå

ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ