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

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&)


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

VBµ÷ÓÃË®¾§±¨±íDesign ƽ·²ÌáʾMemoryFullÎÊÌâ

  ¸÷λ´óϺ£º
        ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

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