vb6里面mdi子窗体如何重排、层叠、平铺？

作者：摘自：录入：cg1 时间：2003-3-21 浏览人次：350

专题地址：http://access911.net/index.asp?u1=a&u2=73FAB61E1ADC 如果需要更详细的评论或说明，请点击该地址。

简述：

Const FORMCOUNT = 5
Dim F(1 To FORMCOUNT) As New Form1
Private Sub MDIForm_Load ()
   Dim I   ' 声明局部变量。
   Load Form1   ' 加载原始 Form1 窗体。
   For I = 1 To FORMCOUNT
      F(I).Caption = "Form" & I + 1   ' 改变副本上的标题。
   Next I
End Sub

Private Sub Picture1_Click ()
   Static ClickCount   ' 声明变量。
   Dim I, PrevWidth, Start
   ClickCount = ClickCount + 1   ' 增量单击计数器。
   Select Case ClickCount
      Case 1
         MDIForm1.Arrange 1   ' 水平平铺。'0就是层叠
      Case 2
         MDIForm1.Arr.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://access911.net/index.asp?u1=a&u2=73FAB61E1ADC

上一篇：确定 Access 项目的 SQL Server 产品和版本

下一篇：如何用adox新建数据库和表？如何创建有“打开密码”或者“用户名、密码”的数据库？

2007年12月25日生成静态资料