两台机器,设置了相同的分辨率,但是,界面会出现变形,好像文本框的高度增加了,导致2行文本框之间的空白区域被覆盖了,见图2-变形 图1-正常,
文本框是动态装载的,位置,高度 都是用定义的值*屏幕像素单位动态调整的
Load TXT_00(.Fields("IDS"))
Set NewText = TXT_00(.Fields("IDS"))
NewText.Top = TongForm_GetAttrValue(Item_NSKW & "F_T_Top") * Screen.TwipsPerPixelY
NewText.Height = TongForm_GetAttrValue(Item_NSKW & "F_T_Height") * Screen.TwipsPerPixelY