Question

求MFC中修改MessageBox字体的代码！？？？？？

Answer 1

:::修改MessageBox的字体:::
使用时与一般的WinAPI相差不多, 以下有一个包装过的函式.
(* MsgBox('提示文字', '标题', ID_Flat) 讯息视窗
(* ============================================
(* 第叁个引数的设定与本函数传回值, 请参阅 WinAPI 中对
(* MessageBox 的说明
(*
(* Delphi 1.0
(* ----------
(* 本函数传入值为 Object Pascal 式的字串, 如果需
(* 要传入 PChar 请直接呼叫 Application.MessageBox
(*
(* Delphi 2.0
(* ----------
(* 以 PChar(LongStr) 即可传入 Application.MessageBox
(* 不一定需要 call 本函数, 只是为了前後版本相容而保留
(* 本函数
(* -------------------------------------------------- *)
function MsgBox(const sText, sCaption: string; wFlag: word): integer;
{$ifdef Windows}
{$define __ShortString}
{$endif}
{$ifdef Win32}
{$ifopt H-}
{$define __ShortString}
{$endif}
{$endif}
{$ifdef __ShortString}
var
szText, szCaption: array[0..254] of char;
{$endif}
begin
{$ifdef __ShortString}
StrPCopy(szText, sText); (* 转换成 Null-Term. 型的字串 *)
StrPCopy(szCaption, sCaption);
Result := Application.MessageBox(szText, szCaption, wFlag);
{$else}
Result := Application.MessageBox(PChar(sText),
PChar(sCaption),
wFlag);
{$endif}
end; { MsgBox }

追问

我是初学者，怎么做完全不知？

Answer 2

呵呵，楼上那个是复制来的答案吧，是Delphi中的例子，C语言不能用。
在VC中，MessageBox和AfxMessageBox中的字体、颜色和样式都是不可改动的，你只能管理文字内容和标题、窗口归属关系。
如果非常需要一个特殊的MessageBox，那么自己做一个全局调用函数，激活一个自己的模态对话框就可以了，模态对话框的样子以MessageBox为范本，想怎么改随意。

追问

这些我也知道，可是我求的是代码，我不会写？

追答

这个代码太多了吧。。。。
创建对话框资源，双击生成实例，然后classwizard生成函数，具体参考以下文章：
http://wenku.baidu.com/view/6b0595dfad51f01dc281f16f.html