哪位知道如何修改inputbox的字体？

[freehorse_1981]

我想更改一下inputbox的字体，各位有没有什么办法？

[goldfish9]

inputbox是不是只能输入英文的啊？

[StarLee]

可以用api函数实现，具体的函数我忘了，你可以查查。

[freehorse_1981]

各位赶快帮忙吧，分不过我再加，我一点儿 头绪都没有了。

[gang75]

编译以后应该可以了吧

[freehorse_1981]

什么意思？我现在的问题是在2000下编译的程序拿到98下以后字体变化了，搞得界面风格很不一致，所以我想把inputbox的字体改一下，谢谢各位帮忙！

[zyl910]

自己做个窗体代替InputBox算了

因为除非用Hook得到InputBox的窗口句柄外没有其他方法
而用Hook比自己做个窗体代替复杂多了

[用户 昵称]

30分太少了。

[用户 昵称]

真没面子，说出来却没做成。

[CHKK]

慢慢看，一定可以
GetSysColor

VB声明
Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long
说明
判断指定windows显示对象的颜色
返回值
Long，指定对象的RGB颜色
参数表
参数 类型及说明
nIndex Long，一个常数，指出特定的windows显示对象，如下表
Windows对象常数表
常数定义 Windows对象 常数定义 Windows对象
COLOR_ACTIVEBORDER 活动窗口的边框 COLOR_ACTIVECAPTION 活动窗口的标题
COLOR_APPWORKSPACE MDI桌面的背景 COLOR_BACKGROUND windows桌面
COLOR_BTNFACE 按钮 COLOR_BTNHIGHLIGHT 按钮的3D加亮区
COLOR_BTNSHADOW 按钮的3D阴影 COLOR_BTNTEXT 按钮文字
COLOR_CAPTIONTEXT 窗口标题中的文字 COLOR_GRAYTEXT 灰色文字；如使用了抖动技术则为零
COLOR_HIGHLIGHT 选定的项目背景 COLOR_HIGHLIGHTTEXT 选定的项目文字
COLOR_INACTIVEBORDER 不活动窗口的边框 COLOR_INACTIVECAPTION 不活动窗口的标题
COLOR_INACTIVECAPTIONTEXT 不活动窗口的文字 COLOR_MENU 菜单
COLOR_MENUTEXT 菜单正文 COLOR_SCROLLBAR 滚动条
COLOR_WINDOW 窗口背景 COLOR_WINDOWFRAME 窗框
COLOR_WINDOWTEXT 窗口正文 COLOR_3DDKSHADOW 3D深阴影 *
COLOR_3DFACE 3D阴影化对象的正面颜色 * COLOR_3DHILIGHT 3D加亮颜色（win95）
COLOR_3DLIGHT 3D阴影化对象的浅色 * COLOR_INFOBK 工具提示的背景色 *
COLOR_INFOTEXT
工具提示的文本色 * 　 　
*：带 * 号的常数未获NT 3.51的支持



SetSysColors

VB声明
Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
说明
设置指定窗口显示对象的颜色
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
nChanges Long，欲改变的对象的数量
lpSysColor Long，按引用传递。这是一个整数数组（总共包含nChanges个元素）的第一个元素。每个条目都包含了一个常数，指定一个windows显示对象。参考GetSysColor函数
lpColorValues Long，按引用传递。这是RGB值数组的第一个元素；该数组用于设置lpSysColor数组中的对象颜色

[CHKK]

上面可以修改颜色等

修改系统的默认字体