泡泡乐园欢迎各位朋友光临!
.NET2005中如何定位窗体的位置和大小
上一篇 /
下一篇 2006-11-11 22:56:23
/ 个人分类:学习
SupeSite/X-Space官方站:t$[4f5l]&R"K
HPublic Class Form1SupeSite/X-Space官方站1D/AGDZ*`.d
Private loaded As Boolean = FalseSupeSite/X-Space官方站5CGk\r4u+T
SupeSite/X-Space官方站|*quF7}:@(}nB Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosedSupeSite/X-Space官方站G o+};~u4Y
My.Settings.Save()SupeSite/X-Space官方站)ih0m]5D@
End Sub
VQ&?f/yr.a0 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSupeSite/X-Space官方站(Z
I:ZZ,N
With My.Settings
F]T-YSIT0 Me.Size = New Size(.Width, .Height)SupeSite/X-Space官方站Q)D"?)A2FY
Me.Location = New Point(.Left, .Top)SupeSite/X-Space官方站8w.D L}UwD6}/D!t
End With
p[w3C.j1@4\3^0 loaded = True
0B~Xh |0 End SubSupeSite/X-Space官方站?8QPjk0im tm
SupeSite/X-Space官方站(b4v6w;V
Z\Qu Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MoveSupeSite/X-Space官方站 L%gY^#?o;P$z*U
If loaded ThenSupeSite/X-Space官方站H.asRa h6^`e
With My.SettingsSupeSite/X-Space官方站6Y#o`^WJ
.Top = Me.Top
L5R4MN|6zL0 .Left = Me.LeftSupeSite/X-Space官方站(]GYH$u(c
qB U
.Height = Me.Height
$}J/ro4kWe0 .Width = Me.Width
(h6c7m7VrXAP!}bP0 End WithSupeSite/X-Space官方站6BdT0AoD/A5t$R
End IfSupeSite/X-Space官方站TBrk\/t.OfX7f
End SubSupeSite/X-Space官方站:|.L2|2V@t3]W}
SupeSite/X-Space官方站)wG#b{"J Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeSupeSite/X-Space官方站@uG&z'C
If loaded Then
_ i"l/~\8js0 With My.SettingsSupeSite/X-Space官方站
l*qkcnaV1\#A
.Top = Me.TopSupeSite/X-Space官方站d~g'^t3X
.Left = Me.LeftSupeSite/X-Space官方站(D%^'u(Ws%a0V,N
.Height = Me.Height
6GQ*F%J*Jr8{0 .Width = Me.Width
Y"e2e1lW7e/H;G)OH0 End WithSupeSite/X-Space官方站VlP*_[rv+T*H
End If
:J?h U4h#Ry0 End Sub
z0F!q&b![G#N0End Class
;X
Y"wvsAT0
Y
_+B(vse$uf"f0
导入论坛
收藏
分享给好友
管理
举报
TAG:
学习