将文本内容添加到资源文件中,例如资源号是101的字符串调用 s = LoadResString(101)
Private Sub Command1_Click() Me.CommonDialog1.Filter = "*.txt|*.txt" Me.CommonDialog1.DialogTitle = "打開文本" Me.CommonDialog1.ShowOpen strname = Me.CommonDialog1.FileName Me.RichTextBox1.FileName = strnameEnd Sub
从自定义资源对话框里装入文本文件,然后如下:Private Sub Command1_Click() Dim a() As Byte, b As String a = LoadResData(101, "CUSTOM") b = StrConv(a, vbUnicode) Debug.Print b End Sub
s = LoadResString(101)
Me.CommonDialog1.Filter = "*.txt|*.txt"
Me.CommonDialog1.DialogTitle = "打開文本"
Me.CommonDialog1.ShowOpen
strname = Me.CommonDialog1.FileName
Me.RichTextBox1.FileName = strnameEnd Sub
Dim a() As Byte, b As String
a = LoadResData(101, "CUSTOM")
b = StrConv(a, vbUnicode)
Debug.Print b
End Sub