将图片「非重叠显示」填满整个表格视窗

页面导航:首页 > 软件编程 > vb.net > 将图片「非重叠显示」填满整个表格视窗

将图片「非重叠显示」填满整个表格视窗

来源: 作者: 时间:2016-02-05 12:32 【

----所需物件: PictureBox 一个。 ----程式码(一):tile.basDeclare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, _ByVa

 

 

 

 ----所需物件: PictureBox 一个。

 

 ----程式码(一):tile.bas

Declare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, _

ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, _

ByVal dwRop&) As Integer

 

 ----程式码(二):

Sub Form_Paint ()

    Const PIXEL = 3

    Picture1.ScaleMode = PIXEL

    Me.ScaleMode = PIXEL

    X% = 0: Y% = 0

    nWidth% = Picture1.Width

    nHeight% = Picture1.Height

    dwRop& = &HCC0020

    Do While Y% < ScaleHeight

        Do While X% < ScaleWidth

            Suc% = BitBlt(Me.hDC, X%, Y%, nWidth%, nHeight%, Picture1.hDC, 0, 0, dwRop&)

            X% = X% + nWidth%

        Loop

        X% = 0

        Y% = Y% + nHeight%

    Loop

End Sub

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <