您所在位置：主题：各位大哥进来帮忙解决一个问题,谢谢
douyabao
[专家分：0] 发布于 2009-07-16 21:04:00
以下是源代码
private wd as long
private hg as long
Private Sub Form_Initialize()
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Load()
wd = Me.width '7890
hg = Me.height '7080
End Sub
有个vb窗体，初始时 宽7890，高7080，窗体最大化后 宽15480，高11190，我现在想要窗体Form_Load的时候就要得到最大化的值（宽15480，高11190），以上代码Form_Load时候，wd ，hg 永远是初始值（宽7890，高7080），请大哥们帮忙解决。小弟，万分感激。
private wd as long
private hg as long
Private Sub Form_Initialize()
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Load()
wd = Me.width '7890
hg = Me.height '7080
End Sub
有个vb窗体，初始时 宽7890，高7080，窗体最大化后 宽15480，高11190，我现在想要窗体Form_Load的时候就要得到最大化的值（宽15480，高11190），以上代码Form_Load时候，wd ，hg 永远是初始值（宽7890，高7080），请大哥们帮忙解决。小弟，万分感激。
