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

VCдµÄÒ»¸öCOM£¬VBÀ´µ÷Ó㬲ÎÊý´«µÝÓÐÎÊÌâ

ÎÒµÄVC OCXÖÐÓÐ Ò»¸ö½Ó¿Ú£¬Õâ¸ö½Ó¿ÚÓÐÒ»¸ö²ÎÊýÊÇÐèÒª·µ»ØÒ»¸öÄÚ´æÎļþµÄ£¬ºÜ´ó£¬´ó¸ÅÓÐ2M×óÓÒ£¬ÏÖÔÚÎÒÏëͨ¹ýVBµ÷ÓÃÕâ¸ö½Ó¿Ú°ÑÕâ¸öÎļþ ´«µÝ³öÀ´£¬£¬ÏÈÊÇÉùÃû½Ó¿Ú²ÎÊýÀàÐÍΪBSTR*£¬ºÃ²»ÈÝÒ׸㶨ÁË£¬µ«ÊÇ´«µÝ³öÀ´µÄÊý¾Ý²»¶Ô£¬¸öÈ˸оõËûÊÇ°ÉÕâ¸ö2½øÖƵÄÎļþÁ÷ת»»³ÉUNICODEÁË£¬µ«ÊÇÎÒÓÃVBµÄSTRCONVת»»²»¹ýÀ´£¬ºóÀ´ÓÖÓÃVARIANTÀàÐ͵ģ¬µ«ÊÇÁ¬Äڴ涼²»ÈòÙ×÷ÁË


1.ÈçºÎÈÃOCXÖд«µÝ³öÀ´µÄ²ÎÊýÊÇÕýÈ·µÄ2½øÖÆÁ÷£¬¶ø²»ÊǾ­¹ýunicodeת»»¹ýÀ´µÄ
2.µ½µ×¸ÃʹÓÃÉùÃûÊý¾ÝÀàÐ͵IJÎÊý
BSTR*²»ÐУ¬Óöµ½0»á½Ø¶Ï
ÓÃ IStream ½Ó¿Ú

ÒýÓÃ
BSTR*²»ÐУ¬Óöµ½0»á½Ø¶Ï
ÓÃ IStream ½Ó¿Ú

up

ÎÒÓõÄmemcpy£¬½Ø¶Ï²»½Ø¶Ï¶ÔÎÒûÓÐÓ°Ïì°¡£¬ÎÒ¸Õ²ÅÓÃVC²âÊÔÁËһϣ¬Ã»ÓÐÉÏÊöunicodeת»»µÄÎÊÌ⣬ÄѵÀVB¾ÍÕâôÀ¬»ø£¿£¿£¿

ÒýÓÃ
ÎÒÓõÄmemcpy£¬½Ø¶Ï²»½Ø¶Ï¶ÔÎÒûÓÐÓ°Ïì°¡£¬ÎÒ¸Õ²ÅÓÃVC²âÊÔÁËһϣ¬Ã»ÓÐÉÏÊöunicodeת»»µÄÎÊÌ⣬ÄѵÀVB¾ÍÕâôÀ¬»ø£¿£¿£¿

ÎÊÌâ³öÔÚÄãµÄ½Ó¿Ú²ÎÊýÀàÐÍ£¬¼´Ê¹ÄãʹÓÃÁËmemcpyÒ²Ò»Ñù¡£

Â¥ÉÏÄãûÓп´Ã÷°×ÎÒµÄÒâ˼°É£¬ÎÒÓÃVCÒѾ­²âÊÔͨ¹ýÁË

ʹÓÃbstrµÄ»°£¬»á×Ô¶¯×ª³ÉunicodeµÄ£¬ÒªÃ´base64Ò»ÏÂ
»òÕßÓÃVARIANTµÄSafeArray


base64£¿ÔÚVCÀïÍ·»¹ÊÇVBÀïÍ·°¡ °²È«Êý×éÕâôÓ𡣬Äܲ»ÄܾßÌåµã£¬ÒòΪocxµÄ½Ó¿Ú²ÎÊýÒ²¾ÍÄÇЩ£¬ºÃÏñûÓÐʲô°²È«Êý×éµÄÀàÐÍ°É£¿

base64 ±àÂë°Ñ¶þ½øÖÆת³É×Ö·û´®
VARIANTÀïµÄÊý×éÔÚvcʱͨ¹ýsafearrayʹÓõģ¬vbÔõôÓÃÎÒÒ²²»ÖªµÀ£¬ºÇºÇ

vcµÄsafearray²Ù×÷
long ReviewDocument::getMeasureBinData(VARIANT* aData)
{


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

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 ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ