VB时钟控件

[复制链接]
查看11 | 回复2 | 2009-6-6 10:58:47 | 显示全部楼层 |阅读模式
把控件拖好位置窗体的INIT事件中写DIM POSITION AS INTEGERDIM FLAG AS BOOLEANIF COMMAND中.LEFT=COMMAND右.LEFT THEN FLAG=FIF FLAG=F THENCOMMAND中.L...
回复

使用道具 举报

千问 | 2009-6-6 10:58:47 | 显示全部楼层
Private Sub Form_Click()Dim n As IntegerForm1.Tag = Form1.Tag + 1n = Form1.Tag + 1If n Mod 20 Then Exit Subdonghua:a1 = Command1.Left + Command1.Widtha2 = Command...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行