关于用VB编出来的软件,

来源：百度知道 编辑：UC知道 时间：2024/05/12 06:11:21
下了个软件打开正常,但最大化后内容不能跟画面拉伸,,背景留下一大片灰色,,请问怎样解决?,

解决不了，人家那个程序就没设置最大化的界面。

Private Sub Form_Resize()

If Me.WindowState <> 1 Then

控件.Left = 10

控件.Width = Me.Width - 120

控件.Height = Me.Height - 600

End If

End Sub

在程序上加入这段代码就可解决！

让软件不能最大化不就行了。
将窗体的BoederStyle设置为1
minbutton设置为true

Option Explicit
Private FormOldWidth As Long
'保存窗体的原始宽度
Private FormOldHeight As Long
'保存窗体的原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " _
& Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub
'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Public