vb高手请进

xiao_hu

请问这段程序错在那里？怎么改呀？
dim FrmW as single ’存放改变前的窗体的宽度
dim frmH as single ’存放改变前的窗体的高度

Private Sub Form_Load()
if windowstate <>vbMinimized then
   FrmW=me.Width
   FrmH=me.Height
   ’上面两句是初始化模块变量
end if
End Sub

Private Sub Form_Resize()
if FrmW=0 or FrmH=0 then exit sub

dim MyCon as me.Controls
dim sig1 as single,sig2 as single
sig1 = Me.Width / FrmW
sig2 = Me.Height / FrmH
For Each MyCon In Me.Controls
    If TypeOf MyCon Is Label Or _
        TypeOf MyCon Is CommandButton Or _
        TypeOf MyCon Is ListView Or _
        TypeOf MyCon Is TextBox Then
        With MyCon
            .Left = Int(.Left * sig1)
            .Top = Int(.Top * sig2)
            .Width = Int(.Width * sig1)
            .Height = Int(.Height * sig2)
        End With
    End If
Next MyCon
FrmW = Me.Width
FrmH = Me.Height
End Sub

stenphen

dim frmH as single ’存放改变前的窗体的高度

偶不是很清楚，但是这个有的错
也许是你在这里的笔误吧

xiao_hu

谢了先，但我在运行的时候好象是这句错了。
dim MyCon as me.Controls
不知道怎么改呀。
有人知道吗？

clapnet

Dim MyCon

Set MyCon=Me.Controls