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