module1.bas

来自「VB程序设计示例及源代码,这是某本书中的一些例子与源代码,是清华大学出版社的.」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Option Explicit

Public Sub DispCard(PicSource As PictureClip, PicObject As Image, ByVal cardtype As Integer, ByVal value As Integer)
    If value > 13 Then value = value - 13         ' 对该参数进行简单的容错处理
    PicSource.ClipX = (value - 1) * 73
    PicSource.ClipY = (cardtype - 1) * 99
    PicSource.ClipWidth = 73
    PicSource.ClipHeight = 99
    PicObject.Picture = PicSource.Clip
End Sub