Private Sub Form_Resize() Me.Picture1.Move 0, 0, Me.Width, Me.Height End SubPrivate Sub Picture1_Resize() Me.ListView1.Move 0, 0, Picture1.Width, Picture1.HeightEnd Sub
Private Sub Form_Resize() Me.Picture1.Move 0, 0, Me.Width, Me.Height Me.ListView1.Move 0, 0, Picture1.Width, Picture1.Height End Sub 不知道行不行了。
Private Sub Form_Resize() with listview1 .top=0 .left=0 .width=picture1.width .height=picture1.height end with End Sub
我是这么用的:在form_Resize中控制Picture的大小,然后如下:Private Sub picture1_Resize()
有没有在Resize的时候清空ListView?
Me.Picture1.Move 0, 0, Me.Width, Me.Height
End SubPrivate Sub Picture1_Resize()
Me.ListView1.Move 0, 0, Picture1.Width, Picture1.HeightEnd Sub
Me.Picture1.Move 0, 0, Me.Width, Me.Height
Me.ListView1.Move 0, 0, Picture1.Width, Picture1.Height
End Sub
不知道行不行了。
with listview1
.top=0
.left=0
.width=picture1.width
.height=picture1.height
end with
End Sub
On Error GoTo errHandler lvw.Top = 0
lvw.Left = 0
lvw.Width = picture1.Width
lvw.Height = picture1.Height
Exit Sub
errHandler:End Sub
唉,没办法,没人能解决啊!!!