VB中“窗体放大一倍”和窗体缩小一倍怎么做？？

答案:3 悬赏:40

解决时间 2021-04-23 09:50

提问者网友：伪善人独行者
2021-04-22 12:21

详细的程序代码，谢谢！！

最佳答案

二级知识专家网友：不羁的心
2021-04-22 13:06

Private Sub Command1_Click() ' 这里是窗口放大2倍
Form1.Height = Form1.Height * 2 'form1就是窗口的名字，
Form1.Width = Form1.Width * 2
End Sub

Private Sub Command2_Click() ' 这里是窗口缩小2倍
Form1.Height = Form1.Height / 2
Form1.Width = Form1.Width / 2
End Sub

全部回答

1楼网友：单身小柠`猫♡
2021-04-22 14:25

加上一个窗口的WINDOWS事件就行了

2楼网友：丢不掉的轻狂
2021-04-22 13:17

Private Sub Form_Click() Static b As Boolean If b Then Me.Height = Me.Height / 2: Me.Width = Me.Width / 2 Else Me.Height = Me.Height * 2: Me.Width = Me.Width * 2 End If b = Not b End Sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

大家都在看

• 现在的人能不看重钱吗？

• photoshop cc是什么版本

• 谁知道陈一娜博客里的歌是什么

• 华硕pro553uj中的uj是什么意思？

• 棒棒糖母婴馆我想知道这个在什么地方

• 羊蹄要怎么做才好吃

• 天津华苑雅士道从大寺中学怎么到坐公交车

• 昨天天天向上小男孩唱了什么歌？

• 苏园学生之家地址在什么地方，想过去办事