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

ÈçºÎÓÅ»¯VB³ÌÐò

ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú 
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËÙ¶È£¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ßÌåÀàÐÍ£¬ËùÒÔËü»á¸ø¸ÃÀàÐͱäÁ¿·ÖÅä16¸ö×ֽڵĿռ䣬¶øÇÒÔÚÓñäÁ¿½øÐÐÔËËãʱ»¹Òª¿¼Âǵ½Êý¾ÝÀàÐ͵Äת»»¡£Õâ¼ÈÕ¼ÓÃÄڴ棬ÓÖÓ°ÏìÁËËÙ¶È£¬»áÊ¹Éæ¼°µ½¸´ÔÓÔËËãµÄ³ÌÐòÂý¡£×¢Ò⣬һ¸ö±äÁ¿µÄȱʡÀàÐ;ÍÊÇ Variant£¬ÆäËüÀàÐ͵ıäÁ¿ÒªÓÃDimÓï¾äµ¥¶ÀÉùÃ÷¡£
2.ÔÚÓöµ½ÕûÐÍÊý¾Ýʱ¾¡Á¿Ê¹ÓÃLong±äÁ¿¡£ÒòΪLong±äÁ¿ÊÇ32λCPUµÄ±¾»úÊý¾ÝÀàÐÍ£¬ËùÒÔ´¦ÀíËÙ¶È»áºÜ¿ì£¬ÓÈÆäÊÇÔÚÑ­»·ÌåÖС£
3.½«¿Ø¼þµÄ³£ÓÃÊôÐÔ±£´æÔÚ±äÁ¿ÖС£Ò»°ã¿Ø¼þ´æÔÚÓÚDLL»òOCXÕâÀàµÄÍⲿ³ÌÐòÖС£ÖÚËùÖÜÖª£¬µ÷ÓÃDLLÔ¶±È·ÃÎÊÄÚ´æÂý¡£ËùÒÔ¶ÔÓÚÄÇЩ·ÅÔÚÑ­»·ÌåÖеij£ÓÃÊôÐÔ£¬Èç¹û½«ËüÃDZ£´æÔÚ±äÁ¿ÖУ¬ÄÇôËٶȽ«»áÓгɰÙÉÏǧ±¶ÌáÉý¡£
ÎÒÃÇÔÚ±àд³ÌÐòʱӦעÒâµ½£¬ÔÚ½øÐг¤Ê±¼äµÈ´ý²Ù×÷ʱ£¬¿ÉÒÔ×öһЩ¶¯»­Ö®ÀàµÄЧ¹û£¬ºÃÈÃÓû§ÖªµÀ³ÌÐòÔËÐÐÕý³£¡£ÏÂÃæÊǼ¸¸ö³£ÓÃÓÅ»¯·½·¨£º
£¨1£©Ê¹Óà Splash ÆÁÄ»¡£Ò²¾ÍÊÇÎÒÃdz£¼ûµÄ»¶Ó­´°¿Ú¡£´óµÄÓ¦ÓóÌÐòÔÚÆô¶¯Ê±£¬ÍùÍù»áÖ÷¶¯»ò±»¶¯µØÔØÈëÒ»´ó¶ÑDLL£¬ÕâÒª»¨·ÑºÜ³¤Ê±¼ä¡£ËùÒÔÎÒÃÇÔÚÆô¶¯Ê±¿ÉÒÔÏÈÏÔʾһ¸ö¼òµ¥µÄ´°¿Ú£¬ÉÏÃæÖ»·ÅһЩ×÷Õß¡¢°æÈ¨Ö®ÀàµÄÐÅÏ¢£¬ÔÚÕâ¸ö´°¿ÚµÄForm_LoadʼþÖÐÓÃLoad·½·¨¶ÁÈëÄÇЩ×î³£ÓõĴ°ÌåÄ£¿é¡£ÕâÑù£¬ËäȻʵ¼ÊµÈ´ýµÄʱ¼äÑÓ³¤ÁË£¬µ«Óû§Ëù¿´µ½µÄÆÁÄ»×ÜÊDZ仯µÄ£¬ËùÒԸоõϳÌÐòÆô¶¯¼Ó¿ìÁË¡£¶øÇÒÓÉÓÚ³£Óô°ÌåÄ£¿éÊÂÏÈÒÑÔØÈëÄڴ棬ÒÔºóÖ»ÐèÓÃShow·½·¨À´ÏÔʾËü£¬Ìø¹ýÁËÔØÈë¹ý³Ì£¬ÔÚ³ÌÐòÔËÐйý³ÌÖÐÒ²»áºÜ¿ìµÄ¡£
£¨2£©Ê¹ÓÃTimer¿Ø¼þ¡£ÓÉÓÚTimer¿Ø¼þµÄ³öÏÖ£¬Ê¹µÃºǫ́×÷ÒµÓÐÁË¿ÉÄÜ¡£ÎÒÃÇ¿ÉÒÔÔÚÿ´ÎTimerʼþÖÐÍê³ÉһС²¿·ÖÈÎÎñ¡£ÕâÑù£¬ÓÉÓÚTimerÖеÄʼþÄܹ»Ôں̵ܶÄʱ¼äÄÚÍê³É£¬Óû§Ò»°ã²é¾õ²»µ½Ëٶȵı仯¡£Èç¹ûÒ»¶¨ÒªÔÚÒ»¸öÑ­»·ÄÚÍê³Éij¸öÈÎÎñ£¬ÄÇô²»ÒªÍüÁËÓÃDoEventsÀ´ÊÍ·ÅÓû§¡£
£¨3£©Ê¹Óýø¶ÈÌõ¡£ÒªÊ¹Óýø¶ÈÌõ£¬ÐèÒªÊÂÏÈÖªµÀÊý¾ÝÁ¿£¬ËùÒÔËüºÜÊʺÏÓÃÓÚ¶ÔÒÑÖªÊý¾ÝµÄ²Ù×÷£¬ÈçÊý¾Ý¿âµÄÅÅÐò¡£
×ÜÖ®£¬ÓÅ»¯³ÌÐòÒª´Ó×Ô¼º¡¢´ÓÓû§µÈ¶à·½Ã濼ÂÇ£¬Ê¹³ÌÐò¿ª·¢ÖÜÆÚ¶Ì£¬ÇÒ¸ßЧÒ×Óá£
2¡¢ÔÚVBÖÐÈçºÎ´´½¨ÉÁ˸(±êÓï)ÆÁ
´óÐÍÓ¦ÓÃϵͳÆô¶¯ÔËÐеÄʱ¼äÐèÒªºÜ³¤Ê±¼ä,Æäʱ¼ä»á¸ù¾ÝÐèÒª³õʼ»¯µÄÊýÁ¿ºÍÓû§ÏµÍ³µÄËٶȱ仯,Òò´ËÔÚÖ÷´°¿ÚÏÔʾǰ,Ó¦ÏÔÊ


Ïà¹ØÎĵµ£º

VB: Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ

'ÒýÓãºMicrofoft VBScript Regular Expressions 5.5 'Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As Ma ......

VB³ÌÐòÖÐʹÓýű¾Ö§³Ö

 ÕýÔÚ¿ª·¢Ð¡ÃØÊéϵͳ²¢²»¶ÏÌá¸ßÆäÖÇÄÜˮƽ,ÆäÖÐÓõ½µÄÊǽű¾Ö§³ÖµÄ¼¼Êõ
ËäÈ»Õⲿ·Ö²»ÊôÓÚ³õѧÕßʹÓÃ,È»¶øÓÐЩÈËÏëѧÕâ¸ö¶«¶«,ÕâÀï¾Í·¢~~~²¼³öÈ¥°É!
н¨Ò»¸ö±ê×¼exe¹¤³Ì(Standard EXE);
"¹¤³Ì"(Project)-->"²¿¼þ"(Components)
Ñ¡¶¨"Microsoft Script Control 1.0" ,λÖÃÊÇC:\WINDOWS\system32\msscript.ocx
Ìí ......

ÈçºÎÓÃvb²¥·Å»ÃµÆÆ¬

ÈçºÎÈÃ»ÃµÆÆ¬ÔÚ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. ......

vbÒÆ¶¯´°ÌåµÄ´úÂë

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 ......

VB±àдÍÐÅÌͼ±êʵÀý

VB±àдÍÐÅÌͼ±êÓÐÁ½¸öÒªµã£¬Ò»ÊÇʹÓà Shell_NotifyIcon º¯ÊýÏÔʾͼ±ê£»¶þÊÇÏòϵͳע²á TaskbarCreated ÏûÏ¢£¬ÒÔ±ãexplorer±ÀÀ£Ê±»Ö¸´ÍÐÅ̵Äͼ±ê¡£
Ê×ÏÈÐèÒªÔö¼ÓÒ»¸öÄ£¿éÎļþ£¬ÄÚÈÝÈçÏ£º
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ