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´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
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 ......
×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈαà¼: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐеļà¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾдµ½Á˵ÚÁù¸ö£¬½ñÌìдµãʲôÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖÆ°É¡£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡ÔÐͺ¯Êý¼ò ......
Ìí¼Ó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 ......