<<< 返回 access911.net 编程静态资料库索引页

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

 

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


专题地址:http://access911.net/fixhtm/73FAB61E1ADC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 



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/fixhtm/73FAB61E1ADC.htm

 


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

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

2017年2月22日生成静态资料