我在按自己的电脑(19LCD)屏幕设置了界面的大小,但是打包后在其他的机子上运行的时候才发现由于电脑的屏幕(17)小而界面无法显示完全(最大和正常化都无法显示完全)。请问大家这个问题该什么解决?我该如何设置界面的属性(或设置代码)让程序在任何电脑上都能按比例缩放,完全显示,而不会出现屏幕小的时候显示不全的问题!恳请大家帮帮忙,谢谢啦!

解决方案 »

  1.   

    VB的程序你可以用下面的方法试试:1、工程--引用--找到一个名字好像是 ActiveResize的dll
    2、在界面的最上面写 Dim SControl As AutoControl
    3、在Form_Load中加:Set SControl = New AutoControl
                       Let SControl.parentForm = Me
                       Let SControl.setBound = True
                       SControl.AutoSize
    4、在Form_Resize中加:SControl.AutoSize
    5、在Form_Unload中加:Set SControl = Nothing
      

  2.   

    用这个方法:
    http://stanleyzcm.spaces.live.com/blog/cns!30AF46EBC360C441!725.entry
      

  3.   

    抱歉,没有给出窗体中的相关代码。
    窗体中需要添加的代码如下:
    Option Explicit
    Dim Obj_Size() As String  '窗体各控件大小、位置初始值Private Sub Form_Load()    '-------------------------------------------
        '将窗体各控件大小及位置的初始值保存到数组中
        ReDim Obj_Size(Me.Count, 1)
        Call ResizeInit(Me, Obj_Size)
        '-------------------------------------------
        
    End SubPrivate Sub Form_Resize()    '-----------------------------
        '窗体改变大小时控件随之改变
        Call ResizeForm(Me, Obj_Size)
        '-----------------------------End Sub