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

VBÖÐÈçºÎÉùÃ÷¼°Ê¹ÓöàάÊý×é,¶à²ãÊý×é¼°¶¯Ì¬Êý×é

ÉùÃ÷¹Ì¶¨´óСµÄÊý×é  
  ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÄÄÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º    
  ½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà   Public   Óï¾äÉùÃ÷Êý×é¡£  
  ½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà   Private   Óï¾äÉùÃ÷Êý×é¡£  
  ½¨Á¢¾Ö²¿Êý×飬ÔÚ¹ý³ÌÖÐÓà   Private   Óï¾äÉùÃ÷Êý×é¡£    
  É趨ÉÏÏÂ½ç  
  ÉùÃ÷Êý×éʱ£¬ÔÚÊý×éÃûÖ®ºó¸úÒ»¸öÓÃÀ¨ºÅÀ¨ÆðÀ´µÄÉϽ硣ÉϽ粻µÃ³¬¹ý   Long   Êý¾ÝÀàÐ͵ķ¶Î§£¨-2,147,483,648   µ½   2,147,483,647£©¡£ÀýÈ磬ÏÂÁÐÊý×éÉùÃ÷¿É³öÏÖÔÚÄ£¿éµÄÉùÃ÷¶Î£º  
   
  Dim   Counters   (14)   As   Integer                   '15   ¸öÔªËØ¡£  
  Dim   Sums   (20)   As   Double                         '21   ¸öÔªËØ¡£  
   
  Ϊ½¨Á¢¹«ÓÃÊý×飬ֱ½ÓÓà   Public   È¡´ú   Dim¡£  
   
  Public   Counters   (14)   As   Integer  
  Public   Sums   (20)   As   Double  
   
  ÔÚ¹ý³ÌÖ®ÖÐͬÑùµÄÉùÃ÷ʹÓà   Dim£º  
   
  Dim   Counters   (14)   As   Integer  
  Dim   Sums   (20)   As   Double  
   
  µÚÒ»¸öÉùÃ÷½¨Á¢ÁËÒ»¸öÓÐ   15   ¸öÔªËصÄÊý×飬ÆäË÷ÒýºÅ´Ó   0   µ½   14   ¡£µÚ¶þ¸öÉùÃ÷½¨Á¢ÁËÒ»¸öÓÐ   21   ¸öÔªËصÄÊý×飬ÆäË÷ÒýºÅ´Ó   0   µ½   20   ¡£È±Ê¡µÄϽçΪ   0¡£  
   
  ΪÁ˹涨Ͻ磬Óùؼü×Ö   To   ÏÔʽÌṩϽ磨Ϊ   Long   Êý¾ÝÀàÐÍ£©£º  
   
  Dim   Counters   (1   To   15)   As   Integer  
  Dim   Sums &


Ïà¹ØÎĵµ£º

VBÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾Ô­ÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......

VBÏÔʾ͸Ã÷FLASHЧ¹û

VBÏÔʾ͸Ã÷FLASHЧ¹û
  ÑÝʾЧ¹û£º
 
    ´úÂëÈçÏ£º
¹«¹²ÉùÃ÷ÇøÓò
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......

VBÎÞËù²»ÄÜÖ®Áù£º¶Ô³ÌÐòÔËÐеļà¿Ø ת

×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈα༭: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐеļà¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾ­Ð´µ½Á˵ÚÁù¸ö£¬½ñÌìдµãʲôÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖÆ°É¡£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡Ô­Ðͺ¯Êý¼ò ......

VBµÇ½163ÓÊÏä

Ìí¼Ó2¸ötext£¬Ò»¸öcommand£¬Ò»¸ö WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ