Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õʼ×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB ²éѯÓï¾ä³ö´í

VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ