如何控制界面、窗体外观

Question

1.在不同分辨率下窗体不变形，请举个例子。我在1280x1024下开发，换到1024x768 窗体变形了。2.怎么控制子窗体跟父窗体的位置关系 比如：子窗体必须在父窗体之上，位置在父窗体的中间请各位给予关注，谢谢！

Answer 1

1. 分辨率应该不会有异常,可以用screen对象
2. 用模式窗体,StartUpPosition=1-所有者中心

Answer 2

1.你画了张大的画,结果装到了一个小的框子里,当然会有问题咯... 你可以把窗体的大小给改改改成1280*1024
  比如GETMINMAXINFO之类的,BAIDU下一大把... 相信不会找不到
2.如上

Answer 3

在from里定义
'------------------------------------------
    '窗体对象数据
    '------------------------------------------
    Dim frm_main_objects() As objectinfo
    Dim frm_main_effectobjects() As Object
    Private frm_main_noofobjects As Integer
    Private frm_main_startwidth As Long
    Private frm_main_startheight As Long
form_load里边
'缩放
    frm_main_startwidth = Me.width
    frm_main_startheight = Me.height
    restrictform MeForm_Unload() unrestrictform MeForm_Resize() '以前你可能需要写入很多缩放窗体内控件的代码，现在仅仅需要一句代码即可搞定
    '你只要在要缩放的控件的TAG属性值里设置标志，然后使用下面的语句即可
'    Autosizeform frm_main_objects, frm_main_effectobjects, frm_main_startwidth, frm_main_startheight, frm_main_noofobjects, Me

Answer 4

太长了，你发我邮件吧[email protected]

Answer 5

Form_Resize() 
'以前你可能需要写入很多缩放窗体内控件的代码，现在仅仅需要一句代码即可搞定 
    '你只要在要缩放的控件的TAG属性值里设置标志，然后使用下面的语句即可 
'    Autosizeform frm_main_objects, frm_main_effectobjects, frm_main_startwidth, frm_main_startheight, frm_main_noofobjects, Me 楼上的 TAG属性的值怎么设置的啊