vb ´ò¿ªrtfÎļþ
¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕɫ֮ÀàµÄ£¬Çë½Ì~
RichTextBox1.LoadFile "test.rtf" RichTextBox1.FileName = App.Path & "\test.rtf" Ó¦¸ÃÊÇ RichTextBox1.LoadFile "c:\1.txt", 0 ÕâÀïµÚ2¸ö²ÎÊý¾ÍÊÇÖ¸¶¨Îı¾µÄ¸ñʽ,¿ÉÒÔÊÇ0ºÍ1,Ê¡ÂÔÔòÊÇ0,ÄÇôÒÔRTF¸ñʽ´ò¿ª,Èç¹ûÊÇ1ÄÇôÒÔTXTÎı¾¸ñʽ´ò¿ª,ÀàËÆÊôÐÔ»¹ÓÐ SaveFile ²ÎÊýÒ»Ñù!Òâ˼Ҳ²î²»¶à,Ö»²»¹ýÊDZ£´æ! ÒýÓà Ӧ¸ÃÊÇ RichTextBox1.LoadFile "c:\1.txt", 0 ÕâÀïµÚ2¸ö²ÎÊý¾ÍÊÇÖ¸¶¨Îı¾µÄ¸ñʽ,¿ÉÒÔÊÇ0ºÍ1,Ê¡ÂÔÔòÊÇ0,ÄÇôÒÔRTF¸ñʽ´ò¿ª,Èç¹ûÊÇ1ÄÇôÒÔTXTÎı¾¸ñʽ´ò¿ª,ÀàËÆÊôÐÔ»¹ÓÐ SaveFile ²ÎÊýÒ»Ñù!Òâ˼Ҳ²î²»¶à,Ö»²»¹ýÊDZ£´æ! ¶÷,ͬÒâ 2Â¥¡¢3Â¥Á½ÖÖ·½Ê½¶¼¿ÉÒÔ ×¢ÒâһϠÎÒÒª´ò¿ªµÄÊÇRTF¸ñʽµÄ ²»ÊÇTXT¸ñʽµÄ ~~~ 2Â¥´ò¿ªµÄÊÇÂÒÂ룬3Â¥´ò¿ªµÄÊÇû¸ñʽµÄ ÒòΪÊÇTXT ÎÒÕâÀï²âÊÔÕý³£ ¸øÄãÒ»¸öÔ´´úÂë¿´ÓÐʲô²î±ð ´ò¿ªrtfÎļþ£¬²éÕÒºÍÌæ»»ÀïÃæµÄÎļþ£¨VB6.0Ô´´úÂë±àд£© Õâ¸ö¿´¹ýÁË ÎÒ»¹¿´ÁËÏÂÍøÉÏÓÐÈË˵¸úword°æ±¾ÓйØÏµ ÎÒµÄÊÇ2003 ÓйØÏµÂ𣿠ÎÒµÄÒ²ÊÇ2003 ÄÇΪʲôÎҵĴò¿ª µÄÊÇÂÒÂëÄØ ÎҵĴúÂë Private Sub Command1_Click() RichTextBox1.FileName = App.Path & "\test.rtf" End Sub Õâ¸öÎÒд¹ý£¬£¡£¡¡¡ RichTextBox1.LoadFile "c:\1.txt", 0 <
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
form2,form3¶¼·Ö±ðÓÐÒ»¸ölabel1ÊôÐÔÊÇÒ»Ñù Private Sub Command1_Click() Dim lbl As Label if combo1.text="1" then lbl = Form2.Label1 else lbl = Form3.Label1 end if
......
ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ, Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click &nbs ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> " ´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......