就是我怎么编写resize事件使最大化窗体的同时,窗体里面的控件也放大,但控件在窗体中的位置不变??
解决方案 »
- 项目中用到excel功能。需要将excel.exe打包进去吗? (office2000时打包excle9.olb,可是office2003打谁呀)
- 好难的SQL语句……
- 大侠帮个忙,如果判断richtextbox里面是图片还是文字?没多少分了。。。不要嫌少啊
- vb和excel数据库的问题?
- 有关MsHFlexGrid的问题,请高手指点。
- 急求源代码!!!在线等~~~~
- 高手请进:请问如何保存和读取句柄相关数据?
- 在vb中有没有很好的第三方控件做报表的?
- 注册vb6chs.dll的问题
- VB实现大字段
- 如何用鼠标改变控件的大小~~~~~
- 如何监控屏幕上的某个点的颜色是否发生变化,如果这个点变化的比较快的话,怎样才能保证不漏检?
'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
frmOld_w = FormName.ScaleWidth
frmOld_h = 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 Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double ScaleX = FormName.ScaleWidth / frmOld_w '保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / frmOld_h '保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小
TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, _
Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next Obj
On Error GoTo 0
End SubPrivate Sub Form_Load()
Call ResizeInit(Me)
End SubPrivate Sub Form_Resize()
Call ResizeForm(Me)
End Sub对有的控件可能不起作用,只是供你参考
Private frmOld_h As Long '保存窗体的原始高度