给最小化按钮写代码

fongzl 2004-03-04 06:14:20
请问给最小化按钮添加操作的函数是什么?
最小化就是设置windowstate是吧

另外,还有一个问题
qq中用CTR+ENTER来发送
但是我做的时候却有一个问题
我用一下代码监视键盘操作
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim CtrlDown
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyReturn Then ' 键组合.
If CtrlDown Then Call Command1_Click
End If

End Sub
//其中Command1就是发送按钮

结果却是发送后又回车一行
我设置text1.text=""都没有用
是不是这个回车键重复记录了
上面这个函数操作后,textbox又记录一次
...全文
87 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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