SetCapture 和 ReleaseCapture分别是什么意思啊?怎么用啊?

ncowboy ncowboy 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

Option Explicit

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Font = "隶书"
Command1.Font.Bold = True
Command1.Font.Italic = True
Command1.Font.Size = "50"
SetCapture Me.hwnd
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Font = "宋体"
Command1.Font.Bold = False
Command1.Font.Italic = False
Command1.Font.Size = "20"
ReleaseCapture
End Sub

...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
ncowboy
VB基础类 7,788 成员 197,583 内容