VB音标显示(追加悬赏分)

Posted 2023-03-09

我用Visual Basic6.0 做了一个背单词的软件,把音标存在Excel中,可到了vb中显示出来都是"?", 该怎么办?
我看有地方说要用API
Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
为什么输上去总是出问题?

要想在应用程序（如VB程序）中显示其他字体，必须先安装字体文件（.FON，.FNT，.TTF等格式）。直接读取excel文件中的音标是不会显示的。
具体方法：打开控制面板—字体，点文件—安装新字体，在打开的对话框中选择你解压后的字体所在的位置（先选择驱动器，然后再选择文件夹），在字体列表中选择你要安装的字体（一定要选），确定就行了。这种方法可用程序实现：
Call AddFontResource("xxx.ttf") 'xxx为字体文件名
Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

另外，在VB的text中显示其他字体的例子：
text1.Font=“font.ttf” '设置字体
text1.text="xxx"

还有一个有用的函数chr，比如Chr(-24082)为五角星，此函数用于得到双字节字符集（DBCS：double-byte character set）代码对应的字符。

以上信息希望对你有帮助。 参考技术A AddFontResource

VB声明
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
说明
在Windows系统中添加一种字体资源。添加完毕后，该字体即可由任何Windows应用程序调用
返回值
Long，添加的字体数量，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpFileName String，字体资源文件的文件名。可以是.FON， .FNT， .TTF 或 .FOT文件
注解
添加了一种资源后必须调用下述API函数：
di% = SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, x, y)
其中，HWND_BROADCAST、WM_FONTCHANGE使用来自API32.TXT文件的值。这样便可告诉所有Windows应用程序字体列表已发生了变化

示例
Call AddFontResource("myfont.ttf")
Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

不会使api，希望对你有帮助 参考技术B 音标,应是希腊字母之类,Excel功能有限.