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

1、PB让窗口在不同的分辨率下自动调整大小+自动列宽PB让窗口在不同的分辨率下自动调整大小1.1.1 :2.1.1 /给你个通用函数，在窗口的OPEN事件中加句f_resize_object(this)即可。/f_resize_object(window va_window)/以下为内容：/定义环境变量3.1.1 environment ve_hjbldec vdec_width,vdec_height /宽度比率、高度比率integer vi_return /返回数值long vl_objectvi_return = GetEnvironment(ve_hjbl)vdec_width = ve_

2、hjbl.ScreenWidth / 1024vdec_height = ve_hjbl.ScreenHeight / 768any vs_object_type4.1.1 CheckBox v_CheckBoxOLECustomControl V_OLECustomControlCommandButton v_commandButtonOval v_OvalDataWindow v_datawindowPicture v_pictureDropDownListBox v_DropDownListBoxPictureButton v_PictureButtonDropDownPictureLi

3、stBox v_dropDownPictureListBoxPictureListBox v_picTureListBoxEditMask v_editmaskRadioButton v_radiobuttonGraph v_graphRectangle v_rectangleGroupBox v_groupboxRichTextEdit v_richtexteditHScrollBar v_HScrollBarRoundRectangle v_RoundRectangleLine v_lineSingleLineEdit v_SingleLineEditListBox v_ListBoxSt

4、aticText v_statictextListView v_listViewTab v_tabMultiLineEdit v_MultiLineEditTreeView v_TreeViewOLEControl v_OLEControlVScrollBar v_VSCrollBarmenu v_menu/调整窗口属性5.1.1 va_window.x = va_window.x * vdec_widthva_window.y = va_window.y * vdec_height/va_window.width = va_window.width * vdec_width/va_windo

5、w.height = va_window.height * vdec_heightva_window.Resize(va_window.width * vdec_width,va_window.height * vdec_height)6.1.1 /处理窗口内对象for vl_object = 1 to upperBound(va_window.control)vs_object_type = va_window.controlvl_object.typeof()7.1.1 choose case vs_object_typecase CheckBox!v_CheckBox = va_wind

6、ow.controlvl_objectv_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_widthcase OLECustomControl!V_OLECustomControl = va_w

7、indow.controlvl_objectV_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_heightcase CommandButton!v_commandButton

8、 = va_window.controlvl_objectv_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

9、 * vdec_widthcase Oval!v_Oval = va_window.controlvl_objectv_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_heightcase DataWindow!v_datawindow = va_window.controlvl_objectv_datawindow.x = v_datawindow.x * vde

10、c_widthv_datawindow.y = v_datawindow.y * vdec_heightv_datawindow.width = v_datawindow.width * vdec_widthv_datawindow.height = v_datawindow.height * vdec_heightcase Picture!v_picture = va_window.controlvl_objectv_picture.x = v_picture.x * vdec_widthv_picture.y = v_picture.y * vdec_heightv_picture.wid

11、th = v_picture.width * vdec_widthv_picture.height = v_picture.height * vdec_heightcase DropDownListBox!v_DropDownListBox = va_window.controlvl_objectv_DropDownListBox.x = v_DropDownListBox.x * vdec_widthv_DropDownListBox.y = v_DropDownListBox.y * vdec_heightv_DropDownListBox.width = v_DropDownListBo

12、x.width * vdec_widthv_DropDownListBox.height = v_DropDownListBox.height * vdec_heightv_DropDownListBox.textsize = v_DropDownListBox.textsize * vdec_widthcase PictureButton!v_PictureButton = va_window.controlvl_objectv_PictureButton.x = v_PictureButton.x * vdec_widthv_PictureButton.y = v_PictureButto

13、n.y * vdec_heightv_PictureButton.width = v_PictureButton.width * vdec_widthv_PictureButton.height = v_PictureButton.height * vdec_heightv_PictureButton.textsize = v_PictureButton.textsize * vdec_widthcase DropDownPictureListBox!v_dropDownPictureListBox = va_window.controlvl_objectv_dropDownPictureLi

14、stBox.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.te

15、xtsize = v_dropDownPictureListBox.textsize * vdec_widthcase PictureListBox!v_picTureListBox = va_window.controlvl_objectv_picTureListBox.x = v_picTureListBox.x * vdec_widthv_picTureListBox.y = v_picTureListBox.y * vdec_heightv_picTureListBox.width = v_picTureListBox.width * vdec_widthv_picTureListBo

16、x.height = v_picTureListBox.height * vdec_heightv_picTureListBox.textsize = v_picTureListBox.textsize * vdec_widthcase EditMask!v_editmask = va_window.controlvl_objectv_editmask.x = v_editmask.x * vdec_widthv_editmask.y = v_editmask.y * vdec_heightv_editmask.width = v_editmask.width * vdec_widthv_ed

17、itmask.height = (v_editmask.height * vdec_height )/0.9v_editmask.textsize = v_editmask.textsize * vdec_widthcase RadioButton!v_radiobutton = va_window.controlvl_objectv_radiobutton.x = v_radiobutton.x * vdec_widthv_radiobutton.y = v_radiobutton.y * vdec_heightv_radiobutton.width = v_radiobutton.widt

18、h * vdec_widthv_radiobutton.height = v_radiobutton.height * vdec_heightv_radiobutton.textsize = v_radiobutton.textsize * vdec_widthcase Graph!v_graph = va_window.controlvl_objectv_graph.x = v_graph.x * vdec_widthv_graph.y = v_graph.y * vdec_heightv_graph.width = v_graph.width * vdec_widthv_graph.hei

19、ght = v_graph.height* vdec_heightcase Rectangle!v_rectangle = va_window.controlvl_objectv_rectangle.x = v_rectangle.x * vdec_widthv_rectangle.y = v_rectangle.y * vdec_heightv_rectangle.width = v_rectangle.width * vdec_widthv_rectangle.height = v_rectangle.height * vdec_heightcase GroupBox!v_groupbox

20、 = va_window.controlvl_objectv_groupbox.x = v_groupbox.x * vdec_widthv_groupbox.y = v_groupbox.y * vdec_heightv_groupbox.width = v_groupbox.width * vdec_widthv_groupbox.height = v_groupbox.height * vdec_heightv_groupbox.textsize = v_groupbox.textsize * vdec_widthcase RichTextEdit!v_richtextedit = va

21、_window.controlvl_objectv_richtextedit.x = v_richtextedit.x * vdec_widthv_richtextedit.y = v_richtextedit.y * vdec_heightv_richtextedit.width = v_richtextedit.width * vdec_widthv_richtextedit.height = v_richtextedit.height * vdec_heightcase HScrollBar!v_HScrollBar = va_window.controlvl_objectv_HScro

22、llBar.x = v_HScrollBar.x * vdec_widthv_HScrollBar.y = v_HScrollBar.y * vdec_heightv_HScrollBar.width = v_HScrollBar.width * vdec_widthv_HScrollBar.height = v_HScrollBar.height * vdec_heightcase RoundRectangle!v_RoundRectangle = va_window.controlvl_objectv_RoundRectangle.x = v_RoundRectangle.x * vdec

23、_widthv_RoundRectangle.y = v_RoundRectangle.y * vdec_heightv_RoundRectangle.width = v_RoundRectangle.width * vdec_widthv_RoundRectangle.height = v_RoundRectangle.height * vdec_heightcase Line!v_line = va_window.controlvl_objectv_line.beginx = v_line.beginx * vdec_widthv_line.beginy = v_line.beginy *

24、 vdec_heightv_line.endx = v_line.endx * vdec_widthv_line.endy = v_line.endy * vdec_height8.1.1 case SingleLineEdit!v_SingleLineEdit = va_window.controlvl_objectv_SingleLineEdit.x = v_SingleLineEdit.x * vdec_widthv_SingleLineEdit.y = v_SingleLineEdit.y * vdec_heightv_SingleLineEdit.width = v_SingleLi

25、neEdit.width * vdec_widthv_SingleLineEdit.height = v_SingleLineEdit.height * vdec_heightv_SingleLineEdit.textsize = v_SingleLineEdit.textsize * vdec_widthcase ListBox!v_ListBox = va_window.controlvl_objectv_ListBox.x = v_ListBox.x * vdec_widthv_ListBox.y = v_ListBox.y * vdec_heightv_ListBox.width =

26、v_ListBox.width * vdec_widthv_ListBox.height = v_ListBox.height * vdec_heightv_ListBox.textsize = v_ListBox.textsize * vdec_widthcase StaticText!v_statictext = va_window.controlvl_objectv_statictext.x =v_statictext.x * vdec_widthv_statictext.y = v_statictext.y * vdec_heightv_statictext.width = v_sta

27、tictext.width * vdec_widthv_statictext.height = ( v_statictext.height * vdec_height )/0.8v_statictext.textsize = v_statictext.textsize * vdec_widthcase ListView!v_listView = va_window.controlvl_objectv_listView.x = v_listView.x * vdec_widthv_listView.y = v_listView.y * vdec_heightv_listView.width = v_listView.width * vdec_widthv_listView.height = v