早教吧作业答案频道 -->其他-->
vb:请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.PrivateFormOldWidthAsLongPrivateFormOldHeightAsLongPublicSubresizeinit(FormNameAsForm)DimObjAsControlFormOldWidth=FormName.Scal
题目详情
vb :请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.
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 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
▼优质解答
答案和解析
gxhbsx
看了vb:请问各位大侠,以下代码每...的网友还看了以下:
正三棱锥V-ABC(顶点在底面的射影是底面正三角形的中心)中,D,E,F分别是VC,VA,AC的中 2020-04-24 …
VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡 2020-05-13 …
静电场中,带点粒子在电场力作用下,从电势为Ua的A电运动到电视为Ub的B电,A,B两点的速度是Va 2020-05-15 …
无穷小的疑问lim(x→0)[f(x)/g(x)]=A(非零常数)其中lim(x→0)g(x)=0 2020-05-19 …
下列可作为VB中所允许的形式的数是()A)10^(1.256)B)D32C)2.5ED)12E3很 2020-06-09 …
求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除.要求每行输出10个素数 2020-06-10 …
vb冒泡排序,快救救我吧.我都混乱死了.到底计算机每一步怎么算出来的?不如对251634这几个书, 2020-06-11 …
老师生日到底是几号小明和小强是张老师的学生,张老师的生日是M月N日.在下面十组日期里只有一个是张老 2020-06-11 …
小郑,小周,小吴三人中,一个是农民,一个是工人,一个是知识分子.已知小郑的年龄比知识分子大,小周的 2020-06-30 …
从1到33中任选7个数,数值之和的分布概率从自然数1到33中任意选出7个数字,它们的和有28,29 2020-07-09 …