[求助]大家看，这种折叠窗口如何用VB实现

wzg

大家看，这种折迭窗口如何用VB实现

谁能写一个例子？谢谢！

wzg

第2个图

雪山飞狐_lzh

一个简单的例子

Private bVisible As Boolean
Private Sub Command1_Click()
bVisible = Not bVisible
MsgBox IIf(bVisible, "show", "hide")
End Sub

Private Sub Form_Load()
bVisible = True
End Sub

wzg

楼上的思路是这样吗：设一变量bvisible，command每click一下，变量的值就改变

 

另：窗口的折迭或展开效果如何实现的？

zxj_76

1、将列表框的Visible值改成False，看不到了

2、将窗体Height值缩小，窗体也小了；

3、将下面一排按钮的Top值缩小，按钮上移；

4、将窗体的Top值改变一下，放到合适的位置。

wzg

原来这样，谢谢！

linyiwq

实时装入控件，并实时控制窗体的尺寸也可以呀！（运行时）

wzg

请问：lzh741206

MsgBox IIf(bVisible, "show", "hide")这句是那种语法，书上没找到

weekendor

IIf 为VB的函数，VB的帮助中会有：

IIf(expr, truepart, falsepart)

expr	用来判断真伪的表达式。
truepart	如果 expr 为 True，则返回这部分的值或表达式。
falsepart	如果 expr 为 False，则返回这部分的值或表达式。

wzg

谢谢楼上！