::电驴基地:: - Powered by Discuz! Board

标题: (VB)如何并排图形，以填满Form [打印本页]

作者: 毛主席 时间: 2007-10-11 09:34 标题: (VB)如何并排图形，以填满Form

如何并排图形，以填满Form

Private Sub Form_Paint()
Dim i As Long, j As Long, x As Single, y As Single
x = ScaleX(Picture.Width)
y = ScaleX(Picture.Height)
For i = 0 To ScaleWidth \ x
For j = 0 To ScaleHeight \ y
PaintPicture Picture, i * x, j * y
Next
Next
End Sub

欢迎光临 ::电驴基地:: (https://www.cmule.com/)