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

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

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

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

第2个图

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

<P>一个简单的例子</P>
<P>Private bVisible As Boolean<BR>Private Sub Command1_Click()<BR>bVisible = Not bVisible<BR>MsgBox IIf(bVisible, "show", "hide")<BR>End Sub</P>
<P>Private Sub Form_Load()<BR>bVisible = True<BR>End Sub<BR></P>

wzg 发表于 2005-11-24 13:07:00

<P>楼上的思路是这样吗：设一变量bvisible，command每click一下，变量的值就改变</P>
<P>&nbsp;</P>
<P>另：窗口的折迭或展开效果如何实现的？</P>

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

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

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

原来这样，谢谢！

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

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

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

<P>请问：<A name=70268><FONT color=#990000><B>lzh741206</B></FONT></A> </P>
<P>MsgBox IIf(bVisible, "show", "hide")这句是那种语法，书上没找到<BR></P>

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

<P>IIf 为VB的函数，VB的帮助中会有：</P>
<P class=T><B>IIf(expr,</B> <B>truepart,</B> <B>falsepart)</B></P>
<P class=T>
<TABLE cellSpacing=4 cols=2 cellPadding=4>
<TBODY>
<TR vAlign=top>
<TD class=T width="17%"><B>expr</B></TD>
<TD class=T width="83%">用来判断真伪的表达式。</TD></TR>
<TR vAlign=top>
<TD class=T width="17%"><B>truepart</B></TD>
<TD class=T width="83%">如果 <B>expr</B> 为 <B>True</B>，则返回这部分的值或表达式。</TD></TR>
<TR vAlign=top>
<TD class=T width="17%"><B>falsepart</B></TD>
<TD class=T width="83%">如果 <B>expr</B> 为 <B>False</B>，则返回这部分的值或表达式。</TD></TR></TBODY></TABLE></P>

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

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