皮皮网

1.扫雷小游戏vb设计程序

扫雷小游戏vb设计程序

       Public nn As Long

       Public n As Long

       Public x,扫雷扫雷xpack源码修改 y As Long

       Private Sub Form_Load()

        nn = 0

        n = 1

        ''Picture1(i).Picture = "地址"

        Picture1(i).Width =

        Picture1(i).Height =

        Timer1.Interval =

        Timer1.Enabled = True

        Label1.Caption = 0

        Picture1(0).Visible = False

       End Sub

       Private Sub Picture1_Click(Index As Integer)

        nn = nn + 1

        Unload Picture1(Index)

        Label1.Caption = nn

       End Sub

       Private Sub Timer1_Timer()

        Randomize

        x = Int((Form1.Width - + 1) * Rnd + )

        y = Int((Form1.Height - + 1) * Rnd + )

        Load Picture1(n)

        Picture1(n).Left = x

        Picture1(n).Top = y

        Picture1(n).Visible = True

        n = n + 1

        if nn>= then

        timer1.enable=false

        ''执行语句

        end if

       End Sub

       打窗口上随机出现的砖块游戏