home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / FunTalk1917727262005.psc / Frm_Prefs.frm < prev    next >
Text File  |  2005-07-26  |  8KB  |  246 lines
  1. VERSION 5.00
  2. Begin VB.Form Frm_Prefs 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "FunTalk Settings..."
  5.    ClientHeight    =   3660
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4740
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3660
  13.    ScaleWidth      =   4740
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Frame Frame2 
  16.       Caption         =   "Audio Preferences"
  17.       Height          =   3615
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   4695
  22.       Begin VB.Frame Frame3 
  23.          Caption         =   "Sample Rate (hz)"
  24.          Height          =   1575
  25.          Left            =   120
  26.          TabIndex        =   13
  27.          Top             =   1920
  28.          Width           =   1455
  29.          Begin VB.OptionButton Op_Rate 
  30.             Caption         =   "44100"
  31.             Height          =   255
  32.             Index           =   0
  33.             Left            =   360
  34.             TabIndex        =   17
  35.             Top             =   360
  36.             Width           =   855
  37.          End
  38.          Begin VB.OptionButton Op_Rate 
  39.             Caption         =   "22050"
  40.             Height          =   195
  41.             Index           =   1
  42.             Left            =   360
  43.             TabIndex        =   16
  44.             Top             =   650
  45.             Width           =   855
  46.          End
  47.          Begin VB.OptionButton Op_Rate 
  48.             Caption         =   "11025"
  49.             Height          =   255
  50.             Index           =   2
  51.             Left            =   360
  52.             TabIndex        =   15
  53.             Top             =   840
  54.             Width           =   855
  55.          End
  56.          Begin VB.OptionButton Op_Rate 
  57.             Caption         =   "8000"
  58.             Height          =   195
  59.             Index           =   3
  60.             Left            =   360
  61.             TabIndex        =   14
  62.             Top             =   1100
  63.             Width           =   855
  64.          End
  65.       End
  66.       Begin VB.Frame Frame4 
  67.          Caption         =   "Sample Bits"
  68.          Height          =   975
  69.          Left            =   1680
  70.          TabIndex        =   10
  71.          Top             =   1920
  72.          Width           =   1215
  73.          Begin VB.OptionButton Op_Bits 
  74.             Caption         =   "8 Bits"
  75.             Height          =   255
  76.             Index           =   0
  77.             Left            =   240
  78.             TabIndex        =   12
  79.             Top             =   360
  80.             Width           =   735
  81.          End
  82.          Begin VB.OptionButton Op_Bits 
  83.             Caption         =   "16 Bits"
  84.             Height          =   255
  85.             Index           =   1
  86.             Left            =   240
  87.             TabIndex        =   11
  88.             Top             =   600
  89.             Width           =   855
  90.          End
  91.       End
  92.       Begin VB.Frame Frame5 
  93.          Caption         =   "Sample Channels"
  94.          Height          =   975
  95.          Left            =   3000
  96.          TabIndex        =   7
  97.          Top             =   1920
  98.          Width           =   1575
  99.          Begin VB.OptionButton Op_Chan 
  100.             Caption         =   "1 Mono"
  101.             Height          =   255
  102.             Index           =   0
  103.             Left            =   240
  104.             TabIndex        =   9
  105.             Top             =   360
  106.             Width           =   1215
  107.          End
  108.          Begin VB.OptionButton Op_Chan 
  109.             Caption         =   "2 Stereo"
  110.             Height          =   255
  111.             Index           =   1
  112.             Left            =   240
  113.             TabIndex        =   8
  114.             Top             =   600
  115.             Width           =   1215
  116.          End
  117.       End
  118.       Begin VB.Frame Frame1 
  119.          Caption         =   "Audio Devices"
  120.          Height          =   1575
  121.          Left            =   120
  122.          TabIndex        =   4
  123.          Top             =   240
  124.          Width           =   4455
  125.          Begin VB.ComboBox CB_Cdev 
  126.             Height          =   315
  127.             Left            =   240
  128.             Style           =   2  'Dropdown List
  129.             TabIndex        =   19
  130.             Top             =   1080
  131.             Width           =   4095
  132.          End
  133.          Begin VB.ComboBox CB_Pdev 
  134.             Height          =   315
  135.             Left            =   240
  136.             Style           =   2  'Dropdown List
  137.             TabIndex        =   18
  138.             Top             =   480
  139.             Width           =   4095
  140.          End
  141.          Begin VB.Label txtlbl 
  142.             AutoSize        =   -1  'True
  143.             Caption         =   "Recording Device :"
  144.             Height          =   195
  145.             Index           =   1
  146.             Left            =   240
  147.             TabIndex        =   6
  148.             Top             =   840
  149.             Width           =   1380
  150.          End
  151.          Begin VB.Label txtlbl 
  152.             AutoSize        =   -1  'True
  153.             Caption         =   "Playback Device :"
  154.             Height          =   195
  155.             Index           =   0
  156.             Left            =   240
  157.             TabIndex        =   5
  158.             Top             =   240
  159.             Width           =   1305
  160.          End
  161.       End
  162.       Begin VB.CommandButton Cmd_sSave 
  163.          Caption         =   "Save"
  164.          Height          =   375
  165.          Left            =   1680
  166.          TabIndex        =   3
  167.          Top             =   3120
  168.          Width           =   855
  169.       End
  170.       Begin VB.CommandButton Cmd_sCancel 
  171.          Caption         =   "Cancel"
  172.          Height          =   375
  173.          Left            =   2640
  174.          TabIndex        =   2
  175.          Top             =   3120
  176.          Width           =   855
  177.       End
  178.       Begin VB.CommandButton Cmd_sOk 
  179.          Caption         =   "OK"
  180.          Height          =   375
  181.          Left            =   3600
  182.          TabIndex        =   1
  183.          Top             =   3120
  184.          Width           =   975
  185.       End
  186.    End
  187. End
  188. Attribute VB_Name = "Frm_Prefs"
  189. Attribute VB_GlobalNameSpace = False
  190. Attribute VB_Creatable = False
  191. Attribute VB_PredeclaredId = True
  192. Attribute VB_Exposed = False
  193. '#################################
  194. '# FunTalk 1.01 Preferences Form #
  195. '######################################################
  196. '# This is where the dx setting are saved and loaded. #
  197. '######################################################
  198.  
  199. Private Sub Cmd_sCancel_Click()
  200. ' if a user wants to abort the changes then load the last
  201. ' saved settings and set a new oldsettings, and close the settings form
  202.     Frm_Main.mnu_pref_Click
  203. End Sub
  204.  
  205. Private Sub Cmd_sOk_Click()
  206. Dim Msg As String
  207. 'Set newprefs string to controll the old one
  208. NewPrf = GetPrefs
  209. 'controll the changes... if made any
  210. If NewPrf <> OldPrf Then
  211.     Msg = MsgBox("You've changed some settings but didn't save then." & vbCrLf & vbCrLf & "Would you like to save then ?", vbQuestion & vbYesNo, "Save Settings ?")
  212.         
  213.         Select Case Msg
  214.             Case 6 ' Yes save them...
  215.                 Cmd_sSave_Click         'Save the settings...
  216.                 Cmd_sOk_Click           'Run the OK command again (just checking)
  217.         
  218.             Case 7 ' No don't save them
  219.                 Call LoadPrefs          'Load the old settings.
  220.                 Cmd_sOk_Click        'Run the OK command again (Just checking)
  221.         End Select
  222. Else 'no changes are made... (or the are saved...)
  223. Frm_Main.mnu_pref_Click
  224. '    IsPrefVis = False
  225. '    Me.Hide
  226. End If
  227. End Sub
  228.  
  229. Private Sub Cmd_sSave_Click()
  230.     'Save the settings and set a new oldprefs
  231.     Call SavePrefs
  232.     'Tell the app. the preferences are changed
  233.     IsChanged = True
  234.     'Tell the user the settings are save...
  235.     MsgBox "Settings Succesfully saved.", vbInformation, "Settings Saved"
  236. End Sub
  237.  
  238. Private Sub Form_Load()
  239.     Me.Icon = Frm_Main.Icon
  240. End Sub
  241.  
  242. Private Sub Form_Unload(Cancel As Integer)
  243.     If IsClosing = False Then Cmd_sCancel_Click
  244. End Sub
  245.  
  246.