简单问题

[ArmStronger]

定义老是报错：模块不是有效类型

dim ctl as control

[ArmStronger]

不太明白ls什么意思~
怎么没人来啊

[贝隆]

还有更多的信息不？代码能否提供的更全些？

[getemail]

Veron_04是上班顶帖两不耽误

[Quote=引用 3 楼 veron_04 的回复:]
还有更多的信息不？代码能否提供的更全些？
[/Quote]

[ArmStronger]

Private Sub Form_Resize()
Dim D(4) As Double
Dim I As Long
Dim TempPos As Long
Dim StartPos As Long
Dim Ctl As Control
Dim TempVisible As Boolean
Dim ScaleX As Double
Dim ScaleY As Double 

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
On Error Resume Next
For Each Ctl In Me
    TempVisible = Ctl.Visible
    Ctl.Visible = False
    StartPos = 1
    ' 读取 Control 的原始位置、大小、字型大小
    For I = 0 To 4
        TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)
        If TempPos > 0 Then
            D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)
            StartPos = TempPos + 1
        Else
            D(I) = 0
        End If
        ' 根据比例设定 Control 的位置、大小、字型大小
        Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY
        'Ctl.Width = D(2) * ScaleX
        'Ctl.Height = D(3) * ScaleY
        If ScaleX < ScaleY Then
            Ctl.FontSize = D(4) * ScaleX
        Else
            Ctl.FontSize = D(4) * ScaleY
        End If
    Next I
    Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0
End Sub

[ArmStronger]

就是上面的代码，如果把

Dim Ctl As Control

改成下面的就能通过：

Dim Ctl as Object

[getemail]

干吗非要改回去?
闲的?

[Quote=引用 6 楼 cfz379945430 的回复:]
就是上面的代码，如果把
VB codeDim CtlAs Control
改成下面的就能通过：
VB codeDim CtlasObject
[/Quote]

[ArmStronger]

[Quote=引用 7 楼 getemail 的回复:]
干吗非要改回去?
闲的?

引用 6 楼 cfz379945430 的回复:
就是上面的代码，如果把
VB codeDim CtlAs Control
改成下面的就能通过：
VB codeDim CtlasObject

[/Quote]
Dim Ctl As Control
这句话通不过啊

[ArmStronger]

哎，到底怎么回事啊，求达人帮忙

[cBirdNO1NO1]

VB6可通过
你的代码的基本功能是根据窗口大小自动调整窗体上控件的大小吧？
每个控件的Tag属性保存了Left Top Height Width的初始信息。

[ArmStronger]

[Quote=引用 10 楼 cbirdno1no1 的回复:]
VB6可通过
你的代码的基本功能是根据窗口大小自动调整窗体上控件的大小吧？
每个控件的Tag属性保存了Left Top Height Width的初始信息。
[/Quote]
恩，但是我编译过不过，郁闷哦

[ArmStronger]

我新建了个工程，发现这句话可以通过，难道是我的工程有问题？

[ArmStronger]

问题已解决！