运行窗口后，用鼠标调整列宽，写一个按钮，获取设置的值，如
Dim cvs As String = e.form.controls("Table1").Table.GetColVisibleWidth()
msgbox(cvs)
ClipBoard.SetText(cvs) '复制到粘贴板
加好友 
发短信
Post By：2019/1/9 15:37:00 [显示全部帖子]
