求教

Question

如果把C:\11.txt为 资源管理器中的"CUSTOM"  101;
如何在LABEL控件中显示?或在TEXTBOX控件中显示??
Private Sub Label1_Click()
   Label1.Caption = LoadResData(101, "CUSTOM")
    
End Sub出现的是乱码
Private Sub Text1_Change()
  Text1.Text = LoadResData(101, "CUSTOM")
End Sub
空白

Answer 1

VB的String是Unicode编码格式的
而一般文本文件是ANSI+DBCS编码格式的
要做格式转换操作StrConv(LoadResData(101, "CUSTOM"), vbUnicode)

Answer 2

谢谢zyl910(910：分儿，我又来了！) 试了一下:
Private Sub Label1_Click()
   Label1.Caption = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)End Sub
能显示,但要用鼠标点一下才显示,这是什么原因呀?Private Sub Text1_Change()
  Text1.Text = LoadResData(101, "CUSTOM")
End Sub
还是空白

Answer 3

Private Sub Text1_Change()
   Text1.Text = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
End Sub还是空白

Answer 4

我又试了一下,
Private Sub Text1_Change()
   Text1.Text = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
End Sub
用鼠标点不行,要用键盘的空格,TAB 字母,数字键在TEXT控件上点才反映出来,这是为什么呀?

Answer 5

Click事件是点击后触发的事件
Change事件是文本修改后触发的事件你本来就是这样写代码的
自然出现这种现象Windows编程最重要的一点就是搞清楚事件

Answer 6

是的,我自己后来发现改了Private Sub Form_Load()
       Label1.Caption = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
       Dim bArr()   As Byte, S    As String
       bArr = LoadResData(101, "CUSTOM")
       S = StrConv(bArr, vbUnicode)
       Text1.Text = S
End Sub