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
谢谢，但使用了都不是我要的效果。
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
