Private Sub Command1_Click()
Open App.Path & "\°æ±¾ËµÃ÷.txt" For append As #1
Print #1, Text1.Text
Close #1 '¹Ø±Õ´ò¿ªµÄÎļþ
End Sub
Private Sub Form_Load()
Dim x As String
Open App.Path & "\1.txt" For Input As #1
Input #1, x
text ......
1.ÈçÌâtext¡¢webbrowserµÈ±ê×¼¿Ø¼þµÄ²Ëµ¥ÓÒ¼ü²Ëµ¥»»·ô
2.ͬʱ È¡µÃ´°ÌåÖÐwebbrowserµÄ¾ä±ú
1. ÓÒ¼ü²Ëµ¥ÊÇϵͳ·ç¸ñ£¬ÔÚ xp ϾÍÊÇ xp ·ç¸ñµÄ¡£
2. http://hi.baidu.com/xa87/blog/item/99fce98b550cc07b9f2fb4b9.html
vb±¾ÉíûÓл»·ô,ÊÇϵͳµÄ·ç¸ñʹȻ.
ҪʵÏÖ×Ô¼ºµÄ·ç¸ñ,¿ÉÒÔ×öÒ»¸ömenu,×Ô¼º¶¨ÒåÀïÃæµ ......
VB´úÂ룺
Loop Until k = 3 Or UBound(datavalue) > 11
»úÆ÷ÈËת¹ýÀ´µÄC#´úÂ룺
while (!(k == 3 | Information.UBound(datavalue) > 11));
ÎÊÌâÊÇ£ºµ÷ÊÔµÄʱºò³öÏÖ¡°¡°UBound¡±·½·¨Ã»ÓвÉÓá°1¸ö²ÎÊýÖØÔØ¡±¡±.Êó±ê·ÅÔÚ¡°¡°UBound¡±ÉϳöÏÖµÄÌáʾÊÇ¡¶int.Information.UBound
(Arr ......
VB´úÂë:
MSComm1.CommPort = CShort(VB6.Format(strCommPort))
»úÆ÷ÈËת»»³ÉµÄC#´úÂ룺
MSComm1.CommPort = short.Parse(Strings.Format(strCommPort, ""));
ÎÊÌâÊÇ µ÷ÊÔµÄʱºòÌáʾ¡°ÊäÈë×Ö·û´®²»ÕýÈ·¡±£¬ÎÒ¸ÃÔõô¸Äд°¡£¬Çó¸ßÊÖ°ïÏÂæ£¬Íò·Ö¸Ð¼¤£¡£¡£¡
½«×Ö·û´®×ª»»ÎªShort
Â¥Ö÷×Ô¼ºÈ¥ ......
ÔÚ6.0ÖÐÖ±½Óн¨¾Í¿ÉÒÔ½¨Á¢ActiveX.EXE¹¤³Ì£¬ÏÖÔÚÓõÄÊÇVS2008ÕÒÁËÀϰëÌ춼ûÓÐÕÒµ½£¬ÇëÎÊÒ»ÏÂÔõô½¨Á¢¡£
ÎÒÔÚ¿´ËïöεÄÉîÈëÏê½âVC++µÚ18¿Î£¬ÀïÃæÒªÓÃVBÀ´²âÊÔVC×öµÄActiveX¿Ø¼þ£¬ÏÖÔÚÁ¬¸ö¹¤³Ì¶¼Ã»½¨ºÃ£¬»¹Íû¸÷λ°ï°ïæ°¡
ÓÃVC6´´½¨£¬ÔÚVS2008ת»»¡£
ûÓа취¡£
(µ«ÊÇÎÒºÃÏñ²»¼ÇµÃVC6¿ÉÒÔÕâô×ö£¬ÊÇVB6°É)
......
ǰÌáÊÇ£¬iframeûÓж¨ÒåID£¬¶øÇÒ³¢ÊÔ¹ýͨ¹ýд°¿Ú´ò¿ªSRCÄÚÈÝ£¬µ«Ìáʾ·Ç·¨Ìá½»Ò³Ãæ£¬ÄÇÎÒ¸ÃÔõÑù»ñÈ¡ÀïÃæµÄÄÚÈÝÄØ£¿Ð»Ð»
¹Ø×¢
ÓÃÁËʲôä¯ÀÀÆ÷£¿×Ô¼ºÏÂÔØµÄ»°£¬È¥·»º´æ¾Í¿ÉÒÔÁË¡£
ÒýÓÃ
ÓÃÁËʲôä¯ÀÀÆ÷£¿×Ô¼ºÏÂÔØµÄ»°£¬È¥·»º´æ¾Í¿ÉÒÔÁË¡£
ÓÃwebbrowserÄØ?
ÒýÓÃ
ÍøÒ³´úÂ룺
HTML code <HT ......