你说的是视频播放文件的大小与picture控件大小不一致吧?那好办:
Private Sub Form_Resize()
'设置播放控件picPlayWindow的大小与所在窗体大小一致
With frmPlayer.picVideoWindow
.Left = 0
.Top = 0
.Height = frmPlayer.Height
.Width = frmPlayer.Width
End With
If Not m_objVideoWindow Is Nothing Then
With m_objVideoWindow
.Left = 0
.Top = 0
.Height = frmPlayer.Height \ 15
.Width = frmPlayer.Width \ 15
.Owner = picVideoWindow.hWnd
End With
Else
frmChange = True
End If
End Sub
在用同样的方式设置picture空间与窗体的大小一致就行了