高手求救，如何改变MSGBOX内文字的字体大小？

howel 2002-06-29 04:49:27

...全文

766 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

netxray 2002-06-29

打赏
举报

用hook可以办到
用一些高级控件也可以办到

zyl910 2002-06-29

打赏
举报

突然想起来了
用Hook也不一定办得到

以前我问过怎样用纯API的方法设定控件的字体
VB、VC区都发了帖子
up了好几个星期
没人回答！！！

BoomerXP 2002-06-29

打赏
举报

你真不想自己做窗体的话，用 HOOK 吧。

wangjidh 2002-06-29

打赏
举报

能该Msgbox的格式和样式，但不能该字体，除非你把windows系统字体改了

建议自己做个，很简单的

howel 2002-06-29

打赏
举报

我不想重做一个FORM。

duckcn 2002-06-29

打赏
举报

自己还可以做好看点！

浮云 2002-06-29

打赏
举报

对呀，自己做一个MsgBox，有什么难的？大不了几个CommandButton，几个Label而已。

zyl910 2002-06-29

打赏
举报

自己做一个窗体来代替MsgBox！

虽然用Hook可以办到
但这比自己做一个窗体要复杂那里去了

MFC绝大部分的标准控件自绘:完美的标题栏重绘(window)，button,combo,dialog,edit,list,menu,msgbox,progress,richedit,scroll,slider,splitter,static,tab,tree。 DirectUI:包含一些常用控件 button, checkbox, ...

设置字体大小为 15。box= msgbox('运行结束', '提示', 'help');使用msgbox设置对话框，设置字体大小。

h=msgbox('text'); % 修改字体 ah = get( h, 'CurrentAxes' ); ch = get( ah, 'Children' ); set( ch, 'FontSize', 12 ); % 文本居中 th = findall(0, 'Tag','MessageBox' ); boxPosition = get(h,'position'); ...

Private Declare Function SendMessage Lib "user32" Alias ... WM_GETTEXT, 255, GetString) '255是缓冲区的长度 'GetKeyNameText GetIParam, GetString, Len(GetString) MsgBox(GetString) End Sub 取消评论

'选取最下方的单元格 Sub SelectEndCell() MsgBox "选取当前单元格区域内最下方的单元格" ActiveCell.End(xlDown).Select End Sub可以改变参数xlDown以选取最左边、最...

VB基础类

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章