skin.bas

来自「这个播放器是自己做的」· BAS 代码 · 共 223 行

Attribute VB_Name = "Module5"
Option Explicit

Public Fso As New FileSystemObject

Public Function PicProc(picSkin As PictureBox) As Long
    Dim i As Long, j As Long, StartLineX As Long
    Dim Fullr As Long, Liner As Long
    Dim TransparentColor As Long
    Dim Firstr As Boolean
    Dim Linei As Boolean
    Dim hdc As Long
    Dim PicWidth As Long
    Dim PicHeight As Long
    hdc = picSkin.hdc
    Firstr = True
    Linei = False
    i = 0
    j = 0
    PicWidth = picSkin.ScaleWidth
    PicHeight = picSkin.ScaleHeight
    StartLineX = 0
    TransparentColor = GetPixel(hdc, 0, 0)
    For j = 0 To PicHeight - 1
        For i = 0 To PicWidth - 1
            If GetPixel(hdc, i, j) = TransparentColor Or i = PicWidth Then
                '透明像素
                If Linei Then
                    Linei = False
                    Liner = CreateRectRgn(StartLineX, j, i, j + 1)
                    If Firstr Then
                        Fullr = Liner
                        Firstr = False
                    Else
                        CombineRgn Fullr, Fullr, Liner, RGN_OR
                        '刷新
                        DeleteObject Liner
                    End If
                End If
            Else
                '非透明像素
                If Not Linei Then
                    Linei = True
                    StartLineX = i
                End If
            End If
          DoEvents
        Next
      DoEvents
    Next
    PicProc = Fullr
End Function


Public Sub Mp3skin()

Dim str1 As String
Dim Meskin As String
Meskin = "红粉菲菲"
str1 = String(255, 0)
With Form11
  .Picture1.Picture = LoadPicture(App.Path & "\mp3\mp3.gif")
  .Openmig.Picture = LoadPicture(App.Path & "\mp3\open1.gif")
  GetPrivateProfileString "open", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Openmig.Left = Val(str1)
  GetPrivateProfileString "open", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Openmig.Top = Val(str1)
  
  .Nextmig.Picture = LoadPicture(App.Path & "\mp3\next1.gif")
  GetPrivateProfileString "next", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Nextmig.Left = Val(str1)
  GetPrivateProfileString "next", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Nextmig.Top = Val(str1)
  
  .Stopmig.Picture = LoadPicture(App.Path & "\mp3\stop1.gif")
  GetPrivateProfileString "stop", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Stopmig.Left = Val(str1)
  GetPrivateProfileString "stop", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Stopmig.Top = Val(str1)
  
  .Qianmig.Picture = LoadPicture(App.Path & "\mp3\qian1.gif")
  GetPrivateProfileString "qian", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Qianmig.Left = Val(str1)
  GetPrivateProfileString "qian", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Qianmig.Top = Val(str1)
  
  .Playmig.Picture = LoadPicture(App.Path & "\mp3\play1.gif")
  GetPrivateProfileString "play", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Playmig.Left = Val(str1)
  GetPrivateProfileString "play", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Playmig.Top = Val(str1)
  
  .Minmig.Picture = LoadPicture(App.Path & "\mp3\min1.gif")
  GetPrivateProfileString "min", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Minmig.Left = Val(str1)
  GetPrivateProfileString "min", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Minmig.Top = Val(str1)
  
  .Closemig.Picture = LoadPicture(App.Path & "\mp3\close1.gif")
  GetPrivateProfileString "close", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Closemig.Left = Val(str1)
  GetPrivateProfileString "close", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Closemig.Top = Val(str1)
  
  .Jinmig.Picture = LoadPicture(App.Path & "\mp3\jin.gif")
  GetPrivateProfileString "jin", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Jinmig.Left = Val(str1)
  GetPrivateProfileString "jin", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Jinmig.Top = Val(str1)
  
  .Jingmig.Picture = LoadPicture(App.Path & "\mp3\jing.gif")
  GetPrivateProfileString "jing", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Jingmig.Left = Val(str1)
  GetPrivateProfileString "jing", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Jingmig.Top = Val(str1)
  GetPrivateProfileString "jing", "height", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Jingmig.Height = Val(str1)
  
  .Dangmig.Picture = LoadPicture(App.Path & "\mp3\dang.gif")
  GetPrivateProfileString "dang", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Dangmig.Left = Val(str1)
  .Dangleft = Val(str1)
  GetPrivateProfileString "dang", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Dangmig.Top = Val(str1)
  
  .Mutemig.Picture = LoadPicture(App.Path & "\mp3\mute.gif")
  GetPrivateProfileString "mute", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Mutemig.Left = Val(str1)
  GetPrivateProfileString "mute", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Mutemig.Top = Val(str1)
  
  .Mutedangmig.Picture = LoadPicture(App.Path & "\mp3\mutedang.gif")
  GetPrivateProfileString "mutedang", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Mutedangmig.Left = Val(str1)
  GetPrivateProfileString "mutedang", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Mutedangmig.Top = Val(str1)

  .Statemig1.Picture = LoadPicture(App.Path & "\mp3\state1-2.gif")
  GetPrivateProfileString "state1", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig1.Left = Val(str1)
  GetPrivateProfileString "state1", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig1.Top = Val(str1)

  .Statemig2.Picture = LoadPicture(App.Path & "\mp3\state2-2.gif")
  GetPrivateProfileString "state2", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig2.Left = Val(str1)
  GetPrivateProfileString "state2", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig2.Top = Val(str1)

  .Statemig3.Picture = LoadPicture(App.Path & "\mp3\state3-1.gif")
  GetPrivateProfileString "state3", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig3.Left = Val(str1)
  GetPrivateProfileString "state3", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Statemig3.Top = Val(str1)
  
  .Showlistmig.Picture = LoadPicture(App.Path & "\mp3\top1.gif")
  GetPrivateProfileString "showlist", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Showlistmig.Left = Val(str1)
  GetPrivateProfileString "showlist", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Showlistmig.Top = Val(str1)
  
  GetPrivateProfileString "list", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Meleft = Val(str1)
  GetPrivateProfileString "list", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Metop = Val(str1)
  
  GetPrivateProfileString "name", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Musicname.Left = Val(str1)
  GetPrivateProfileString "name", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Musicname.Top = Val(str1)
  
  GetPrivateProfileString "timer", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Timer.Left = Val(str1)
  GetPrivateProfileString "timer", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Timer.Top = Val(str1)
  
  GetPrivateProfileString "lasttimer", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Lasttimer.Left = Val(str1)
  GetPrivateProfileString "lasttimer", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Lasttimer.Top = Val(str1)
End With

End Sub

Public Sub Mp3list()

Dim str1 As String
Dim Meskin As String
Meskin = "红粉菲菲"
str1 = String(255, 0)
With Form16
  .Picture1.Picture = LoadPicture(App.Path & "\mp3\list.gif ")
  .Addmig.Picture = LoadPicture(App.Path & "\mp3\add1.gif")
  GetPrivateProfileString "add", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Addmig.Left = Val(str1)
  GetPrivateProfileString "add", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Addmig.Top = Val(str1)
  
  .Delmig.Picture = LoadPicture(App.Path & "\mp3\del1.gif")
  GetPrivateProfileString "del", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Delmig.Left = Val(str1)
  GetPrivateProfileString "del", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Delmig.Top = Val(str1)
  
  .Savemig.Picture = LoadPicture(App.Path & "\mp3\save1.gif")
  GetPrivateProfileString "save", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Savemig.Left = Val(str1)
  GetPrivateProfileString "save", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .Savemig.Top = Val(str1)

  GetPrivateProfileString "listview", "left", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .ListView1.Left = Val(str1)
  GetPrivateProfileString "listview", "top", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .ListView1.Top = Val(str1)
  GetPrivateProfileString "listview", "height", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .ListView1.Height = Val(str1)
  GetPrivateProfileString "listview", "width", "", str1, 256, App.Path & "\mp3\mp3option.ini"
  .ListView1.Width = Val(str1)
  '.ListView1.ColumnHeaders.Item(0).Width = Val(str1) - 1100
End With

End Sub