DW中设置自动列宽.docVIP

看到《如何在DW中设置自动列宽》，从我的类库中扣了一段代码回复了，后来又从旧硬盘中找到原来老外写的对象，上传给大家吧 $PBExportHeader$n_dwautowidth.sru $PBExportComments$Performs autowidth on grid datawindow columns forward global type n_dwautowidth from nonvisualo b j e c t end type end forward type os_size from structure long cx long cy end type global type n_dwautowidth from nonvisualo b j e c t autoinstantiate end type type prototypes Function ulong GetDC(ulong hWnd) Library user32.dll Function ulong SelectObject(ulong hdc, ulong hWnd) Library gdi32.dll Function boolean GetTextExtentPoint32A(ulong hdcr, string lpString, long nCount, ref os_size si