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

VBÖйØÓڻص÷º¯Êý£¬ºÍAddressofµÄÓ÷¨ - VB / »ù´¡Àà

'ÔÚÒ»¸ö¹«¹²ÀàÄ£¿éÖÐÓÐÒÔÏ´úÂë
Public Declare Function RegisterCallback1 Lib "XXX.DLL" (ByVal iAddress As Long)
Public Declare Function Start1 Lib "XXX.DLL" ()
Public Declare Function Stop1 Lib "XXX.DLL" ()

Public dev As Device

Public Function savePic(ByVal cd1 As CommonDialog, ByVal pic As PictureBox) As Long
   
  Dim itm As Item
  Dim img As ImageFile
   
  On Error GoTo errmsg
   
   
  '±£´æÍ¼Æ¬µÄ´úÂ룬ͨ¹ý¼ÓÔØÁËwiaaut.dllÍê³ÉÒÔϹ¦ÄÜ
  If Not dev Is Nothing Then
  If dev.Type = VideoDeviceType Then
   
  Set itm = dev.ExecuteCommand(dev.Commands.Item(1).CommandID)
   
  If Not itm Is Nothing Then
   
  Set img = cd1.ShowTransfer(itm)
  If Not img Is Nothing Then Set pic.Picture = img.FileData.Picture
   
  End If
   
  End If
  Else
  MsgBox Err.Description, vbExclamation, gstrTitleInfo
   
  End If
  Exit Function

errmsg:
   
  MsgBox Err.Description, vbInformation, gstrTitleI


Ïà¹ØÎÊ´ð£º

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ