安装VB SP3以上的升级包!
或在编译的时候存盘之前依次把所有控件的字体设为宋体小五一次!再进行编译试试!!
或在编译的时候存盘之前依次把所有控件的字体设为宋体小五一次!再进行编译试试!!
解决方案 »
- 已知两点确定的直线,求距一点指定长度的,该直线上的点坐标
- Exexcute方法 问题
- ===用VB如何杀进程===
- 如何给非活动窗体发送按键消息
- 高分求“ftp程序源码”,在线等.....
- 自定义类型可不可以当做参数传递给函数!
- 再问一遍!!!
- 怎么在程序中打开一个.txt文件?
- 有一个Image控件,然后还有一个计时器会不断地cls,问题就是我发现Image会闪烁,有没有什么办法的?
- http://www.allapi.net/ 完美的API函数说明,每个函数都有实例,一旦拥有,别无所求
- 怎么确定ADO与SQL连接是否正确。
- "select top 2 * from 学生 order by 成绩", 怎么去除成绩相同的记录?
按程序设置正常显示。
http://www.csdn.net/Expert/topic/490/490851.shtm
就知道为什么了。
如果要找我,请到
http://www.d1vb.com
2、安装字体:'声明:
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" _
(ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" _
(ByVal lpFileName As String) As Long'代码:'增加字体:
Dim lResult As Long
lResult = AddFontResource("c:\myApp\myFont.ttf")
'删除字体:
Dim lResult As Long
lResult = RemoveFontResource("c:\myApp\myFont.ttf")
微软已经提供了一种解决方法,在VB的安装程序的源码中,有一个SetFormFont函数,试试吧!