VB,Picture图片怎么才能实现随窗体变化而变化？

要简便一点的代码，打上注释。谢谢。

举报该文章

相关建议 2015-07-02

ä»£ç å¢ï¼

è¿½çPrivate Sub Form_Load()
    Image1.Stretch = True
    Picture1.Left = 0
    Picture1.Top = 0
    Image1.Left = 0
    Image1.Top = 0
End Sub

Private Sub Form_Resize()
    Picture1.Width = Me.Width
    Picture1.Height = Me.Height
    Image1.Width = Picture1.Width
    Image1.Height = Picture1.Height
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fms44qfqsp2smf47pp7.html

其他看法

第1个回答推荐于2016-08-12

Dim x!, y! '这里要定义两个模块变量，用以记录两比值
Private Sub Form_Load() '加载窗体时，获取图片框宽度，高度与窗体宽度，高度的比值
x = Picture1.Width / Me.Width
y = Picture1.Height / Me.Height
End Sub

Private Sub Form_Resize() '当窗体发生大小变化时，重新设定图片框的宽度和高度
Picture1.Width = x * Me.Width
Picture1.Height = y * Me.Height
End Sub本回答被提问者采纳

相似回答

大家正在搜