Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µ÷ÓÃwordºó³öÏÖµÄÎÊÌâ

ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)

È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc

ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË

½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ


Õâ¸öÒªÔõà ......

ΪºÎÓÃvb api»ñÈ¡µÄ´°¿Ú±êÌâΪ¿Õ£¬¶øSPY++È´¿ÉÒÔ

VBÖÐcallbacke function ÈçÏ£º
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim slength As Long, WndTitle As String ' title bar text length an ......

VB------->C#

C# code:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......

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

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

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

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

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ