scroll.bas

一个很好的多媒体播放器

Attribute VB_Name = "mAPI"

'****************************************************************************
'人人为我，我为人人
'发布日期：2007/04/06
'描    述：即搜即听的网络播放器
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
'''    界面设计，歌词显示，操作设计  '''
'''      即搜即听的网络播放器        '''
'''      孙凤鸣设计 2007.3.15       '''
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
Option Explicit

Public Type RECT
    Left   As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type

Public Const EM_FMTLINES As Long = &HC8

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function timeGetTime Lib "winmm.dll" () As Long
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Declare Function ScrollDC Lib "user32" (ByVal hdc As Long, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As Long, lprcUpdate As RECT) As Long
Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long