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

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:\License.xml")
Set xmlRoot = objXml.documentElement
xmlNode = xmlRoot.childNodes(0).Text
End Function


°ÑÒÔÉÏ´úÂë±à³É³ÉDLLÓÃASPµ÷Óã¬ÌáʾÌáʾÀàÐͲ»Æ¥Åä



ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!




Ïà¹ØÎÊ´ð£º

VB´°ÌåÎÊÌâ

ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.

ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6


VB cod ......

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......

¹ØÓÚVBÖеÄMDI×Ó´°Ìå²»ÄÜÒÔģʽ´°ÌåÏÔʾ

Private Sub cmdModify_Click()
    Dim iRet As Integer
    If dltUser.Text = "" Then
        MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly ......

ÓÃVB´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²»ÄÜÌí¼Ó¼Ç¼

ÓÃADO´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²¢Ìí¼ÓÁ˶à¸ö×Ö¶ÎÃû¡£
µ«ÏÖÔÚÎÊÌâÊÇ£¬²»ÄÜÏò¿Õ±íÖÐÌí¼Ó¼Ç¼¡£
ÿ´ÎÌí¼Ó¶¼»á³öÏÖ¡°BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡±

......

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

Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ