关于label的问题,急!

Question

你是怎么读取的？Lable不能显示两种颜色
可以通过在PictureBox上绘制的方法实现

Answer 1

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)

Answer 2

'我用以下代码测试，无论文本文件是单行还是多行都可以正常显示
'是不是你的读取文本内容的代码有问题
'影响label显示的属性:autosize和wordwrapPrivate Sub Command1_Click()
  Dim filehandle
  Dim temp As String, strline As String
  filehandle = FreeFile
  Open "c:\temp\春晓.txt" For Input As #filehandle
  Do While Not EOF(filehandle)
  Line Input #filehandle, strline
  temp = temp + strline + vbCrLf
  Loop
  Close #filehandle
  Label1.Caption = temp
End Sub

Answer 3

不能用Input读取
它会丢掉一些数据
用Binary方式最好

Answer 4

可能文件中含有回车
你将label的autosize属性设为true
label不能实现两种前景色，你可以用其他控件实现，如richtextbox、picturebox等控件实现

Answer 5

文件中含有回车或为null的字符，总之在联接处看一下。