VBÖÐWebBrowser¿Ø¼þºÍform¼äÓа¼Í¹¸Ð
Ôõô²ÅÄÜÈÃËû¿´ÉÏÈ¥ÔÚÒ»¸öÃæÉÏÄØ,È¡Ïû°¼Í¹¸ÐÄØ
ÊÔÊÔÈÃWebBrowserÈ«ÆÁ
ÎÒÖ»ÏëÏÔʾһ³¤Ìõ
¸Õ¿´µ½ÓÐÈËÓÃscrilpet¿Ø¼þ£¬Ëµ±È½Ïƽ»¬£¬²»ÖªµÀÔõôÌí¼ÓÕâ¸ö¿Ø¼þ£¬´úÂëÊÇʲô£¿
Me.Appearance = 0
Õâ¸ö´úÂëÒª¼ÓÔÚÄÄÀïÄØ£¿
VB code:
Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "about:blank"
DoEvents
With Me.WebBrowser1.Document
.writeln "<!DOCTYPE HTML PUBLIC " & Chr(34) & "-//W3C//DTD HTML 4.01 Transitional//EN " & Chr(34) & ">"
.writeln "<html>"
.writeln "<style type=text/css>"
.writeln "body {"
.writeln "border:0px;overflow:auto;"
.writeln "}"
.writeln "</style>"
.writeln "<body>"
.writeln "ÎÒ°®ÄãÖйú"
.writeln "</body>"
.writeln "</html>"
End With
End Sub
Èç¹ûÏë¼ÓÔØÆäËüÒ³£¬¿ÉÒÔÓÃIFRAME¿Ø¼þ¡£
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
СµÜ±àÁËÒ»¸öVB´°Ì壬ÔÚ´°ÌåÆô¶¯µÄʱºòµÃµ½Ò»¸öÊý×é¡£Õâ¸öÊý×é±äÁ¿Òª×÷Ϊ²ÎÊý´«µÝµ½DLLÖÐÈ¥£¬ÎÒ¸ÃÈçºÎÔÚVBºÍVCÖÐÉùÃ÷ÄØ£¿
ÁíÍ⣬µ÷ÓÃDLLÖеĺ¯Êý×îºóµÃµ½µÄ½á¹ûÔõô´«»ØVBÄØ£¿
СµÜ¸Õ¿ªÊ¼Ñ§VB£¬½ö½öÖªµÀº¯ÊýÈçºÎÔÚ ......
ÎÒÏëͨ¹ýµ¥Æ¬»ú¸øPC·¢ËÍdoubleÐ͵ÄÊý¾Ý£¬pc¶ËÓÃvb±àдµÄ£¬vbÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾ÝÄØ£¿ÔÚµ¥Æ¬»ú¶ËÎÒÊÇͨ¹ýÁªºÏÌ彫doubleÐÍÊý¾Ý·Ö³É8¸ö×Ö½Ú·¢¹ýÈ¥µÄ¡£
ÿ¸ö×ֽڵķ¢£¬È»ºóÔÙÆ´ÆðÀ´
ÆäʵÓÃVB±à³Ì£¬ÄãÈí¼þ¶¼¿É¿Ø£ ......