Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VB Êó±êÒÆ¶¯Ê¼þ

ÎÒÏëÔÚÊó±êÒÆÖÁÃüÁî°´Å¥ÉÏ£¬µ¯³öÒ»¸öÌáʾ¿ò£¬µ«²»ÖªÈçºÎŪ£¬Çë×ö¸öʾÀý

tooltip

лл£¡ÎÒÊÇÐÂÊÖ£¬ÄÜ˵µÃÏêϸЩÂð£¿×îºÃÓиöÀý×Ó

Command1.ToolTipText="xxx"

ÎÒÔÚcommandÖп´µ½ÕâÑù²»ÄÜʵÏÖ ......

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
......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ