form1.frm

很多的vb经典源代码

VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "随机产生三张扑克牌"
   ClientHeight    =   1920
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6180
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1920
   ScaleWidth      =   6180
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "随机三张牌"
      Height          =   375
      Left            =   5040
      TabIndex        =   0
      Top             =   720
      Width           =   1095
   End
   Begin PicClip.PictureClip PictureClip1 
      Left            =   1560
      Top             =   2640
      _ExtentX        =   2566
      _ExtentY        =   1296
      _Version        =   393216
   End
   Begin VB.Image Image3 
      Height          =   1575
      Left            =   3000
      Top             =   120
      Width           =   1215
   End
   Begin VB.Image Image2 
      Height          =   1575
      Left            =   1560
      Top             =   120
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   1575
      Left            =   120
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim RndValue, RndCardType  As Integer
    RndValue = Int(Rnd * 13) + 1
    RndCardType = Int(Rnd * 4) + 1
    DispCard PictureClip1, Image1, RndCardType, RndValue
    RndValue = Int(Rnd * 13) + 1
    RndCardType = Int(Rnd * 4) + 1
    DispCard PictureClip1, Image2, RndCardType, RndValue
    RndValue = Int(Rnd * 13) + 1
    RndCardType = Int(Rnd * 4) + 1
    DispCard PictureClip1, Image3, RndCardType, RndValue

End Sub

Private Sub Form_Load()
    PictureClip1.Picture = LoadPicture("c:\samples\cards.bmp")
    Randomize

End Sub