求助：VB的里的语句，在ACCESS 如何修改？

hongjian

ScaleX = FormName.ScaleWidth / FormOldWidth '保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight '保存窗体高度缩放比例

关键是：FormName.ScaleWidth / FormOldWidth

             FormName.ScaleHeight / FormOldHeight



与VBA 里如何对应？

这二VB的语句，在ACCESS  VBA 里出错，如何修改？多谢!

fan0217

注意变量的使用位置,和函数所放入的事件.

hongjian

我在OFFICE2000 下没有反应，能否把你成功的例子给我？多谢!

[此贴子已经被作者于2006-4-4 10:24:28编辑过]

fan0217

是完全可以运行的,没有问题.

hongjian

没有反应!不行，能否搞个例子出来？多谢!

这一句出错：

            Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

对象不支持这属性!!





  For I = 0 To 4 '读取控件的原始位置与大小
        TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)      '''开始出错
            If TempPos > 0 Then
                Pos(I) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                StartPos = TempPos + 1
            Else
                Pos(I) = 0
            End If '根据控件的原始位置及窗体改变大小 '的比例对控件重新定位与改变大小
       '     Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
    Next I

[此贴子已经被作者于2006-3-31 22:17:35编辑过]

fan0217

Private FormOldWidth As Long '保存窗体的原始宽度
Private FormOldHeight As Long '保存窗体的原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
On Error Resume Next
Dim Obj As Control

    FormOldWidth = FormName.InsideWidth
    FormOldHeight = FormName.InsideHeight

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
Dim I As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
On Error Resume Next

    ScaleX = FormName.InsideWidth / FormOldWidth  '保存窗体宽度缩放比例
    ScaleY = FormName.InsideHeight / FormOldHeight  '保存窗体高度缩放比例

For Each Obj In FormName
        StartPos = 1
    For I = 0 To 4 '读取控件的原始位置与大小
        TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
            If TempPos > 0 Then
                Pos(I) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                StartPos = TempPos + 1
            Else
                Pos(I) = 0
            End If '根据控件的原始位置及窗体改变大小 '的比例对控件重新定位与改变大小
            Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
    Next I
Next Obj
On Error GoTo 0
End Sub

hongjian

版主 能否指教？

hongjian

：：以下的VB 模块 如何修改呢？？多谢



'让控件自动调整大小

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
Dim I As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
ScaleX = FormName.ScaleWidth / FormOldWidth '保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight '保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For I = 0 To 4 '读取控件的原始位置与大小
TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos(I) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(I) = 0
End If '根据控件的原始位置及窗体改变大小 '的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next I
Next Obj
On Error GoTo 0
End Sub

以上的VB 模块 如何修改呢？？多谢

Private Sub Form_Load()
Call ResizeInit(Me) '在程序装入时必须加入
End Sub
Private Sub Form_Resize()
Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub



以上的VB 模块 如何修改呢？？多谢

以上的VB 模块 如何修改呢？？多谢

[此贴子已经被作者于2006-3-29 22:14:02编辑过]

fan0217

使用 InsideWidth 属性和 InsideHeight 属性可以确定包含[url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproInsideWidth.htm#]窗体[/url]的窗口的高度和宽度（以[url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproInsideWidth.htm#]缇[/url]为单位）。Long 型，可读写