etxbdg.frm

vod 点歌系统,VB开发,操作相对比较简单.

VERSION 5.00
Begin VB.Form EtXbdg 
   BackColor       =   &H00800000&
   BorderStyle     =   0  'None
   ClientHeight    =   4800
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6015
   FillColor       =   &H00404040&
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00404040&
   Icon            =   "EtXbdg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   99  'Custom
   ScaleHeight     =   4800
   ScaleWidth      =   6015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton SongXbdg 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   2190
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3060
      Width           =   1575
   End
   Begin VB.CommandButton SongXbdg 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2160
      Width           =   1125
   End
   Begin VB.CommandButton SongXbdg 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1260
      Width           =   1125
   End
   Begin VB.CommandButton BackBtn 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2430
      MaskColor       =   &H000000FF&
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   4260
      Width           =   1140
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "性别点歌"
      ForeColor       =   &H0000FFFF&
      Height          =   240
      Left            =   2460
      TabIndex        =   1
      Top             =   240
      Width           =   960
   End
   Begin VB.Image CaptionImgMin 
      Height          =   540
      Left            =   0
      Stretch         =   -1  'True
      Top             =   0
      Width           =   6000
   End
   Begin VB.Shape Shape1 
      BorderStyle     =   6  'Inside Solid
      DrawMode        =   8  'Xor Pen
      Height          =   3405
      Left            =   120
      Top             =   660
      Width           =   5775
   End
End
Attribute VB_Name = "EtXbdg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub BackBtn_Click()
  Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer
  Picture = LoadPicture(App.Path + "\Pic\BackImgMin.bmp")
  CaptionImgMin.Picture = LoadPicture(App.Path + "\Pic\CaptionMin.bmp")
  BackBtn.Picture = LoadPicture(App.Path + "\Pic\返回.bmp")
  SongXbdg(0).Picture = LoadPicture(App.Path + "\Pic\女歌手.bmp")
  SongXbdg(1).Picture = LoadPicture(App.Path + "\Pic\男歌手.bmp")
  SongXbdg(2).Picture = LoadPicture(App.Path + "\Pic\歌手组合.bmp")
End Sub

Private Sub SongXbdg_Click(Index As Integer)
  Unload Me
  EtKlokMain.ListItemShow Trim(EtKlokMain.SelectName.Caption), "Where Song_GXXB=" + Trim(Str(Index))
End Sub