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

Ôõ樣優»¯VB³Ìʽ

ÓÉÓÚ´°體µÄÔö¶à£»
Ã÷顯¸Ð覺³Ìʽ運ÐÐÂýÁË£»
Ôõ樣優»¯£»
ÓÅ»¯ÄãµÄ³ÌÐòÂß¼­£¬±ÈÈ罫²»ÓõĴ°Ì弰ʱUnload£¬½«²»ÓõĶÔÏó¼°Ê±ÊÍ·Å

ÒýÓÃ
ÓÅ»¯ÄãµÄ³ÌÐòÂß¼­£¬±ÈÈ罫²»ÓõĴ°Ì弰ʱUnload£¬½«²»ÓõĶÔÏó¼°Ê±ÊÍ·Å

Exit Sub

ÓÐЩ´°Ìå¿ÉºÏ²¢£¬ÓÐЩ´°Ìå¿ÉÓÃÀà»òÄ£¿é´úÌæ£¬´°Ìå´úÂ뾡Á¿²»ÓöàÖØÑ­»·µÈ¡£

歸納ÈçÏ£º
1.簡»¯³ÌÐò邏輯£»
2.釋·Å²»ÓÃ資Ô´£»
還ÓÐ嗎£¿

ÓÅ»¯Ö´ÐгÌÐòµÄ¼ÆËã»úµÄ³ï»®£¬CPU£¬memery ETC

1¡¢ÉÙÓô°Ì壬ʹÓÃSSTab¿Ø¼þ´úÌæ¡£
2¡¢ÓÅ»¯´úÂ룬¼õÉÙ¶ÁдӲÅÌµÄÆµÂÊ¡£


¸ÄÓûã±à¡£¡£

歸納ÈçÏ£º
1.簡»¯³ÌÐò邏輯£»
2.釋·Å²»ÓÃ資Ô´£»
3. ÉÙÓô°Ì壬ʹÓÃSSTab¿Ø¼þ´úÌæ;
4.¼õÉÙ¶ÁдӲÅÌµÄÆµÂÊ;
還ÓÐ嗎£¿

ÒýÓÃ
1¡¢ÉÙÓô°Ì壬ʹÓÃSSTab¿Ø¼þ´úÌæ¡£
2¡¢ÓÅ»¯´úÂ룬¼õÉÙ¶ÁдӲÅÌµÄÆµÂÊ¡£


綠É«´ú碼²¿·Ö£»
sql ²é詢select£¬²åÈëinsert£¬¸üÐÂupdate etcÉÙÓÃ

Õâ¸öÎÊÌâ,¼ûÈʼûÖÇÁË...Ò»Á½¾ä»°ÅÂÊÇ˵²»Çå³þ

²»ÊǰÉ,ÎÒÕâID²»ÊÇÔÚÁ½ÄêǰÔÚÕâ±»·âÁËô?Ôõô»¹·¢µÃ³öÀ´...

ÒýÓÃ
ÓÉÓÚ´°體µÄÔö¶à£»
Ã÷顯¸Ð覺³Ìʽ運ÐÐÂýÁË£»
Ôõ樣優»¯£»

ÏÖÔڵļÆËã»ú£¬¶¯Ôò1G´æ£¬2¡¢3GµÄË«ºËCPU,ÄãÄÜ¿ª¶àÉ


Ïà¹ØÎÊ´ð£º

VB±êÌâÀ¸ ¶¯Ì¬ÏÔʾ

ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ

¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿

Ôõô°ì 

±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå

²»»á°É£¿
VB code:
Private Su ......

VB ÊôÐÔµÄʹÓÃÎÞЧ

Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......

VB¶ÁÈ¡XMLµÄÎÊÌâ

VB code:

Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......

vbÖпÉÑ¡²ÎÊýµÄÎÊÌâ

function multi(a as integer,b as integer,optional third)
  dim n as integer
  n = a * b
if not ismissing (third) then
    n = n * thid
end if
multi = n
end fu ......

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ