VB中怎么做窗口伸缩
就是一个窗口，放上一个按钮，
按一下，隐藏窗口的一半，再按一下，又显示出来成一个完整大小都窗口
If Me.Height = 300 Then Me.Height = 600 Else Me.Height = 300
if me.left=0 then
me.left=-300
else
me.left=0
endif
VB code:
Dim a As Double
Private Sub Command1_Click()
If Command1.Caption = "收缩" Then
Form1.Height = a / 2
Command1.Caption = "伸展"
Exit Sub
End If
If Command1.Caption = "伸展" Then
Form1.Height = a
Command1.Caption = "收缩"
Exit Sub
End If
End Sub
Private Sub Form_Load()
a = Form1.Height
Command1.Caption = "收缩"
End Sub
谢谢，但使用了都不是我要的效果。
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
