wzg 发表于 2005-11-24 10:43:00

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

大家看，这种折迭窗口如何用VB实现
谁能写一个例子？谢谢！


wzg 发表于 2005-11-24 10:44:00

第2个图

雪山飞狐_lzh 发表于 2005-11-24 12:45:00

一个简单的例子
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 发表于 2005-11-24 13:07:00

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

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

zxj_76 发表于 2005-11-24 13:38:00

1、将列表框的Visible值改成False，看不到了
2、将窗体Height值缩小，窗体也小了；
3、将下面一排按钮的Top值缩小，按钮上移；
4、将窗体的Top值改变一下，放到合适的位置。

wzg 发表于 2005-11-24 14:30:00

原来这样，谢谢！

linyiwq 发表于 2005-11-24 14:56:00

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

wzg 发表于 2005-11-24 15:20:00

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

weekendor 发表于 2005-11-24 15:29:00

IIf 为VB的函数，VB的帮助中会有：
IIf(expr, truepart, falsepart)
expr
用来判断真伪的表达式。truepart
如果 expr 为 True，则返回这部分的值或表达式。falsepart
如果 expr 为 False，则返回这部分的值或表达式。

wzg 发表于 2005-11-24 15:40:00

谢谢楼上！
页: [1]
查看完整版本: [求助]大家看，这种折叠窗口如何用VB实现