ÎÒµÄ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²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
login.aspx.vb: Public ReadOnly Property nameT() As String Get Return TextBox1.Text &nb ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö ´úÂëÓ¦¸ÃÔõô´ò£¿ LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
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µÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......