请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 10:25:35
![请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth](/uploads/image/z/14069993-41-3.jpg?t=%E8%AF%B7%E9%97%AE%E5%90%84%E4%BD%8D%E5%A4%A7%E4%BE%A0%2C%E4%BB%A5%E4%B8%8B%E4%BB%A3%E7%A0%81%E6%AF%8F%E5%8F%A5%E9%83%BD%E6%98%AF%E4%BB%80%E4%B9%88%E6%84%8F%E6%80%9D%E5%91%80.%E5%B0%8F%E5%BC%9F%E6%89%8D%E7%96%8F%E5%AD%A6%E6%B5%85%2C%E5%AE%9E%E5%9C%A8%E6%98%AF%E4%B8%8D%E7%9F%A5%E9%81%93%E6%88%91.Private+FormOldWidth+As+Long+Private+FormOldHeight+As+Long+Public+Sub+resizeinit%28FormName+As+Form%29Dim+Obj+As+ControlFormOldWidth+%3D+FormName.ScaleWidth)
请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth
请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.
Private FormOldWidth As Long
Private FormOldHeight As Long
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
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 / FormOldWidth
ScaleY = FormName.ScaleHeight / FormOldHeight
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 Sub
Private Sub Form_Resize()
Call ResizeForm(Me)
End Sub
请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth
VB?