蝶恋鼠.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   213
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.Text = X
    Text2.Text = Y
End Sub

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim XX(3) As Single, YY(3) As Single
    Static CX(3) As Single, CY(3) As Single
    Dim I As Long
    DrawWidth = 5
    For I = 0 To 3
        PSet (CX(I), CY(I)), Me.BackColor
        XX(I) = Rnd * 30 - 10 + X
        YY(I) = Rnd * 30 - 10 + Y
    Next I
    For I = 0 To 3
        PSet (XX(I), YY(I)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        CX(I) = XX(I)
        CY(I) = YY(I)
    Next I
    DrawWidth = 1
    'Text1.Text = X
    'Text2.Text = Y
End Sub