Access - ширина формы или элемента управления не обновляется

Question

Я пытаюсь установить ширину столбца списка в соответствии с текущим размером списка, я настроил его на использование свойства Listbox.Width, но это никогда не обновляется, оно остается на значении, установленном в режиме разработки.

Даже создал новую форму с событием изменения размера, как показано ниже:

Private Sub Form_Resize()
    Text0 = CStr(Me.Width) & " - " & CStr(Rnd())
End Sub 

И ширина остается неизменной, когда я изменяю ее размер (событие, безусловно, запускается при изменении случайного значения).

Это известная проблема с Access, и если да, есть ли обходные пути?

Как узнать текущую ширину элемента управления или формы?

Answer 1

Я нашел грязную работу вокруг (но я все еще открыт для предложений для лучшего).

Единственное свойство, которое, кажется, изменяется при изменении размера, это Form.InsideWidth.

При загрузке формы я сохраняю разницу между шириной списков и внутренней шириной:

Private Sub Form_Load()
    p_ListToWindowDiff = Me.InsideWidth - Listbox1.Width
End Sub

Затем при изменении размера я использую это для получения новой ширины списка:

NewListWidth = Me.InsideWidth - p_ListToWindowDiff