VB6.0å¯ä»¥ä½¿ç¨TextBokæ§ä»¶æRichTextBoxæ§ä»¶å®ç°å°è¯»å ¥ææ¬æ件æ¾ç¤ºäºæ§ä»¶ä¸ã
TextBox æ§ä»¶ææ¶ä¹ç§°ä½ç¼è¾å段æè ç¼è¾æ§ä»¶ï¼æ¾ç¤ºè®¾è®¡æ¶è¾å ¥çç¨æ·è¾å ¥çãæè¿è¡æ¶å¨ä»£ç ä¸èµäºæ§ä»¶çä¿¡æ¯ã
为äºå¨ TextBox æ§ä»¶ä¸æ¾ç¤ºå¤è¡ææ¬ï¼è¦å° MultiLine å±æ§è®¾ç½®ä¸º
Trueãå¦æå¤è¡ TextBox 没ææ°´å¹³æ»å¨æ¡ï¼é£ä¹å³ä½¿ TextBox è°æ´äºå¤§å°ï¼ææ¬ä¹ä¼èªå¨æ¢è¡ã为äºå¨
TextBox ä¸å®å¶æ»å¨æ¡ç»åï¼éè¦è®¾ç½® ScrollBars å±æ§ã
å¦æææ¬æ¡ç MultiLine å±æ§è®¾ç½®ä¸º True èä¸å®ç
ScrollBars 没æ设置为 None (0)ï¼åæ»å¨æ¡æ»åºç°å¨ææ¬æ¡ä¸ã
å¦æå° MultiLine å±æ§è®¾ç½®ä¸º Trueï¼åå¯ä»¥å¨ TextBox å
ç¨ Alignment å±æ§è®¾ç½®ææ¬ç对é½ãå¦æ MultiLine å±æ§æ¯ Falseï¼å
Alignment å±æ§ä¸èµ·ä½ç¨ã
代ç å®ä¾ï¼
Private Sub Command1_Click()
Dim strj() As String
' 设置âCancelErrorâ为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置æ å¿
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置è¿æ»¤å¨
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' æå®ç¼ºççè¿æ»¤å¨
CommonDialog1.FilterIndex = 2
' æ¾ç¤ºâæå¼â对è¯æ¡
CommonDialog1.ShowOpen
' æ¾ç¤ºéå®æ件çåå
Debug.Print CommonDialog1.FileName
Str = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
Exit Sub
ErrHandler:
Exit Sub
End Sub
RichTextBox æ§ä»¶ä¸ä»
å
许è¾å
¥åç¼è¾ææ¬ï¼åæ¶è¿æä¾äºæ å TextBox
æ§ä»¶æªå
·æçãæ´é«çº§çæå®æ ¼å¼ç许å¤åè½ã
ä¸è¿°ä»£ç åæ ·éåRichTextBoxæ§ä»¶ä½¿ç¨