home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / initut1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-16  |  12.0 KB  |  385 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmSndSetup 
  3.    Caption         =   "Sound Setup"
  4.    ClientHeight    =   3705
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4110
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3705
  10.    ScaleWidth      =   4110
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.HScrollBar vsbColorBar 
  13.       Height          =   255
  14.       LargeChange     =   2
  15.       Left            =   1320
  16.       Max             =   5
  17.       TabIndex        =   15
  18.       Top             =   2280
  19.       Width           =   1695
  20.    End
  21.    Begin VB.CommandButton CmdCancel 
  22.       Caption         =   "Cancel"
  23.       Height          =   495
  24.       Left            =   2280
  25.       Style           =   1  'Graphical
  26.       TabIndex        =   9
  27.       Top             =   3000
  28.       Width           =   735
  29.    End
  30.    Begin VB.HScrollBar HSTrbl 
  31.       Height          =   255
  32.       Left            =   1320
  33.       Max             =   10
  34.       TabIndex        =   8
  35.       Top             =   1800
  36.       Width           =   1695
  37.    End
  38.    Begin VB.Frame FrmSnd 
  39.       Height          =   615
  40.       Left            =   1320
  41.       TabIndex        =   6
  42.       Top             =   120
  43.       Width           =   1935
  44.       Begin VB.OptionButton OptYesNo 
  45.          Caption         =   "No"
  46.          Height          =   195
  47.          Index           =   1
  48.          Left            =   1080
  49.          TabIndex        =   11
  50.          Top             =   240
  51.          Width           =   735
  52.       End
  53.       Begin VB.OptionButton OptYesNo 
  54.          Caption         =   "Yes"
  55.          Height          =   195
  56.          Index           =   0
  57.          Left            =   120
  58.          TabIndex        =   10
  59.          Top             =   240
  60.          Width           =   735
  61.       End
  62.    End
  63.    Begin VB.CommandButton CmdSave 
  64.       BackColor       =   &H00C0C0C0&
  65.       Caption         =   "Save"
  66.       Height          =   495
  67.       Left            =   1200
  68.       Style           =   1  'Graphical
  69.       TabIndex        =   5
  70.       Top             =   3000
  71.       UseMaskColor    =   -1  'True
  72.       Width           =   735
  73.    End
  74.    Begin VB.HScrollBar HSVol 
  75.       Height          =   255
  76.       Left            =   1320
  77.       Max             =   10
  78.       TabIndex        =   4
  79.       Top             =   840
  80.       Width           =   1695
  81.    End
  82.    Begin VB.HScrollBar HSBass 
  83.       Height          =   255
  84.       Left            =   1320
  85.       Max             =   10
  86.       TabIndex        =   3
  87.       Top             =   1320
  88.       Width           =   1695
  89.    End
  90.    Begin VB.Label label1 
  91.       Caption         =   "Color"
  92.       Height          =   255
  93.       Index           =   4
  94.       Left            =   360
  95.       TabIndex        =   17
  96.       Top             =   2280
  97.       Width           =   855
  98.    End
  99.    Begin VB.Label LblColorVal 
  100.       Height          =   255
  101.       Left            =   3120
  102.       TabIndex        =   16
  103.       Top             =   2280
  104.       Width           =   375
  105.    End
  106.    Begin VB.Label LblTrebleVal 
  107.       Height          =   255
  108.       Left            =   3120
  109.       TabIndex        =   14
  110.       Top             =   1800
  111.       Width           =   375
  112.    End
  113.    Begin VB.Label LblBassVal 
  114.       Height          =   255
  115.       Left            =   3120
  116.       TabIndex        =   13
  117.       Top             =   1320
  118.       Width           =   375
  119.    End
  120.    Begin VB.Label LblVolVal 
  121.       Height          =   255
  122.       Left            =   3120
  123.       TabIndex        =   12
  124.       Top             =   840
  125.       Width           =   375
  126.    End
  127.    Begin VB.Label label1 
  128.       Caption         =   "Treble"
  129.       Height          =   255
  130.       Index           =   3
  131.       Left            =   360
  132.       TabIndex        =   7
  133.       Top             =   1800
  134.       Width           =   855
  135.    End
  136.    Begin VB.Label label1 
  137.       Caption         =   "Bass"
  138.       Height          =   255
  139.       Index           =   2
  140.       Left            =   360
  141.       TabIndex        =   2
  142.       Top             =   1320
  143.       Width           =   855
  144.    End
  145.    Begin VB.Label label1 
  146.       Caption         =   "Sound"
  147.       Height          =   255
  148.       Index           =   1
  149.       Left            =   360
  150.       TabIndex        =   1
  151.       Top             =   360
  152.       Width           =   855
  153.    End
  154.    Begin VB.Label label1 
  155.       Caption         =   "Volume"
  156.       Height          =   255
  157.       Index           =   0
  158.       Left            =   360
  159.       TabIndex        =   0
  160.       Top             =   840
  161.       Width           =   855
  162.    End
  163. Attribute VB_Name = "FrmSndSetup"
  164. Attribute VB_GlobalNameSpace = False
  165. Attribute VB_Creatable = False
  166. Attribute VB_PredeclaredId = True
  167. Attribute VB_Exposed = False
  168. Dim lpAppName As String
  169. Dim lpFileName As String
  170. Dim sHsvolKey As String
  171. Dim sHsVolValue As String
  172. Dim sHsbassValue As String
  173. Dim sHbassKey As String
  174. Dim sHstrblValue As String
  175. Dim sHsTrblKey As String
  176. Dim sSoundValue As String
  177. Dim sSoundKey As String
  178. Dim sColorVal As String
  179. Dim sColorKey As String
  180. Dim GetStatus, GetStatus1, GetStatus2, GetStatus3, GetStatus4 As Long
  181. Dim lonStatus, lonStatus1, lonStatus2, lonStatus3, lonStatus4 As String
  182. Dim Vol, File As String
  183. Sub ColorChange()
  184. Select Case vsbColorBar.Value
  185. Case 0
  186.     FrmSndSetup.BackColor = &H8000000F
  187.     FrmSnd.BackColor = &H8000000F
  188.     OptYesNo(0).BackColor = &H8000000F
  189.     OptYesNo(1).BackColor = &H8000000F
  190.     label1(0).BackColor = &H8000000F
  191.     label1(1).BackColor = &H8000000F
  192.     label1(2).BackColor = &H8000000F
  193.     label1(3).BackColor = &H8000000F
  194.     label1(4).BackColor = &H8000000F
  195.     LblVolVal.BackColor = &H8000000F
  196.     LblBassVal.BackColor = &H8000000F
  197.     LblTrebleVal.BackColor = &H8000000F
  198.     LblColorVal.BackColor = &H8000000F
  199.     CmdSave.BackColor = &H8000000F
  200.     CmdCancel.BackColor = &H8000000F
  201. Case 1
  202.     FrmSndSetup.BackColor = RGB(255, 0, 0)
  203.     FrmSnd.BackColor = RGB(255, 0, 0)
  204.     OptYesNo(0).BackColor = RGB(255, 0, 0)
  205.     OptYesNo(1).BackColor = RGB(255, 0, 0)
  206.     label1(0).BackColor = RGB(255, 0, 0)
  207.     label1(1).BackColor = RGB(255, 0, 0)
  208.     label1(2).BackColor = RGB(255, 0, 0)
  209.     label1(3).BackColor = RGB(255, 0, 0)
  210.     label1(4).BackColor = RGB(255, 0, 0)
  211.     LblVolVal.BackColor = RGB(255, 0, 0)
  212.     LblBassVal.BackColor = RGB(255, 0, 0)
  213.     LblTrebleVal.BackColor = RGB(255, 0, 0)
  214.     LblColorVal.BackColor = RGB(255, 0, 0)
  215.     CmdSave.BackColor = RGB(255, 0, 0)
  216.     CmdCancel.BackColor = RGB(255, 0, 0)
  217. Case 2
  218. FrmSndSetup.BackColor = RGB(255, 255, 0)
  219. FrmSnd.BackColor = RGB(255, 255, 0)
  220. OptYesNo(0).BackColor = RGB(255, 255, 0)
  221. OptYesNo(1).BackColor = RGB(255, 255, 0)
  222. label1(0).BackColor = RGB(255, 255, 0)
  223. label1(1).BackColor = RGB(255, 255, 0)
  224. label1(2).BackColor = RGB(255, 255, 0)
  225. label1(3).BackColor = RGB(255, 255, 0)
  226. label1(4).BackColor = RGB(255, 255, 0)
  227. LblVolVal.BackColor = RGB(255, 255, 0)
  228. LblBassVal.BackColor = RGB(255, 255, 0)
  229. LblTrebleVal.BackColor = RGB(255, 255, 0)
  230. LblColorVal.BackColor = RGB(255, 255, 0)
  231. CmdSave.BackColor = RGB(255, 255, 0)
  232. CmdCancel.BackColor = RGB(255, 255, 0)
  233. Case 3
  234. FrmSndSetup.BackColor = RGB(255, 0, 255)
  235. FrmSnd.BackColor = RGB(255, 0, 255)
  236. OptYesNo(0).BackColor = RGB(255, 0, 255)
  237. OptYesNo(1).BackColor = RGB(255, 0, 255)
  238. label1(0).BackColor = RGB(255, 0, 255)
  239. label1(1).BackColor = RGB(255, 0, 255)
  240. label1(2).BackColor = RGB(255, 0, 255)
  241. label1(3).BackColor = RGB(255, 0, 255)
  242. label1(4).BackColor = RGB(255, 0, 255)
  243. LblVolVal.BackColor = RGB(255, 0, 255)
  244. LblBassVal.BackColor = RGB(255, 0, 255)
  245. LblTrebleVal.BackColor = RGB(255, 0, 255)
  246. LblColorVal.BackColor = RGB(255, 0, 255)
  247. CmdSave.BackColor = RGB(255, 0, 255)
  248. CmdCancel.BackColor = RGB(255, 0, 255)
  249. Case 4
  250. FrmSndSetup.BackColor = RGB(0, 255, 0)
  251. FrmSnd.BackColor = RGB(0, 255, 0)
  252. OptYesNo(0).BackColor = RGB(0, 255, 0)
  253. OptYesNo(1).BackColor = RGB(0, 255, 0)
  254. label1(0).BackColor = RGB(0, 255, 0)
  255. label1(1).BackColor = RGB(0, 255, 0)
  256. label1(2).BackColor = RGB(0, 255, 0)
  257. label1(3).BackColor = RGB(0, 255, 0)
  258. label1(4).BackColor = RGB(0, 255, 0)
  259. LblVolVal.BackColor = RGB(0, 255, 0)
  260. LblBassVal.BackColor = RGB(0, 255, 0)
  261. LblTrebleVal.BackColor = RGB(0, 255, 0)
  262. LblColorVal.BackColor = RGB(0, 255, 0)
  263. CmdSave.BackColor = RGB(0, 255, 0)
  264. CmdCancel.BackColor = RGB(0, 255, 0)
  265. Case 5
  266. FrmSndSetup.BackColor = RGB(0, 0, 255)
  267. FrmSnd.BackColor = RGB(0, 0, 255)
  268. OptYesNo(0).BackColor = RGB(0, 0, 255)
  269. OptYesNo(1).BackColor = RGB(0, 0, 255)
  270. label1(0).BackColor = RGB(0, 0, 255)
  271. label1(1).BackColor = RGB(0, 0, 255)
  272. label1(2).BackColor = RGB(0, 0, 255)
  273. label1(3).BackColor = RGB(0, 0, 255)
  274. label1(4).BackColor = RGB(0, 0, 255)
  275. LblVolVal.BackColor = RGB(0, 0, 255)
  276. LblBassVal.BackColor = RGB(0, 0, 255)
  277. LblTrebleVal.BackColor = RGB(0, 0, 255)
  278. LblColorVal.BackColor = RGB(0, 0, 255)
  279. CmdSave.BackColor = RGB(0, 0, 255)
  280. CmdCancel.BackColor = RGB(0, 0, 255)
  281. End Select
  282. End Sub
  283. Private Sub CmdCancel_Click()
  284. Unload Me
  285. End Sub
  286. Private Sub CmdSave_Click()
  287. File = "C:\Sound.ini" 'Path and file name of ini
  288. lpAppName = "Sound"  'Section name looks like [Sound]
  289. volval = HSVol.Value
  290. sHsvolKey = "Volume"
  291. sHsVolValue = HSVol.Value
  292. sHsbassValue = HSBass.Value
  293. sHbassKey = "Bass"
  294. sHsTrblKey = "Treble"
  295. sHstrblValue = HSTrbl.Value
  296. sSoundKey = "Sound On"
  297. sColorKey = "Color"
  298. sColorVal = vsbColorBar.Value
  299. 'sSoundValue = OptYes.value
  300. 'If OptYes.value = True Then
  301. sSoundValue = OptYesNo(Index).Value
  302. lpFileName = File
  303. lonStatus = WritePrivateProfileString(lpAppName, sHsvolKey, sHsVolValue, lpFileName)
  304. lonStatus1 = WritePrivateProfileString(lpAppName, sHbassKey, sHsbassValue, lpFileName)
  305. lonStatus2 = WritePrivateProfileString(lpAppName, sHsTrblKey, sHstrblValue, lpFileName)
  306. lonStatus3 = WritePrivateProfileString(lpAppName, sSoundKey, sSoundValue, lpFileName)
  307. lonStatus4 = WritePrivateProfileString(lpAppName, sColorKey, sColorVal, lpFileName)
  308. End Sub
  309. Private Sub Command1_Click()
  310. FrmSndSetup.BackColor = &H8000000F
  311. Hnum = Hex(FrmSndSetup.BackColor)
  312. Label2.Caption = Hnum
  313. End Sub
  314. Private Sub Form_Load()
  315. Dim GetSound As Long
  316. Dim GetVol As Long
  317. Dim GetBass As Long
  318. Dim GetTrbl As Long
  319. Dim GetColor As Long
  320. Dim Temp As String * 50
  321. Dim Temp1 As String * 50
  322. Dim Temp2 As String * 50
  323. Dim Temp3 As String * 50
  324. Dim Temp4 As String * 50
  325. Dim sHsVol As String, sHsBass As String, sHsTrbl As String, _
  326. sSound As String, lpDefault As String
  327. Dim Hnum
  328. File = "C:\sound.ini"
  329. lpAppName = "Sound"
  330. sHsVol = "Volume"
  331. sHsBass = "Bass"
  332. sHsTrbl = "Treble"
  333. sSound = "Sound On"
  334. sColorVal = "Color"
  335. lpDefault = File
  336. lpFileName = File
  337. LblColorVal.Caption = vsbColorBar
  338. Hnum = Hex(FrmSndSetup.BackColor)
  339. GetVol = GetPrivateProfileString(lpAppName, sHsVol, lpDefault, Temp, Len(Temp), lpFileName)
  340. GetBass = GetPrivateProfileString(lpAppName, sHsBass, lpDefault, Temp1, Len(Temp), lpFileName)
  341. GetTrbl = GetPrivateProfileString(lpAppName, sHsTrbl, lpDefault, Temp2, Len(Temp), lpFileName)
  342. GetSound = GetPrivateProfileString(lpAppName, sSound, lpDefault, Temp3, Len(Temp), lpFileName)
  343. GetColor = GetPrivateProfileString(lpAppName, sColorVal, lpDefault, Temp4, Len(Temp), lpFileName)
  344. HSVol.Value = Temp
  345. HSBass.Value = Temp1
  346. HSTrbl.Value = Temp2
  347. vsbColorBar.Value = Temp4
  348. OptYesNo(Index).Value = Temp3
  349. If OptYesNo(Index).Value = False Then
  350. OptYesNo(1).Value = True
  351. OptYesNo(0).Value = True
  352. End If
  353. LblVolVal = HSVol.Value
  354. LblBassVal = HSBass.Value
  355. LblTrebleVal = HSTrbl.Value
  356. End Sub
  357. Private Sub HSBass_Change()
  358. LblBassVal = HSBass.Value
  359. End Sub
  360. Private Sub HSBass_Scroll()
  361. LblBassVal = HSBass.Value
  362. End Sub
  363. Private Sub HSTrbl_Change()
  364. LblTrebleVal = HSTrbl.Value
  365. End Sub
  366. Private Sub HSTrbl_Scroll()
  367. LblTrebleVal = HSTrbl.Value
  368. End Sub
  369. Private Sub HSVol_Change()
  370. LblVolVal = HSVol.Value
  371. End Sub
  372. Private Sub HSVol_Scroll()
  373. LblVolVal = HSVol.Value
  374. End Sub
  375. Private Sub vsbColorBar_Scroll()
  376. ColorChange
  377. Hnum = Hex(FrmSndSetup.BackColor)
  378. Hnum = Hex(FrmSndSetup.BackColor)
  379. End Sub
  380. Private Sub vsbColorBar_Change()
  381. ColorChange
  382. LblColorVal.Caption = vsbColorBar
  383. Hnum = Hex(FrmSndSetup.BackColor)
  384. End Sub
  385.