[ÇóÖú]VB¿Ø¼þ¡°²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀࡱµÄ´íÎó£¿
ÐÐ 46: ¿Ø¼þ SSTab2 µÄÀà TabDlg.SSTab ²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀà¡£
ÐÐ 450: ¿Ø¼þ SSTab1 µÄÀà TabDlg.SSTab ²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀà¡£
ÐÐ 486: ¿Ø¼þ lstview_Pos_1 µÄÀà MSComctlLib.ListView ²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀà¡£
ÐÐ 514: ¿Ø¼þ lstview_Pos_2 µÄÀà MSComctlLib.ListView ²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀà¡£
ÐÐ 542: ¿Ø¼þ lstview_Pos_3 µÄÀà MSComctlLib.ListView ²»ÊÇÒ»¸öÒѼÓÔØµÄ¿Ø¼þÀà¡£
Çë½Ì¸ßÊÖÈçºÎ½â¾ö£¿
ÖØÐÂ×¢²áÒ»ÏÂÕâ¸öocx
regsvr32 c:\windows\system32\****.ocx
ÍùÍùµ±ÎÒÃÇÒÆ¶¯¶¯ÁËVBµÄÔ´ÎļþËùÔÚĿ¼ºó£¬Òƶ¯Ç°ºóocx¼ÓÔØµÄλÖÃÓб仯¾Í»á³öÏÖÉÏÃæËù˵µÄÇé¿ö£¬Ò»°ã˵À´£¬´Ó¹¤³Ì---²¿¼þ--ÕÒµ½Ô¿Ø¼þ----¹´Ñ¡---È·¶¨¾ÍÓ¦Äܽâ¾öÎÊÌâ¡£
¿Ø¼þûÓÐ×¢²á£¬»òÕ߿ؼþ²»´æÔÚ£¡
vb¾³£ÒýÓÃ×Ô¼º±àдµÄactive exe,active dll,ÆäËûÏÂÔØocx,ÔÚÏµÍ³ÖØ×°ºó,×¢²áµÄ¿Õ¼ä,Àà¾Í»áûÓÐ×¢²á,Ìáʾ²»ÄܼÓÔØ¿Õ¼ä,ÀàµÈ.
ÖØÐÂÔÚ²¿¼þ,ÒýÓÃÖÐ,¼ÓÔØ,ÒýÓÃÐèÒªµÄ¿Ø¼þ
ϵͳËÑË÷¼ÓÔØ¿Ø¼þ,active exe/dllËÑË÷×¢²á±í,ϵͳĿ¼,³ÌÐòËùÔÚĿ¼,ϵͳ±äÁ¿Ö¸¶¨µÄ·¾¶µÈ..
ÓùÜÀíԱȨÏÞ×¢²áÒ»ÏÂÏàÓ¦¿Ø¼þ.
ÄãµÄ¹¤³ÌûÄÜÕÒµ½ËùÐèÒªµÄ¿Ø¼þ£¬Õâ¸öÎÊÌâ¿ÉÄÜÊÇÄãµÄ¿Ø¼þ·¾¶²»¶Ô£¬»òÕßûÓÐ×¢²áÒýÆðµÄ
Ïà¹ØÎÊ´ð£º
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......