控件怎样随窗体变化大小？ - 编程论坛

#2

Artless2012-09-14 14:35

贴图吧

#3

ymhy123452012-09-14 15:23

回复 2楼 Artless

俺是想Flash控件能够随窗体变大小，同时又能实现隐藏与显示treeview1控件的，源码在这，谢谢

只有本站会员才能查看附件，请登录

[ 本帖最后由 ymhy12345 于 2012-9-14 15:27 编辑 ]

#4

Artless2012-09-15 11:57

使用一个全局变量
在Private Sub Picture1_Click()中修改变量
在Private Sub Form_Resize()中根据变量值修改控件

#5

ymhy123452012-09-15 21:53

回复 4楼 Artless

俺不会写Flash控件能够随窗体变大小啊，
Private Sub Form_Load()
Me.Width = 9375
End Sub

Private Sub Form_Resize() '写成这样FLASH控件虽然可以随窗体变大小了，但隐藏与显示列表又不能用了，删除 Form_Resize事件下面的代码，隐藏与显示列表又能用了，两者总不能兼得，

On Error Resume Next
StatusBar1.Move StatusBar1.Left, Me.ScaleHeight - StatusBar1.Height - 50, Me.ScaleWidth - 200
TreeView1.Move Me.ScaleWidth - TreeView1.Width - 80, TreeView1.Top, TreeView1.Width, Me.ScaleHeight - StatusBar1.Height - 200

Flash.Move Flash.Left, Flash.Top, TreeView1.Left - 200, StatusBar1.Top - 100
End Sub

Private Sub Picture1_Click() '显示和隐藏列表
If Me.Width = 9375 Then
        Me.Width = 6435
        Picture1.Picture = Pic2.Picture
    ElseIf Me.Width = 6435 Then
        Me.Width = 9375
        Picture1.Picture = Pic1.Picture
    End If

End Sub

#6

学编程啊2012-09-19 18:48

介个有点坑啊