eqfrm.frm

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

         BorderStyle     =   0  'None
         Height          =   210
         Left            =   0
         ScaleHeight     =   210
         ScaleWidth      =   4125
         TabIndex        =   3
         Top             =   0
         Width           =   4130
         Begin VB.PictureBox EQTitleBar 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            BackColor       =   &H00C0FFC0&
            BorderStyle     =   0  'None
            Height          =   70
            Index           =   1
            Left            =   2760
            ScaleHeight     =   75
            ScaleWidth      =   45
            TabIndex        =   18
            Top             =   80
            Visible         =   0   'False
            Width           =   50
         End
         Begin VB.PictureBox EQTitleBar 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            BackColor       =   &H00C0C0FF&
            BorderStyle     =   0  'None
            Height          =   70
            Index           =   0
            Left            =   1920
            ScaleHeight     =   75
            ScaleWidth      =   45
            TabIndex        =   17
            Top             =   80
            Visible         =   0   'False
            Width           =   50
         End
         Begin VB.Image EQBar 
            Height          =   135
            Index           =   1
            Left            =   3800
            ToolTipText     =   "切换到条形窗口模式"
            Top             =   50
            Width           =   135
         End
         Begin VB.Image EQBar 
            Height          =   135
            Index           =   0
            Left            =   3960
            ToolTipText     =   "关闭"
            Top             =   50
            Width           =   135
         End
      End
   End
   Begin VB.PictureBox Skin_7 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      Height          =   645
      Left            =   1200
      Picture         =   "EQfrm.frx":50490
      ScaleHeight     =   645
      ScaleWidth      =   765
      TabIndex        =   1
      Top             =   1920
      Width           =   765
   End
   Begin VB.PictureBox Skin_6 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      Height          =   615
      Left            =   240
      Picture         =   "EQfrm.frx":8FFA6
      ScaleHeight     =   615
      ScaleWidth      =   765
      TabIndex        =   0
      Top             =   1920
      Width           =   765
   End
End
Attribute VB_Name = "EQfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020
Public ButtonOnFlag As Boolean
Public ButtonAutoFlag As Boolean
Public ButtonPresetFlag As Boolean
Public SimpleFlag3 As Boolean
Dim i As Integer

Dim EQScrollFlag As Boolean
Dim EQScrollX As Integer
Dim EQScrollY As Integer

Private Sub ButtonAuto_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub ButtonAuto_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
If ButtonAutoFlag = True Then '36,95,154,213
 BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 213, 119, SRCCOPY
 ButtonAuto.Refresh
Else
 BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 154, 119, SRCCOPY
 ButtonAuto.Refresh
End If
End Sub
Private Sub ButtonAuto_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If ButtonAutoFlag = True Then
 If y >= 0 And y <= ButtonAuto.Height And x >= 0 And x <= ButtonAuto.Width Then
  BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 36, 119, SRCCOPY
  ButtonAuto.Refresh
  ButtonAutoFlag = False
 Else
  BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 95, 119, SRCCOPY
  ButtonAuto.Refresh
 End If
Else
 If y >= 0 And y <= ButtonAuto.Height And x >= 0 And x <= ButtonAuto.Width Then
  BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 95, 119, SRCCOPY
  ButtonAuto.Refresh
  ButtonAutoFlag = True
 Else
  BitBlt ButtonAuto.hDC, 0, 0, 32, 12, Skin7.hDC, 36, 119, SRCCOPY
  ButtonAuto.Refresh
 End If
End If
End Sub

Private Sub ButtonOn_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub ButtonOn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
If ButtonOnFlag = True Then '10,69,128,187
 BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 187, 119, SRCCOPY
 ButtonOn.Refresh
Else
 BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 128, 119, SRCCOPY
 ButtonOn.Refresh
End If
End Sub
Private Sub ButtonOn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If ButtonOnFlag = True Then
 If y >= 0 And y <= ButtonOn.Height And x >= 0 And x <= ButtonOn.Width Then
  BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 10, 119, SRCCOPY
  ButtonOn.Refresh
  ButtonOnFlag = False
 Else
  BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 69, 119, SRCCOPY
  ButtonOn.Refresh
 End If
Else
 If y >= 0 And y <= ButtonOn.Height And x >= 0 And x <= ButtonOn.Width Then
  BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 69, 119, SRCCOPY
  ButtonOn.Refresh
  ButtonOnFlag = True
 Else
  BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 10, 119, SRCCOPY
  ButtonOn.Refresh
 End If
End If
End Sub

Private Sub ButtonPreset_Click()
EQfrmAct
ClearSonButton
If ButtonPresetFlag = True Then
 BitBlt ButtonPreset.hDC, 0, 0, 45, 12, Skin7.hDC, 224, 164, SRCCOPY
 ButtonPreset.Refresh
 ButtonPresetFlag = False
Else
 BitBlt ButtonPreset.hDC, 0, 0, 45, 12, Skin7.hDC, 224, 176, SRCCOPY
 ButtonPreset.Refresh
 ButtonPresetFlag = True
End If
End Sub

Private Sub ButtonPreset_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub EQScrollBar_Click(Index As Integer)
EQfrmAct
ClearSonButton
End Sub
Private Sub EQScrollBar_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub EQScrollBar1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub EQScrollBar1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
BitBlt EQScrollBar1(Index).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 176, SRCCOPY
EQScrollBar1(Index).Refresh
EQScrollFlag = True
EQScrollY = y
End Sub
Private Sub EQScrollBar1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If EQScrollFlag = True Then
  If EQScrollBar1(Index).Top <= 10 Then
   EQScrollBar1(Index).Top = 11
  ElseIf EQScrollBar1(Index).Top >= 750 Then
   EQScrollBar1(Index).Top = 749
  End If
  EQScrollBar1(Index).Top = EQScrollBar1(Index).Top + y - EQScrollY
  If EQScrollBar1(Index).Top <= 378 Then
   BitBlt EQScrollBar(Index).hDC, 0, 0, 15, 80, Skin7.hDC, ((13 - ((EQScrollBar1(Index).Top \ 27))) * 15 + 13), 229, SRCCOPY
   EQScrollBar(Index).Refresh
  Else
   BitBlt EQScrollBar(Index).hDC, 0, 0, 15, 80, Skin7.hDC, ((27 - ((EQScrollBar1(Index).Top \ 27))) * 15 + 13), 164, SRCCOPY
   EQScrollBar(Index).Refresh
  End If
End If
End Sub
Private Sub EQScrollBar1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If EQScrollBar1(Index).Top <= 10 Then
 EQScrollBar1(Index).Top = 11
ElseIf EQScrollBar1(Index).Top >= 750 Then
 EQScrollBar1(Index).Top = 749
End If
BitBlt EQScrollBar1(Index).hDC, 0, 0, 18, 10, Skin7.hDC, 0, 164, SRCCOPY
EQScrollBar1(Index).Refresh
EQScrollFlag = False '
End Sub

Private Sub EQ_Skin_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub EQ_Skin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub EQ_Skin_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, EQfrm
End Sub
Private Sub EQ_Skin_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub EQBar_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
Select Case Index
 Case 0
  BitBlt EQTitle.hDC, 264, 3, 8, 8, Skin6.hDC, 11, 47, SRCCOPY
  EQTitle.Refresh
 Case 1
  BitBlt EQTitle.hDC, 254, 3, 8, 8, Skin6.hDC, 1, 47, SRCCOPY
  EQTitle.Refresh
End Select
End Sub

Private Sub EQBar_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
 Case 0
  If y >= 0 And y <= EQBar(0).Height And x >= 0 And x <= EQBar(0).Width Then
   Me.Hide
   BitBlt Mainfrm.Skin_Eq.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 0, 61, SRCCOPY
   Mainfrm.Skin_Eq.Refresh
   Mainfrm.Skin_Pl.ToolTipText = "显示EQ"
   Me.Hide
   Mainfrm.EQFlag = False
   MenuFrm.TrayMenu_Eqfrm.Checked = False
   MenuFrm.MainfrmMenu_Eqfrm.Checked = False
  Else
   BitBlt EQTitle.hDC, 264, 3, 8, 8, Skin6.hDC, 11, 38, SRCCOPY
   EQTitle.Refresh
  End If
 Case 1
  If y >= 0 And y <= EQBar(1).Height And x >= 0 And x <= EQBar(1).Width Then
   If SimpleFlag3 = False Then
    BitBlt EQTitle.hDC, 0, 0, 280, 20, Skin6.hDC, 0, 0, SRCCOPY
    EQTitle.Refresh
    EQfrm.Height = 210
    EQTitleBar(0).Visible = True
    EQTitleBar(1).Visible = True
    SimpleFlag3 = True
    EQBar(1).ToolTipText = "还原EQ"
   Else
    BitBlt EQTitle.hDC, 0, 0, 300, 20, Skin7.hDC, 0, 134, SRCCOPY
    EQTitle.Refresh
    EQfrm.Height = 1740
    EQTitleBar(0).Visible = False
    EQTitleBar(1).Visible = False
    SimpleFlag3 = False
    EQBar(1).ToolTipText = "切换到条形窗口模式"
   End If
   Listfrm.Top = EQfrm.Top + EQfrm.Height
  Else
   BitBlt EQTitle.hDC, 254, 0, 10, 10, Skin6.hDC, 254, 0, SRCCOPY
   EQTitle.Refresh
  End If
End Select
End Sub

Private Sub EQTitle_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub EQTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
EQfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub EQTitle_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, EQfrm
End Sub
Private Sub EQTitle_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Form_Deactivate()
i = i + 1
If i = 1 Then Exit Sub
If SimpleFlag3 = False Then
 BitBlt EQTitle.hDC, 0, 0, 300, 20, Skin7.hDC, 0, 149, SRCCOPY
 EQTitle.Refresh
Else
 BitBlt EQTitle.hDC, 0, 0, 280, 20, Skin6.hDC, 0, 15, SRCCOPY
 EQTitle.Refresh
End If
End Sub

Private Sub Form_Load()
i = 0
Skin6.Picture = Skin_6.Picture
Skin7.Picture = Skin_7.Picture

If SimpleFlag3 = False Then
 BitBlt EQTitle.hDC, 0, 0, 300, 20, Skin7.hDC, 0, 149, SRCCOPY '阴影
Else
 BitBlt EQTitle.hDC, 0, 0, 280, 20, Skin6.hDC, 0, 0, SRCCOPY
 EQTitle.Refresh
 EQfrm.Height = 210
 EQTitleBar(0).Visible = True
 EQTitleBar(1).Visible = True
 EQBar(1).ToolTipText = "还原EQ"
End If
BitBlt EQ_Skin.hDC, 0, 0, 300, 120, Skin7.hDC, 0, 0, SRCCOPY
BitBlt EQScrollBar(0).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(1).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(2).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(3).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(4).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(5).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(6).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(7).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(8).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(9).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt EQScrollBar(10).hDC, 0, 0, 15, 80, Skin7.hDC, 13, 229, SRCCOPY
BitBlt ButtonOn.hDC, 0, 0, 30, 12, Skin7.hDC, 69, 119, SRCCOPY
ButtonOnFlag = True
BitBlt ButtonAuto.hDC, 0, 0, 35, 12, Skin7.hDC, 95, 119, SRCCOPY
ButtonAutoFlag = True
BitBlt ButtonPreset.hDC, 0, 0, 45, 12, Skin7.hDC, 224, 164, SRCCOPY

BitBlt EQScrollBar1(0).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(1).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(2).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(3).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(4).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(5).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(6).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(7).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(8).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(9).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY
BitBlt EQScrollBar1(10).hDC, 0, 0, 15, 15, Skin7.hDC, 0, 164, SRCCOPY

End Sub