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!
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.
ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ
Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ
ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly ......
ÓÃADO´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²¢Ìí¼ÓÁ˶à¸ö×Ö¶ÎÃû¡£
µ«ÏÖÔÚÎÊÌâÊÇ£¬²»ÄÜÏò¿Õ±íÖÐÌí¼Ó¼Ç¼¡£
ÿ´ÎÌí¼Ó¶¼»á³öÏÖ¡°BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡±
......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......