vb 在设置窗体随时间变化位置时，怎么要窗体按自己的要求在MDI窗体中不断变动位置

就好像这样，我建了一个form和一个mdi，我想第一秒的时候，form出现在mdi的左上角，第二秒的时候出现在mdi右上角，第三秒的时候，出现在mdi的左下角，第四秒出现在mdi的右下角，第五秒出现在mdi的正中央，这个定时器代码怎么写？？？万分感谢

举报该文章

相关建议 2011-12-11

Dim n As Integer
Private Sub MDIForm_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
n = n + 1
If n Mod 5 = 1 Then Form1.Move 0, 0
If n Mod 5 = 2 Then Form1.Move Me.Width - Form1.Width, 0
If n Mod 5 = 3 Then Form1.Move Me.Width - Form1.Width, Me.Height - Form1.Height
If n Mod 5 = 4 Then Form1.Move 0, Me.Height - Form1.Height
If n Mod 5 = 0 Then Form1.Move 0.5 * (Me.Width - Form1.Width), 0.5 * (Me.Height - Form1.Height)
End Sub追问

我试了一下，但是这个定时器Timer1.inteval=1000报错

追答

你需要在主窗体上放个定时器吧
你放了么？

追问

我在form1里边放了一个定时器，是不是其属性要进行重新定义

追答

主窗体是MDIForm

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/828pvsqms.html

其他看法

无其他回答

vb中怎样让mdi子窗体总是显示在mdi主窗体中央位置,都搞了一天了,真的...
设置form2的位置，在form1中加个时间控件间隔小于10。然后在时间控件中写代码 Form2.Left = Form1.Left + x Form2.Top = Form1.Height + y x,y的值自己去调试虽为复制，如对你有帮助请采纳。

VB6中怎么让MDI子窗体始终填满父容器,并随MDI窗体的大小改变而...
子窗体最大化时，在菜单栏前面出现窗体图标（图标以当前的子窗体图标为准）。点击此图标，可以看到最下面的“下一个”命令，点击它即可切换子窗体。同时，不难发现，下一个的快捷键是 Ctrl + F6 组合键，因此，只要按下 Ctrl + F6 组合键，也可以达到切换子窗体的目的。注意：上面说的切换子窗体，...

...始终填满父窗体,,并且子窗体随MDI窗体的大小改变而改变?
'以下代码添加在MDI窗体的代码中 Private Sub MDIForm_Resize()Form2.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub

VB6.0中如何让一个窗体始终局于MID子窗体之上。
工程属性里把启动设置为mdiform1

vb中怎样使mdi窗体大小不变?
因为MDI窗体没有borderstyle属性,所以不能直接设置 Dim H As Single Dim W As Single Private Sub MDIForm_Load()H = Me.Height W = Me.Width End Sub Private Sub MDIForm_Resize()Me.Height = H Me.Width = W End Sub

在VB中如何实现MDI窗体的背景图随窗口的大小而变化
简单一点的方式是，在MDI主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。Picture1的属性：1.Align=top 2.Appearance=flat 3.BordeStyle=None 4.TabStop=false Image1的属性：1.Stretch=true 在MDI窗体的resize事件中添加如下代码：Private Sub MDIForm_Resize()Me.Picture1....

如何使VB中Mdi父窗体的大小根据子窗体大小改变。
在每个子窗体的gotfocus事件中添加 mdi.width=me.width mdi.height=me.height 或者在mdi中添加一个timer在timer事件中添加 mdi.width=activeform.width mdi.height=activeform.height 试试看

VB中MID窗体子窗体不能显示还有怎么去掉子窗体显示时左上角的图标
既然选择了MDI（多文档界面）架构，就要遵守MDI的规则，不管是MDI主窗体还是MDI子窗体，都要保持标准窗体的基本属性（比如窗体必须可移动且可改变大小），这样才能实现子窗体的自动排列、层叠、菜单合并等功能。如果要玩个性化，就要使用SDI（单文档界面）架构，或者让MDI主窗体与普通窗体并存，这样的话你就...

VB中什么是MDI窗体
如果一个软件中有多个窗体，其中有一个为母窗体，即MDI窗体在VB中可以添加MDI窗体，窗体颜色为深灰色。然后在其他子窗体中，设置MDIChild属性为True，这样，母窗体和子窗体的关系就建立起来了。

如何在VB中添加MDI子窗体
1、首先进入MDI窗体。2、在MDI窗体下选择菜单栏中的“工程”。3、在工程中单击“添加窗体”。4、在打开的对话框中选择“窗体”并单击“打开|”按钮。5。把打开后的窗体的MDIchild属性设置为True。注：只要有MDI窗体。在该窗体下的所有窗体的MDIchild属性设置为trueI窗体的子窗体。

相似回答

大家正在搜