给最小化按钮写代码

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又记录一次
...全文
49 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-03-04 06:14
社区公告
暂无公告