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

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


ÎҵĵçÄÔͨ¹ýu¿ÚÁ¬×ÅÁ½¸öÉãÏñÍ·£¬ÏÖÓеÄvb±àµÄÈí¼þÊÇ¿ÉÒÔͨ¹ýµãÒ»¸ö°´¼üµ÷³öÒ»¸ö²¶»ñÔ´µÄ½çÃæ,ÔÚÕâ¸ö½çÃæÉÏÓÐÁ½¸öÑ¡ÏÏñÊÇÉ豸Çý¶¯£¬ÕâÑù¾Í¿ÉÒÔÑ¡ÔñÏàÓ¦µÃÁË¡£
ÎÒÏÖÔÚÏëµãÕâ¸ö°´¼ü²»Òªµ÷³öÑ¡Ôñ½çÃæ£¬Ö±½ÓÇл»ÐÐÂ𣬾ÍÊÇÒ»¼üÇл»£¬²»ÖªµÀÔÚ´Ë»ù´¡ÉÏÈçºÎʵÏÖÄØ£¿ лл´ó¼Ò£¡
ÎÒÓõľÍÊÇvbµÄmVFW(VFW.bas)Ä£¿é ,ËûÓ¦¸Ã¾ÍÊǵ÷ÓÃwindows API°É È»ºó³öÏÖÉÏÃæÄǸö ²¶»ñÔ´µÄ¶Ô»°¿ò È»ºó¿ÉÒÔÑ¡Ôñ¡£ ÎÒÏëÄܲ»Äܲ»³öÏÖÕâ¸ö¿ò Á½¸öÉãÏñÍ·Ö±½ÓÒ»¼üÀ´»Ø×ª»»£¬²»ÐèÒªÓû§ÔÚÑ¡ÔñʲôµÄ ʡȥÕâ¸ö²¶»ñÔ´µÄ²½Öè
¿ÉÒÔÑ¡ÔñÁ¬½ÓÇý¶¯°É.

ÒýÓÃ
¿ÉÒÔÑ¡ÔñÁ¬½ÓÇý¶¯°É.

ÇëÎʾßÌåÈçºÎ×ö Ò²ÊÇÐèÒªµ÷ÓÃ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»òÕ߯äËû»¹ÊÇÄܶϿª£¬²»ÖªµÀÔ­Òò³öÔÚÁËÄÄ£¬ºÃÏñÎÞ·¨Çø·Ö²»Í¬É豸£¿Ð»Ð»

ÄãÊDz»ÊÇÒªÏȶϿªµÚÒ»¸öÔÙÁ¬½ÓµÚ¶þ¸ö?

ÎÒµ÷ÊÔµÄʱºò Ö±½Ó½øµÚÒ»¸öÒ²²»ÐÐ ²¶×½²»µ½ SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 1, 0


´íÁË Êǵڶþ¸ö ÎÒµ÷ÊÔµÄʱºò Ö±½Ó½øµÚ¶þ¸öÒ²²»ÐÐ ²¶×½²»µ½ SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 1, 0


ºÃÏñÕâ¸


Ïà¹ØÎÊ´ð£º

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......

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ºÅ