VBÖÐÔõÑù·ÖÅäÒ»´ó¿éÄÚ´æ
ÎÒÔÚVBÖÐÐèÒªµ÷ÓÃVCµÄDLL£¬ÆäÖÐÓÐÒ»¸ö½á¹¹ÌåÖк¬ÓÐÒ»¸öByteµÄÖ¸ÕëÀ´Ö¸ÏòÒ»´ó¿éµÄÄڴ棬ÎÒÏÖÔÚÒªÔÚ
VBÖзÖÅä³öÒ»´ó¿éµÄÄڴ棬Ȼºó°ÑÄÚ´æµÄÊ×µØÖ·´«¹ýÈ¥£¬ÎÒ¸ÃÔõÑù²Ù×÷°¡£¿
ÎÒÓ¦ÓÃ
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
À´·ÖÅäÄÚ´æ¿ÉÊÇ×ÜÊÇÌáʾÄÚ´æÒç³ö£¬ÎÒÐèÒª2048 * 1536 * 3Õâô´óµÄÒ»¿éÄÚ´æ¡£
Çë½ÌÒ»ÏÂÔõôÀ´²Ù×÷°¡£¬Ã»ÓнӴ¥¹ýVB£¬ÍøÉϲéÁ˰ëÌìҲûÓÐ×ÊÁÏ¡£
dim a(2048& * 1536& * 3&) as byte
dim i as long
i = varptr(a(0))
'i¾ÍÊÇÕâ¸öÊ×µØÖ·
ÄÚ´æµØÖ· £½ GlobalAlloc (0,2048& * 1536& * 3&)
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......