VB中的msgbox 能控制它的字体类型和大小的吗.??

2005-06-08 11:57:09 2.9k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python XML 转 JSON，XML 转字典今天我们将学习如何在 Python 中将 XML 转换为 JSON 和 XML 转换为字典。我们可以使用 Python 的xmltodict模块来读取 XML 文件并将其转换为字典或 JSON 数据。我们还可以在大型 XML 文件上进行流式处理，并将其转换为字典。在进入编码部分之前，让我们首先了解为什么需要进行 XML 转换。阅读详情

各位帮帮忙...

...全文

基于 YOLO + SAM 的自动图像标注实战摘要：本文提出一种基于YOLO检测和SAM分割的自动化数据标注流水线方案，通过YOLO定位目标并生成检测框，再以检测框为提示驱动SAM完成精细分割，最终输出YOLO格式的标注文件。该方案将人工标注升级为半自动流程，显著提升标注效率，尤其适用于多类别、大规模图像的实例级标注需求。代码模块化设计支持模型灵活替换，并集成异常处理与进度可视化功能。虽依赖YOLO检测质量且对小目标存在局限，但作为工程落地方案，可有效降低私有数据集构建成本，适用于工业检测、遥感等场景的冷启动标注。阅读详情

jackyhyoung

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

cxbkkk 2005-06-20

打赏
举报

可以吧，加font属性

Winters_lee 2005-06-20

打赏
举报

楼上的答案是“正解”！

lfshf 2005-06-18

打赏
举报

“茴”字有四种写法

zhujiechang 2005-06-18

打赏
举报

捕捉调用msgbox 窗体的wm_activate事件就能检测到msgbox窗体。

opensesame 2005-06-16

打赏
举报

可以，修改Msgbox窗口的回调函数可以实现，这要掌握窗口的运行原理！
祝你好运！

rainstormmaster 2005-06-11

打赏
举报

//VB中的msgbox 能控制它的字体类型和大小的吗.??

可以是可以，不过代价很大，还不如你自己用form模拟一个来得快

还想懒够 2005-06-10

打赏
举报

如果在调试环境下，该段代码运行无效。不知道为什么，编成Exe就可以看到效果了。

还想懒够 2005-06-10

打赏
举报

可以控制。但我只控制到字体，如果字体放大，似乎里面的内容显示不是太正常。

以下为代码。注：代码只允许在编译后才能运行。

注：窗体上有两个控件，一为Command，一为Timer

Private Const MsgTitle As String = "消息框提示"

Private Const WM_SETFONT = &H30

Private Declare Function CreateFont Lib "gdi32" _
Alias "CreateFontA" (ByVal H As Long, _
ByVal W As Long, ByVal E As Long, ByVal O As Long, _
ByVal W As Long, ByVal I As Long, ByVal U As Long, _
ByVal S As Long, ByVal C As Long, ByVal OP As Long, _
ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, _
ByVal F As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
Dim msg As String

Timer1.Enabled = True

MsgBox "提示信息", vbOKOnly, MsgTitle

End Sub

Private Sub Timer1_Timer()
Dim hWnd As Long
Dim hWndChild As Long

hWnd = FindWindow(vbNullString, MsgTitle)
If hWnd <> 0 Then
'再找子窗体
hWndChild = FindWindowEx(hWnd, 0, "Static", vbNullString)
If hWndChild <> 0 Then
Dim hFont As Long
hFont = CreateFont(20, 0, 0, 0, 0, 0, 0, 0, 106, 0, 16, 0, 0, "隶书")

SendMessage hWndChild, WM_SETFONT, hFont, 0

Timer1.Enabled = False
End If

'同理，平时咱们看到一些消息框可以自动关闭，或者显示还剩多少秒，也可以
'找到这个hWndChild后，利用SetWindowText函数来实现。关闭窗体直接发送
'SendMessage hWnd,WM_CLOSE,0,0即可。
End If

End Sub

Private Sub Form_Load()
Me.Timer1.Interval = 20
End Sub

ahbbnimor 2005-06-09

打赏
举报

mark

szjhxu 2005-06-08

打赏
举报

对，自己做一个窗体。

hsghxm 2005-06-08

打赏
举报

不能的，正如楼上所说，自己用窗体做个msgbox

supergreenbean 2005-06-08

打赏
举报

不能,不如你自己用form模拟一个来得快

VB中的msgbox 能控制它的字体类型和大小的吗.??

相关推荐