怎么在打开窗口之前，获得窗口设计时的宽度

string ls_name  ClassDefinition cd  window w  ls_name = "w_main"  //要获取的窗口定的类名cd=FindClassDefinition(ls_name)    if not isvalid(cd) then      messagebox("","找不到该对象的定义类图")      return  end if    w = create using ls_name  messagebox('', w.width) //获得窗口设计时的宽度destrooy w