snow.frm

车次查询－输入要查询的车次既可查询车次所有的停靠站 站点查询－输入一个站点

VERSION 5.00
Begin VB.Form wel_frm 
   BorderStyle     =   0  'None
   Caption         =   "请点击窗体进入"
   ClientHeight    =   7125
   ClientLeft      =   2385
   ClientTop       =   1335
   ClientWidth     =   10695
   Icon            =   "snow.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "snow.frx":08CA
   ScaleHeight     =   7125
   ScaleWidth      =   10695
   ShowInTaskbar   =   0   'False
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "进入"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   855
      Left            =   8760
      TabIndex        =   1
      Top             =   5880
      Width           =   1215
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      Height          =   1560
      Left            =   7800
      Picture         =   "snow.frx":209B8
      Top             =   5160
      Width           =   2460
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "南昌市公交车查询系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1815
      Left            =   840
      TabIndex        =   0
      Top             =   360
      Width           =   8775
   End
End
Attribute VB_Name = "wel_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Snow(1000, 2), Amounty As Integer
Private Sub Form_Load()
   
    wel_frm.Show
    DoEvents
    Randomize
    Amounty = 325
    
    For j = 1 To Amounty
    Snow(j, 0) = Int(Rnd * wel_frm.Width)
    Snow(j, 1) = Int(Rnd * wel_frm.Height)
    Snow(j, 2) = 10 + (Rnd * 20)
    Next j
    
    Do While Not (DoEvents = 0)
    For LS = 1 To 10
     For i = 1 To Amounty
      Snow(i, 1) = Snow(i, 1) + Snow(i, 2)
      If Snow(i, 1) > wel_frm.Height Then
        Snow(i, 1) = 0: Snow(i, 2) = 2 + (Rnd * 30)
        Snow(i, 0) = Int(Rnd * wel_frm.Width)
      End If
      Circle (Snow(i, 0), Snow(i, 1)), 15 * Rnd, RGB(255, 255, 255)
     Next i
     wel_frm.Cls
    Next LS
    Loop
    End
End Sub
   
Private Sub Image1_Click()
 
 den_frm.Show
 Me.Hide
End Sub