当前位置:首页 » 程序代码 » 正文

VB编程:在窗体上实现图像平铺

有时我们需要将一个小的图片平铺到整个窗体。这个功能可以用PaintPicture方法来实现。
先在窗体上画一个picturebox控件,控件的picture属性大家自行设置一个小图片,具体代码是:
Private Sub Form_Paint()
    Dim PicW_Sng As Single
    Dim PicH_Sng As Single
    Dim x As Single
    Dim y As Single
   
    '  获取图像的尺寸
    PicW_Sng = Picture1.ScaleWidth
    PicH_Sng = Picture1.ScaleHeight
   
    '  绘制平铺图像
    y = 0
    Do While y < ScaleHeight
        x = 0
        Do While x < ScaleWidth
            PaintPicture Picture1.Picture, x, y
            x = x + PicW_Sng
        Loop
        y = y + PicH_Sng
    Loop
End Sub

运行后,就会看到picturebox控件里的图片平铺到整个窗体了。

 

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/48.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号