module1.bas

来自「visual basic 6.0中文版范例入门与提高」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Public Num As Long
Public Sub DispCard(PicSource As PictureClip, PicObject As Image, ByVal cardtype As Integer, ByVal value As Integer)
    PicSource.ClipX = (value - 1) * 73
    PicSource.ClipY = (cardtype - 1) * 99
    PicSource.ClipWidth = 73
    PicSource.ClipHeight = 99
    PicObject.Picture = PicSource.Clip
End Sub