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

VB³ÌÐòÔ±ÈçºÎѧϰCOMµÄ֪ʶ£¬Çë¸ßÈËÖ¸µãÒ»¶þ£¿

ÎÒÏë×Ô¼º¶¨ÖÆÒ»¸öä¯ÀÀÆ÷£¬½á¹û·¢ÏÖ¼òµ¥ÉèÖÃWebBrowser¿Ø¼þ²»ÄÜ´ïµ½ÎÒµÄÐèÇ󣬽á¹ûÎÒÔÚÂÛ̳Çë½Ì£¬ÓÐÈËÖ¸µãÁËÈçÏ´úÂ룺

ÕâÀïÃæÓõ½Á˺ܶÔCOM½Ó¿ÚµÄ֪ʶ£¬ÈçDispatch Invoke ÕâЩӦµ±ÊÇCOMµÄ½Ó¿Ú°É¡£ÎÒʵÔÚ¿´²»¶®£¬ÎÒÏëÇëÎÊ£º
1¡¢Ò»¸öVB³ÌÐòÔ±Ïë¿´¶®ÏÂÃæµÄ´úÂ룬ÐèҪѧϰЩÄÄ·½ÃæµÄ֪ʶ£¿
2¡¢ÏÖÔÚÄܲ鵽µÄCOM½Ó¿ÚÏêϸһµãµÄ×ÊÁÏ£¬Ëƺõ¶¼ÊÇÓÃC++À´½²½âµÄ¡£ÎÒ¶ÔC++ѧ¹ýһЩÈëÊÖµÄ֪ʶ£¬µ«µÄÈ·Ö»ÊÇÒ»Öª°ë½â£¬ÓÐûÓÐʲôרÃÅÕë¶ÔVB³ÌÐòÔ±µÄÕâ·½ÃæµÄÊ鿯»ò×ÊÁϿɷñÍÆ¼öһϣ¿
3¡¢COM¼¼Êõ³öÏÖÒ²ÓкöàÄêÁË£¬²»ÖªµÀ´Ó¼¼ÊöÇ÷ÊÆÉÏ˵£¬»¹ÖµµÃÉîÈëѧϰÂð£¿



STDMETHODIMP CBrowserView::XDispatch::Invoke(
DISPID dispid, REFIID, LCID, unsigned short /*wFlags*/,
DISPPARAMS* /*pDispParams*/, VARIANT* pvarResult,
EXCEPINFO*, unsigned int*)
{
switch (dispid)
{
case DISPID_AMBIENT_DLCONTROL:
pvarResult->vt = VT_I4;
pvarResult->lVal = 0;
if (m_BrowserView->m_bShowImages)
{//Èç¹ûÐèÒªÏÔʾͼƬ
pvarResult->lVal |= DLCTL_DLIMAGES;
}
if(m_BrowserView->m_bShowVideos)
{//Èç¹ûÐèÒªÏÔʾÊÓÆµ
pvarResult->lVal |= DLCTL_VIDEOS;
}
if(m_BrowserView->m_bShowBgSounds)
{//Èç¹ûÐèÒª²¥·Å±³¾°ÒôÀÖ
pvarResult->lVal |= DLCTL_BGSOUNDS;
}

if(!m_BrowserView->m_bPlayFlash)
{//Èç¹û²»²¥·Åflash£¨½ûÖ¹Ö´ÐÐOCX¿Ø¼þ)
pvarResult->lVal |= (DLCTL_NO_RUNACTIVEXCTLS | DLCTL_NO_DLACTIVEXCTLS | DLCTL_SILENT);
}
break;

default:


Ïà¹ØÎÊ´ð£º

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

VBÔõÃ´ÖÆ×÷½ø¶ÈÌõ£¿ - VB / ¿Ø¼þ

µã»÷°´Å¥ºóµ¯³ö½ø¶ÈÌõ´°¿Ú£¬ÒªÔÚ30%µÄʱºòÍ£¶Ù1Ãë 40%Í£¶Ù2Ã룬Ȼºó×ßÍê½ø¶ÈÌõºóÌáʾ±£´æ³É¹¦£¡
ÇëÎÊÈçºÎд£¿
½ø¶ÈÌõÓÃÄǸöVB6×Ô´øµÄprogressbar¿Ø¼þ,¶¨Ê±ÓÃtimer
ÎÒÔÚ±¾Õ¾ÕÒÁËÕ⼸¸öÌû,¹À¼Æ¹»ÄãÓÃ
http://topic ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ