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
谢谢，但使用了都不是我要的效果。
相关问答：
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
各位大虾：
我有一个VB调用水晶报表的系统，报表是作为一个Design嵌在VB里的，今天发现打印第一张报表正常，同样的数据，在点打印再调用一次就会报 Memory Full的错误，但是 ......
