home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD8813892000.psc / Equalizer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-10  |  7.9 KB  |  266 lines
  1. VERSION 5.00
  2. Begin VB.Form Equalizer 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   1800
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   4410
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "Equalizer.frx":0000
  14.    ScaleHeight     =   1800
  15.    ScaleWidth      =   4410
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin VB.TextBox txtLoad 
  19.       Height          =   285
  20.       Left            =   1080
  21.       TabIndex        =   15
  22.       Text            =   "Text1"
  23.       Top             =   2880
  24.       Width           =   1335
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       BackColor       =   &H00E0E0E0&
  28.       Caption         =   "Presets"
  29.       BeginProperty Font 
  30.          Name            =   "Trebuchet MS"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   195
  39.       Left            =   120
  40.       Style           =   1  'Graphical
  41.       TabIndex        =   14
  42.       Top             =   1560
  43.       Width           =   735
  44.    End
  45.    Begin VB.CheckBox Check1 
  46.       BackColor       =   &H00E0E0E0&
  47.       Caption         =   "Auto"
  48.       BeginProperty Font 
  49.          Name            =   "Trebuchet MS"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00400000&
  58.       Height          =   195
  59.       Left            =   120
  60.       Style           =   1  'Graphical
  61.       TabIndex        =   13
  62.       Top             =   1320
  63.       Width           =   735
  64.    End
  65.    Begin VB.VScrollBar VScroll8 
  66.       Height          =   855
  67.       Left            =   480
  68.       TabIndex        =   12
  69.       Top             =   240
  70.       Width           =   135
  71.    End
  72.    Begin VB.VScrollBar VScroll7 
  73.       Height          =   855
  74.       Left            =   840
  75.       TabIndex        =   11
  76.       Top             =   240
  77.       Width           =   135
  78.    End
  79.    Begin VB.VScrollBar VScroll6 
  80.       Height          =   855
  81.       Left            =   1200
  82.       TabIndex        =   10
  83.       Top             =   240
  84.       Width           =   135
  85.    End
  86.    Begin VB.VScrollBar VScroll5 
  87.       Height          =   855
  88.       Left            =   1560
  89.       TabIndex        =   9
  90.       Top             =   240
  91.       Width           =   135
  92.    End
  93.    Begin VB.VScrollBar VScroll4 
  94.       Height          =   855
  95.       Left            =   1920
  96.       TabIndex        =   8
  97.       Top             =   240
  98.       Width           =   135
  99.    End
  100.    Begin VB.VScrollBar VScroll3 
  101.       Height          =   855
  102.       Left            =   2280
  103.       TabIndex        =   7
  104.       Top             =   240
  105.       Width           =   135
  106.    End
  107.    Begin VB.VScrollBar VScroll1 
  108.       Height          =   855
  109.       Left            =   2640
  110.       TabIndex        =   6
  111.       Top             =   240
  112.       Width           =   135
  113.    End
  114.    Begin VB.VScrollBar VScroll11 
  115.       Height          =   855
  116.       Left            =   3720
  117.       TabIndex        =   3
  118.       Top             =   240
  119.       Width           =   135
  120.    End
  121.    Begin VB.VScrollBar VScroll10 
  122.       Height          =   855
  123.       Left            =   3360
  124.       TabIndex        =   2
  125.       Top             =   240
  126.       Width           =   135
  127.    End
  128.    Begin VB.VScrollBar VScroll9 
  129.       Height          =   855
  130.       Left            =   3000
  131.       TabIndex        =   1
  132.       Top             =   240
  133.       Width           =   135
  134.    End
  135.    Begin VB.VScrollBar VScroll2 
  136.       Height          =   1095
  137.       Left            =   4080
  138.       TabIndex        =   0
  139.       Top             =   120
  140.       Width           =   255
  141.    End
  142.    Begin VB.Label Label1 
  143.       BackStyle       =   0  'Transparent
  144.       Caption         =   "Preamp"
  145.       BeginProperty Font 
  146.          Name            =   "Palatino Linotype"
  147.          Size            =   8.25
  148.          Charset         =   0
  149.          Weight          =   700
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       ForeColor       =   &H000000FF&
  155.       Height          =   255
  156.       Left            =   3840
  157.       TabIndex        =   5
  158.       Top             =   1200
  159.       Width           =   735
  160.    End
  161.    Begin VB.Label Label4 
  162.       Alignment       =   2  'Center
  163.       BackColor       =   &H00000000&
  164.       BackStyle       =   0  'Transparent
  165.       Caption         =   "EQUALIZER"
  166.       BeginProperty Font 
  167.          Name            =   "MS Sans Serif"
  168.          Size            =   9.75
  169.          Charset         =   0
  170.          Weight          =   400
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       ForeColor       =   &H0080FFFF&
  176.       Height          =   255
  177.       Left            =   1560
  178.       TabIndex        =   4
  179.       Top             =   1200
  180.       Width           =   1455
  181.    End
  182.    Begin VB.Menu mnuFile 
  183.       Caption         =   "file"
  184.       Visible         =   0   'False
  185.       Begin VB.Menu mnuSkins2 
  186.          Caption         =   "Skins"
  187.       End
  188.    End
  189. Attribute VB_Name = "Equalizer"
  190. Attribute VB_GlobalNameSpace = False
  191. Attribute VB_Creatable = False
  192. Attribute VB_PredeclaredId = True
  193. Attribute VB_Exposed = False
  194. 'I am still trying to figure out how to create an equalizer
  195. 'if you know how to do it please submit it
  196. Dim KeyKey As String      'for ini
  197. Dim KeyValue As String     'for ini
  198. Private Sub Form_Load()
  199. '==============ini file
  200. KeySection = "Load Default"
  201. KeyKey = "load"
  202. loadini
  203. txtLoad.Text = KeyValue
  204. If txtLoad.Text = "default" Then
  205. Me.Picture = LoadPicture(App.Path & "\" & "main2.bmp")
  206. ElseIf txtLoad.Text = "blue" Then
  207. Me.Picture = LoadPicture(App.Path & "\" & "main2blue.bmp")
  208. ElseIf txtLoad.Text = "L" Then
  209. Me.Picture = LoadPicture(App.Path & "\" & "main2L.bmp")
  210. End If
  211. '================end ini code
  212. EQ = True
  213. minEq = True
  214. Me.Left = frmMain.Left
  215.     Me.Top = frmMain.Top + frmMain.Height
  216.     Me.Width = frmMain.Width
  217.     Me.Height = 1830
  218. End Sub
  219. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  220. FormDrag Me
  221. If Button = vbRightButton Then
  222. PopupMenu mnuFile
  223. End If
  224. End Sub
  225. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  226. Me.Left = frmMain.Left
  227.     Me.Top = frmMain.Top + frmMain.Height
  228.     Me.Width = frmMain.Width
  229. End Sub
  230. Private Sub Form_Unload(Cancel As Integer)
  231. EQ = False
  232. minEq = False
  233. End Sub
  234. Public Sub endMe()
  235. EQ = False
  236. Unload Me
  237. End Sub
  238. Private Sub loadini()
  239. Dim lngResult As Long
  240. Dim strFileName
  241. Dim strResult As String * 50
  242. strFileName = App.Path & "\Myini.ini" 'Declare your ini file !
  243. lngResult = GetPrivateProfileString(KeySection, _
  244. KeyKey, strFileName, strResult, Len(strResult), _
  245. strFileName)
  246. If lngResult = 0 Then
  247. 'An error has occurred
  248. Call MsgBox("An error has occurred while calling the API function", vbExclamation)
  249. KeyValue = Trim(strResult)
  250. End If
  251. End Sub
  252. Private Sub saveini()
  253. Dim lngResult As Long
  254. Dim strFileName
  255. strFileName = App.Path & "\Myini.ini" 'Declare your ini file !
  256. lngResult = WritePrivateProfileString(KeySection, _
  257. KeyKey, KeyValue, strFileName)
  258. If lngResult = 0 Then
  259. 'An error has occurred
  260. Call MsgBox("An error has occurred while calling the API function", vbExclamation)
  261. End If
  262. End Sub
  263. Private Sub mnuSkins2_Click()
  264. frmSkin.Show
  265. End Sub
  266.