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£´æ!
¶÷,ͬÒâ
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ÖÐµÄ ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÎÒÏëÔÚÊó±êÒÆÖÁÃüÁî°´Å¥ÉÏ£¬µ¯³öÒ»¸öÌáʾ¿ò£¬µ«²»ÖªÈçºÎŪ£¬Çë×ö¸öʾÀý
tooltip
лл£¡ÎÒÊÇÐÂÊÖ£¬ÄÜ˵µÃÏêϸЩÂð£¿×îºÃÓиöÀý×Ó
Command1.ToolTipText="xxx"
ÎÒÔÚcommandÖп´µ½ÕâÑù²»ÄÜʵÏÖ ......
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
......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......