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ÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õʼ×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
VB code: 'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......
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 Chec ......