ÖÆ×÷VB°²×°³ÌÐòÎÊ´ð(Package & Deployment)
	
    
    
	À
±¾ÎÄ·¢±íÔÚ2000Äê4ÔÂ17ÈÕ ¡¶¼ÆËã»úÊÀ½ç¡·25ÆÚ
 
ÖÆ×÷°²×°³ÌÐòÍùÍùÊdzÌÐòÉè¼ÆµÄ×îºóÒ»²½£¬Í¬Ê±Ò²ÊÇÖØÒªµÄÒ»²½£¬ÒòΪÔËÐа²×°³ÌÐòÍùÍùÊÇÓû§µÄµÚÒ»¸ö²Ù×÷¡£ÏÂÃæ¾Í½éÉÜÒ»Ð©ÖÆ×÷
Visual Basic
°²×°³ÌÐòʱ³£Óöµ½ÎÊÌâµÄ½â¾ö·½·¨¡£
1
¡¢Ò»¸ö·Ç³£¼òµ¥µÄ
VB
³ÌÐòÊÇ·ñ¿ÉÒÔ²»ÖÆ×÷°²×°³ÌÐò
ÎÊ£º¼ÙÈçÎÒµÄ
VB5
¿ª·¢µÄ³ÌÐòºÜ¼òµ¥£¬Ö»Óõ½ÁË
ShellExecute()
Õâ¸ö
API
£¬
 
ÒÔ¼°
Command Button
£¬ÎÒÄܲ»Äܲ»×ö°²×°ÅÌ£¬ÔÚËùÓпͻ§»úÆ÷ÉÏ£¨
WIN95/98/NT
£©¶¼ÄÜÕý³£Ê¹ÓóÌÐò£¿Èç²»ÖÆ×÷°²×°³ÌÐò£¬Óë
EXE
·ÅÒ»ÆðµÄÓ¦¸Ã°üÀ¨ÄÄЩÎļþ£¿
´ð£º¶ÔÓÚÒ»¸ö·Ç³£¼òµ¥µÄ
VB5
³ÌÐò£¬Ã»ÓÐʹÓöîÍâµÄ
OCX
¿Ø¼þ£¬ÔÚ
Win98/2000
ÏÂÊÇ¿ÉÒÔÕý³£ÔËÐе쬶ø²»ÐèÒªÖÆ×÷°²×°ÅÌ¡£ÒòΪ
Win98/2000
´øÓÐ
VB5
³ÌÐòËùÐèÒªµÄ
DLL
Îļþ¡£µ«ÔÚ
Win95/NT 4.0
ÏÂÒ»°ãÊDz»Ðеģ¬ÒòΪȱÉÙ±ØÒªµÄÎļþ¡£Èç¹ûÓû§µÄ»úÆ÷Éϰ²×°ÓÐ
IE 4.0/5.0
£¬ÄÇôӦ¸ÃÒ²ÊÇ¿ÉÒÔ²»ÖÆ×÷°²×°Å̵ġ£ÔÚÒ»°ãÇé¿öÏ£¬²»ÖÆ×÷°²×°Å̾Ͳ»²»Äܱ£Ö¤³ÌÐòµÄÕýÈ·ÔËÐС£ÄãÖÆ×÷µÄ°²×°ÅÌËù°üÀ¨µÄ
DLL
ÖУ¬³ýÁË
Vb5stkit.dll
Ö»Êǰ²×°Ê±Ê¹Ó㬰²×°ºó¾Í²»ÐèÒªÁË£¬ÆäËû
DLL
¶¼ÊDz»¿ÉȱÉٵġ£ËäÈ»¶ÔÓÚijЩ»úÆ÷¶øÑÔ£¬ÓÉÓÚ°²×°¹ýÆäËûÈí¼þ£¬¿ÉÄܲ»ÐèҪij¸ö
DLL
£¬
µ«ÒªÏëÔÚËùÓеĻúÆ÷É϶¼ÕýÈ·ÔËÐУ¬Ò»¸öÎļþ¶¼²»ÄÜÉÙ¡£ËùÒÔΪÁ˱ÜÃâÓÉÓÚȱÉÙij¸öÎļþ»ò×¢²á²»ÕýÈ·¶øÊ¹³ÌÐòÎÞ·¨ÔËÐУ¬ÎÒ½¨ÒéÄ㻹ÊÇÖÆ×÷°²×°Å̱Ƚϱ£ÏÕ¡£Èç¹û
ÄãµÄ³ÌÐòÊÇ·ÅÔÚÍøÉϹ©±ðÈËÏÂÔØµÄ£¬ÎªÁ˼õÉÙÏÂÔØÎļþµÄ´óС£¬¿ÉÒÔÕâÑù×ö£º½«ÄãµÄ³ÌÐòµ¥¶À´ò³ÉÒ»¸ö°ü£¬Èç¹ûÓû§ÒѾÓÐÁËÔËÐÐ
VB5
³ÌÐòËùÐèÒªµÄÓйØÎļþ£¬¾ÍÖ»ÐèÏÂÔØÄãµÄ³ÌÐò£»È»ºó£¬ÔÚÍøÒ³ÉÏÌṩһ¸ö
VB5
µÄÔËÐÐʱ¼ä¿âµÄÁ´½Ó£¨Èç
http://download.microsoft.com/download/vb50pro/utility/1/win98/EN-US/Msvbvm50.exe
£©£¬Èç¹ûÓû§µÄ»úÆ÷ÉÏûÓÐÕâЩÎļþ£¬ÈÃËüµ¥¶ÀÏÂÔØÔËÐп⡣ÕâÊÇÒ»ÖֱȽÏͨÐеķ½·¨¡£
2
¡¢ÊÇ·ñÒ»¶¨Òª×¢²á
ActiveX
¿Ø¼þ
ÎÊ£ºÈôÔÚÒ»¸ö³ÌÐòÖÐʹÓÃÁËÆäËûµÄ¿Ø¼þ
, 
ÈçºÎÔÚûÓÐ×¢²á¸Ã¿Ø¼þµÄ»úÆ÷ÉÏÔËÐÐ
, 
ÊDz»ÊÇÒ»¶¨ÒªÖÆ×÷°²×°³ÌÐò»ò×¢²á¸Ã¿Ø¼þÄØ
?
´ð£ºÔÚ
Win95/98
Ï£¬Èç¹ûÄãµÄ¿Ø¼þºÍ
EXE
ÎļþÔÚͬһ¸öĿ¼ÖУ¬»òÕ߿ؼþÎļþ·ÅÖÃÔÚ
System
Ŀ¼ÖУ¬
EXE
³ÌÐòÔËÐÐʱ»á×Ô¶¯ÕÒµ½ËùÐèÒªµÄ
OCX
Îļþ²¢×¢²á¡£µ«ÊÇÕâÖÖ·½·¨ÔÚ
WinNT
ϲ»ÊÊÓã¬
NT
ϱØÐëÏÈ×¢²á¿Ø¼þ²ÅÄܱ£Ö¤
EXE
³ÌÐòµÄÕý³£ÔËÐС£ÁíÍ⣬ÕâÖÖ×Ô¶¯×¢²áÓÐһЩ벡£¬Èç¹û»úÆ÷ÒѾ
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
     Option Explicit
' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128
' Copyright 2004 by MW6 Technologies Inc. All rights reserved.
'
' This code may not be modified or distributed unless you purchase
' the license from MW6.
Public UFPrefixFunctions As Boolean
Private I As Integer
Pri ......
	
    
        
    
    http://topic.csdn.net/t/20030306/11/1497896.html#
 ¹¤³ÌÎļþÃû£ºChdsp.vbp   
  Type=Exe   
  Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE   Automation   
  Module=Module1;   ChDsp.bas   
  Form=ChDsp.frm   
  Startup="Form1"   
  He ......
	
    
        
    
    ÈçºÎÈÃ»ÃµÆÆ¬ÔÚvbµÄ¿ò¼ÜÀï²¥·Å
'Microsoft PowerPoint 9.0(Office 2000µÄ£¬Èç¹ûÊÇ97ÔòÊÇ8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'ÑÓʱAPIÉùÃ÷
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......
	
    
        
    
      
  
'************************************************************************* 
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø  ......
	
    
        
    
    Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Pri ......