请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 16:52:56
请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth
xT]oP+'^,T+0%`Fʴp3Y[L uKqi 9݄]ypyҌ31}}lX}ghɞ509vF{0>;uތq ; _΋\o0Ir8ntvuej!-pkXkX>D͖f;jQz mhYXEmPVXǚI~ERUьBRLj R.瞕%DœX@L&4:tu~ Pk-EQ ZeVR3{Z ,+ ]w6Lt{X .TL\I%7Xi) wH`[ 21gy0+(!ru"p0,XbC͂倍hԁ eiu$ FA^]E/ͱ~-&RS@ەP=%ׁ M}5ojhtp9Fp%܅"&x9< ͢{zO;_c eU\/;2)C/j8

请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.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?

请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth vb :请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form) Dim Obj As Control FormOldWidth = FormName.Scal 请问各位大侠,绿鞋是什么意思． 请问各位大侠“Compound”这个词是什么意思? 请问各位大侠这个电气符号是什么意思? 郎骑竹马来,绕床弄青梅.同居长干里,两小无嫌猜.这是什么意思?请问一下,各位XDJM们,这是传说吗?每句都是什么意思?谢谢了! 请问各位大侠, 各位大侠们,请问master degree和bachelor,graduate diploma, graduate certificate都分别是什么意思,还有什么区别? 请问各位大侠,直线坐标画圆是什么意思. coupon是什么意思 (有关电路板的)客户在回复中提到可否使用coupon,并提供了代码.以前没有接触过,请问这是怎么回事?请各位知道的大侠告知, 各位大侠,这是什么意思啊? Xcode显示lost connection以前都没有遇见过这个问题,今天一运行代码都显示lost connection,以前代码都不能运行了,还请各位大侠指教啊, 请问各位达人、大侠：这些泰语都是什么意思?รับเอมเป&请问各位达人、大侠：这些都是什么意思?我都快晕菜了!1.mayooyoo的泰语是不是这么写?〉ภา cherry是什么意思?cherry是什么意思啊?各位大侠! 请问各位大侠：制度化、规范化、科学化.的“化”字是什么意思啊!要详细一点的.谢谢! 请问各位大侠 我的邮件到了当地处理中心是什么意思啊? 各位大侠··谁知道这衣服上的英文都是什么意思? 请问这句代码什么意思?