PB让窗口在不同的分辨率下自动调整大小+自动列宽

武汉高达软件系统有限公司WUHANGOLDENSOFTWARESYSTEMCO.,LTD地址：武汉市友谊大道508号万利广场B座1605-1606电话：（027）8670107286701365Http：//：[e-mail]让窗口在不同的分辨率下自动调整大小1.1.1:给你个通用函数，在窗口的OPEN事件中加句f_resize_object(this)即可。//f_resize_object(windowva_window)//以下为内容：//定义环境变量3.1.1environmentve_hjbldecvdec_width,vdec_height//宽度比率、高度比率integervi_return//返回数值longvl_objectvi_return=GetEnvironment(ve_hjbl)vdec_width=ve_hjbl.ScreenWidth/1024vdec_height=ve_hjbl.ScreenHeight/768anyvs_object_type4.1.1CheckBoxv_CheckBoxOLECustomControlV_OLECustomControlCommandButtonv_commandButtonOvalv_OvalDataWindowv_datawindowPicturev_pictureDropDownListBoxv_DropDownListBoxPictureButtonv_PictureButtonDropDownPictureListBoxv_dropDownPictureListBoxPictureListBoxv_picTureListBoxEditMaskv_editmaskRadioButtonv_radiobuttonGraphv_graphRectanglev_rectangleGroupBoxv_groupbox武汉高达软件系统有限公司WUHANGOLDENSOFTWARESYSTEMCO.,LTD地址：武汉市友谊大道508号万利广场B座1605-1606电话：（027）8670107286701365Http：//：[e-mail]_richtexteditHScrollBarv_HScrollBarRoundRectanglev_RoundRectangleLinev_lineSingleLineEditv_SingleLineEditListBoxv_ListBoxStaticTextv_statictextListViewv_listViewTabv_tabMultiLineEditv_MultiLineEditTreeViewv_TreeViewOLEControlv_OLEControlVScrollBarv_VSCrollBarmenuv_menu//调整窗口属性5.1.1va_window.x=va_window.x*vdec_widthva_window.y=va_window.y*vdec_height//va_window.width=va_window.width*vdec_width//va_window.height=va_window.height*vdec_heightva_window.Resize(va_window.width*vdec_width,va_window.height*vdec_height)6.1.1//处理窗口内对象forvl_object=1toupperBound(va_window.control[])vs_object_type=va_window.control[vl_object].typeof()7.1.1choosecasevs_object_typecaseCheckBox!v_CheckBox=va_window.control[vl_object]v_checkBox.x=v_checkBox.x*vdec_widthv_checkBox.y=v_checkBox.y*vdec_heightv_checkBox.width=v_checkbox.width*vdec_widthv_checkbox.height=v_checkbox.height*vdec_heightv_checkbox.textsize=v_checkbox.textsize*vdec_width武汉高达软件系统有限公司WUHANGOLDENSOFTWARESYSTEMCO.,LTD地址：武汉市友谊大道508号万利广场B座1605-1606电话：（027）8670107286701365Http：//：[e-mail]!V_OLECustomControl=va_window.control[vl_object]V_OLECustomControl.x=V_OLECustomControl.y*vdec_widthV_OLECustomControl.y=V_OLECustomControl.y*vdec_heightV_OLECustomControl.width=V_OLECustomControl.width*vdec_widthV_OLECustomControl.height=V_OLECustomControl.height*vdec_heightcaseCommandButton!v_commandButton=va_window.control[vl_object]v_commandButton.x=v_commandButton.x*vdec_widthv_commandButton.y=v_commandButton.y*vdec_heightv_commandButton.width=v_commandButton.width*vdec_widthv_commandButton.height=v_commandButton.height*vdec_heightv_commandButton.textsize=v_commandButton.textsize*vdec_widthcaseOval!v_Oval=va_window.control[vl_object]v_Oval.x=v_Oval.x*vdec_widthv_Oval.y=v_Oval.y*vdec_heightv_Oval.width=v_Oval.width*vdec_widthv_Oval.height=v_Oval.height*vdec_heightcaseDataWindow!v_datawindow=va_window.control[vl_object]v_datawindow.x=v_datawindow.x*vdec_widthv_datawindow.y=v_datawindow.y*vdec_heightv_datawindow.width=v_datawindow.width*vdec_widthv_datawindow.height=v_datawindow.height*vdec_heightcasePicture!v_picture=va_window.control[vl_object]v_picture.x=v_picture.x*vdec_widthv_picture.y=v_picture.y*vdec_heightv_picture.width=v_picture.width*vdec_widthv_picture.height=v_picture.height*vdec_heightcaseDropDownListBox!武汉高达软件系统有限公司WUHANGOLDENSOFTWARESYSTEMCO.,LTD地址：武汉市友谊大道508号万利广场B座1605-1606电话：（027）8670107286701365Http：//：[e-mail]_DropDownListBox=va_window.control[vl_object]v_DropDownListBox.x=v_DropDownListBox.x*vdec_widthv_DropDownListBox.y=v_DropDownListBox.y*vdec_heightv_DropDownListBox.width=v_DropDownListBox.width*vdec_widthv_DropDownListBox.height=v_DropDownListBox.height*vdec_heightv_DropDownListBox.textsize=v_DropDownListBox.textsize*vdec_widthcasePictureButton!v_PictureButton=va_window.control[vl_object]v_PictureButton.x=v_PictureButton.x*vdec_widthv_PictureButton.y=v_PictureButton.y*vdec_heightv_PictureButton.width=v_PictureButton.width*vdec_widthv_PictureButton.height=v_PictureButton.height*vdec_heightv_PictureButton.textsize=v_PictureButton.textsize*vdec_widthcaseDropDownPictureListBox!v_dropDownPictureListBox=va_window.control[vl_object]v_dropDownPictureListBox.x=v_dropDownPictureListBox.x*vdec_widthv_dropDownPictureListBox.y=v_dropDownPictureListBox.y*vdec_heightv_dropDownPictureListBox.width=v_dropDownPictureListBox.width*vdec_widthv_dropDownPictureListBox.height=v_dropDownPictureListBox.height*vdec_heightv_dropDownPictureListBox.textsize=v_dropDownPictureListBox.textsize*vdec_widthcasePictureListBox!v_picTureListBox=va_window.control[vl_object]v_picTureListBox.x=v_picTureListBox.x*vdec_widthv_picTureListBox.y=v_picTureListBox.y*vdec_heightv_picTureListBox.width=v_picTureListBox.width*vdec_widthv_picTureListBox.height=v_picTureListBox.height*vdec_heightv_picTureListBox.textsize=v_picTureListBox.textsize*vd