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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

慢慢看，一定可以
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数组中的对象颜色