?? module1.bas
字號:
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 ' 對該參數(shù)進行簡單的容錯處理
PicSource.ClipX = (value - 1) * 73
PicSource.ClipY = (cardtype - 1) * 99
PicSource.ClipWidth = 73
PicSource.ClipHeight = 99
PicObject.Picture = PicSource.Clip
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -