VB窗体问题
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB code:
一劳永逸让VB自动改变控件大小
-------------------------------------------------------------------
当窗体大小改变时，如何动态的改变控件的大小是许多VB 程序员头痛的事。有的人设置窗体Resizable 但却不改变控件的大小；有的人则根据控件的绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:
Option Explicit
Private FormOldWidth As Long
'保存窗体的原始宽度
Private FormOldHeight As Long
'保存窗体的原始高度
'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " _
& Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub
'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
D
相关问答：
一个窗体，3个datagrid，共计3个表，一个表对应一个datagrid，点击datagrid1(打开该窗体时已经被赋值)，根据datagrid1中的某个值，查询表2和表3，并把符合条件的分别赋值给datagrid2和datagrid3，要怎么写
VB ......
我想写一个asp读取本地机子的网瞳的功能，需要用vb写一个dll 在网上找了一下，把下面的段拷入vb工程里：
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private ......
我用InstallShield 10.0制作了一个VB安装包
问题是：
在别的机子上安装后，在运行程序的时候，提示dll找不到，不能调用。
我在制作安装包的时候，将exe文件、ini文件、图形控件（ ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
我用VB调用Word 嵌入VB窗体中(这些都是正常)
然后在桌面打开另一个word a.doc
现在问题出来了.....我关闭VB窗体,之前的那个word也正常关闭了
接下来闭关a.doc 会出现问题
这个要怎� ......
