[求助]：大家看这种能折叠的窗口用VB能否实现？

wzg · 发表于 2005-11-23 14:56:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这是在TSSD钢结构1.5中的一个计算窗口，它的计算书窗口能隐藏或打开，请问用VB能实现吗？

wzg · 发表于 2005-11-23 14:57:39

第2副图

zhuxuhong · 发表于 2005-11-23 19:56:25

我想应该可以的，可以通过更改窗体的高度来实现吧

秦林 · 发表于 2005-11-24 09:02:17

可以实现，在第一个窗口该命令按钮的Click事件输入me.hide,另建一个宏，输入该窗体的名称.show即可

wzg · 发表于 2005-11-24 10:26:18

同一按钮click事件如何能有两个不同的反应呢？
请楼上能否给个详细的例子？
谢谢！

macula55 · 发表于 2005-11-24 10:43:30

加一个公共变量用于存储状态

当Click触发时先判断状态标志。

wzg · 发表于 2005-11-24 11:46:15

楼上能否给出代码？

秦林 · 发表于 2005-11-24 12:45:01

用你想隐藏控件的visible属性，为true，可见，为 false不可见

wzg · 发表于 2005-11-24 14:14:11

生成计算信息的控件是那种，
它隐藏时，原来所占据的窗口空间如何随着消失的？

秦林 · 发表于 2005-11-24 14:20:02

预先计算好位置，只能通过设定窗体的Top、left、height和width属性来实现

Renay208 · 发表于 2005-11-24 19:39:21

原先的内容在隐藏显示的时候应该是存在的，这种效果应该只是视觉上的。
利用窗体的height可以实现。可以把显示的信息用Pictrue容器来控制，里面可能用到richtext box控件。
可能使用一个BOOL变量来控制。每次mouse_down的时候，对该变量进行一下not运算，然后用这个变量来控制所要执行的代码。大致可以这样：

bShow = not bShow 'dim bShow as boolean
if bShow = true then
mPicBox.visible = False
me.height = me.height - mPicBox.height
else
mPicBox.visible = True
me.height = me.height + mPicBox.height
end if

复制代码

账号		自动登录	找回密码
密码			立即注册

[求助]：大家看这种能折叠的窗口用VB能否实现？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子