home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pctalk2 / example.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-10  |  10.9 KB  |  360 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5880
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7575
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5880
  10.    ScaleWidth      =   7575
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame Frame3 
  13.       Caption         =   "WAV FILE"
  14.       Height          =   1335
  15.       Left            =   5520
  16.       TabIndex        =   16
  17.       Top             =   1320
  18.       Width           =   1695
  19.       Begin VB.CommandButton Command3 
  20.          Caption         =   "WAVFILE"
  21.          Height          =   375
  22.          Left            =   120
  23.          TabIndex        =   18
  24.          Top             =   840
  25.          Width           =   1455
  26.       End
  27.       Begin VB.TextBox Text3 
  28.          Height          =   375
  29.          Left            =   120
  30.          TabIndex        =   17
  31.          Text            =   "wavname"
  32.          Top             =   240
  33.          Width           =   1335
  34.       End
  35.    End
  36.    Begin VB.Frame Frame2 
  37.       Caption         =   "LANGUAGE"
  38.       Height          =   1815
  39.       Left            =   5640
  40.       TabIndex        =   12
  41.       Top             =   2880
  42.       Width           =   1695
  43.       Begin VB.OptionButton Option7 
  44.          Caption         =   "DEUTSCH"
  45.          Enabled         =   0   'False
  46.          Height          =   255
  47.          Left            =   120
  48.          TabIndex        =   15
  49.          Top             =   1440
  50.          Width           =   1095
  51.       End
  52.       Begin VB.OptionButton Option6 
  53.          Caption         =   "ENGLISH"
  54.          Enabled         =   0   'False
  55.          Height          =   255
  56.          Left            =   120
  57.          TabIndex        =   14
  58.          Top             =   960
  59.          Width           =   1335
  60.       End
  61.       Begin VB.OptionButton Option5 
  62.          Caption         =   "ESPA
  63.          Height          =   255
  64.          Left            =   120
  65.          TabIndex        =   13
  66.          Top             =   480
  67.          Width           =   1455
  68.       End
  69.    End
  70.    Begin VB.HScrollBar HScroll1 
  71.       Height          =   495
  72.       Left            =   2160
  73.       Max             =   500
  74.       Min             =   1
  75.       TabIndex        =   10
  76.       Top             =   5160
  77.       Value           =   120
  78.       Width           =   3735
  79.    End
  80.    Begin VB.Frame Frame1 
  81.       Caption         =   "Select Volume"
  82.       Height          =   2655
  83.       Left            =   3360
  84.       TabIndex        =   5
  85.       Top             =   2040
  86.       Width           =   2055
  87.       Begin VB.OptionButton Option4 
  88.          Caption         =   "8000"
  89.          Height          =   375
  90.          Left            =   120
  91.          TabIndex        =   9
  92.          Top             =   2040
  93.          Width           =   1455
  94.       End
  95.       Begin VB.OptionButton Option3 
  96.          Caption         =   "16000"
  97.          Height          =   195
  98.          Left            =   120
  99.          TabIndex        =   8
  100.          Top             =   1560
  101.          Width           =   1815
  102.       End
  103.       Begin VB.OptionButton Option2 
  104.          Caption         =   "24000"
  105.          Height          =   375
  106.          Left            =   120
  107.          TabIndex        =   7
  108.          Top             =   960
  109.          Width           =   1575
  110.       End
  111.       Begin VB.OptionButton Option1 
  112.          Caption         =   "32000"
  113.          Height          =   255
  114.          Left            =   120
  115.          TabIndex        =   6
  116.          Top             =   480
  117.          Value           =   -1  'True
  118.          Width           =   1575
  119.       End
  120.    End
  121.    Begin VB.CheckBox Check1 
  122.       Caption         =   "Check1"
  123.       BeginProperty Font 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   13.5
  126.          Charset         =   0
  127.          Weight          =   700
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   375
  133.       Left            =   360
  134.       TabIndex        =   3
  135.       ToolTipText     =   "chequeo"
  136.       Top             =   3720
  137.       Width           =   1935
  138.    End
  139.    Begin VB.Data Data1 
  140.       Caption         =   "Data1"
  141.       Connect         =   "Access"
  142.       DatabaseName    =   ""
  143.       DefaultCursorType=   0  'DefaultCursor
  144.       DefaultType     =   2  'UseODBC
  145.       Exclusive       =   0   'False
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   13.5
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   615
  156.       Left            =   360
  157.       Options         =   0
  158.       ReadOnly        =   0   'False
  159.       RecordsetType   =   1  'Dynaset
  160.       RecordSource    =   ""
  161.       ToolTipText     =   "datos"
  162.       Top             =   2640
  163.       Width           =   2175
  164.    End
  165.    Begin VB.CommandButton Command1 
  166.       Caption         =   "Command1"
  167.       BeginProperty Font 
  168.          Name            =   "MS Sans Serif"
  169.          Size            =   13.5
  170.          Charset         =   0
  171.          Weight          =   700
  172.          Underline       =   0   'False
  173.          Italic          =   0   'False
  174.          Strikethrough   =   0   'False
  175.       EndProperty
  176.       Height          =   615
  177.       Left            =   360
  178.       TabIndex        =   2
  179.       ToolTipText     =   "bot
  180.       Top             =   1800
  181.       Width           =   2175
  182.    End
  183.    Begin VB.TextBox Text1 
  184.       BeginProperty Font 
  185.          Name            =   "MS Sans Serif"
  186.          Size            =   13.5
  187.          Charset         =   0
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       Height          =   495
  194.       Left            =   360
  195.       TabIndex        =   1
  196.       Text            =   "text1"
  197.       ToolTipText     =   "texto"
  198.       Top             =   1080
  199.       Width           =   1095
  200.    End
  201.    Begin VB.Label Label3 
  202.       Caption         =   "SPEED"
  203.       BeginProperty Font 
  204.          Name            =   "MS Sans Serif"
  205.          Size            =   12
  206.          Charset         =   0
  207.          Weight          =   700
  208.          Underline       =   0   'False
  209.          Italic          =   0   'False
  210.          Strikethrough   =   0   'False
  211.       EndProperty
  212.       Height          =   375
  213.       Left            =   960
  214.       TabIndex        =   11
  215.       Top             =   5160
  216.       Width           =   1095
  217.    End
  218.    Begin VB.Label Label2 
  219.       Caption         =   "Don't forget to read the readme.txt file before you drop your control on this form"
  220.       BeginProperty Font 
  221.          Name            =   "MS Sans Serif"
  222.          Size            =   12
  223.          Charset         =   0
  224.          Weight          =   400
  225.          Underline       =   0   'False
  226.          Italic          =   -1  'True
  227.          Strikethrough   =   0   'False
  228.       EndProperty
  229.       Height          =   855
  230.       Left            =   3360
  231.       TabIndex        =   4
  232.       Top             =   120
  233.       Width           =   3975
  234.    End
  235.    Begin VB.Label Label1 
  236.       Caption         =   "label1"
  237.       BeginProperty Font 
  238.          Name            =   "MS Sans Serif"
  239.          Size            =   13.5
  240.          Charset         =   0
  241.          Weight          =   700
  242.          Underline       =   0   'False
  243.          Italic          =   0   'False
  244.          Strikethrough   =   0   'False
  245.       EndProperty
  246.       Height          =   495
  247.       Left            =   360
  248.       TabIndex        =   0
  249.       ToolTipText     =   "Etiqueta"
  250.       Top             =   360
  251.       Width           =   1095
  252.    End
  253. Attribute VB_Name = "Form1"
  254. Attribute VB_GlobalNameSpace = False
  255. Attribute VB_Creatable = False
  256. Attribute VB_PredeclaredId = True
  257. Attribute VB_Exposed = False
  258. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  259.   Command1.Enabled = False
  260.   PCTALK11.Phrase = Command1.ToolTipText
  261.   PCTALK11.listentext
  262.   Command1.Enabled = True
  263.   Command3.Enabled = True
  264. End Sub
  265. Private Sub Command2_Click()
  266.   PCTALK11.Phrase = Text2.Text
  267.   PCTALK11.listentext
  268. End Sub
  269. Private Sub Command3_Click()
  270.   PCTALK11.namewavfile = Text3.Text
  271.   PCTALK11.makewavfile
  272. End Sub
  273. Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  274.   Check1.Enabled = False
  275.   PCTALK11.Phrase = Check1.ToolTipText
  276.   PCTALK11.listentext
  277.   Check1.Enabled = True
  278.   Command3.Enabled = True
  279. End Sub
  280. Private Sub Data1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  281.   Data1.Enabled = False
  282.   PCTALK11.Phrase = Data1.ToolTipText
  283.   PCTALK11.listentext
  284.   Data1.Enabled = True
  285.   Command3.Enabled = True
  286. End Sub
  287. Private Sub Form_Load()
  288.  Option5.Value = 1
  289.  PCTALK11.language = 0
  290.  PCTALK11.duration = 1.2
  291.  PCTALK11.volumen = 32000
  292.  Option1.Value = True
  293.  palabritas
  294.  Command3.Enabled = False
  295. End Sub
  296. Private Sub palabritas()
  297.  Select Case PCTALK11.language
  298.    Case 0
  299.      Text1.ToolTipText = "texto"
  300.      Label1.ToolTipText = "etiqueta"
  301.      Command1.ToolTipText = "bot
  302.      Data1.ToolTipText = "datos"
  303.      Check1.ToolTipText = "chequeo"
  304.    Case 1
  305.      Text1.ToolTipText = "text"
  306.      Label1.ToolTipText = "label"
  307.      Command1.ToolTipText = "command"
  308.      Data1.ToolTipText = "data"
  309.      Check1.ToolTipText = "check"
  310.    Case 2
  311.  End Select
  312. End Sub
  313. Private Sub HScroll1_Change()
  314.   PCTALK11.duration = HScroll1.Value / 100
  315. End Sub
  316. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  317.   Label1.Enabled = False
  318.   PCTALK11.Phrase = Label1.ToolTipText
  319.   PCTALK11.listentext
  320.   Label1.Enabled = True
  321.   Command3.Enabled = True
  322. End Sub
  323. Private Sub Option1_Click()
  324.   If Option1.Value = True Then PCTALK11.volumen = 32000
  325. End Sub
  326. Private Sub Option2_Click()
  327.   If Option2.Value = True Then PCTALK11.volumen = 24000
  328. End Sub
  329. Private Sub Option3_Click()
  330.    If Option3.Value = True Then PCTALK11.volumen = 16000
  331. End Sub
  332. Private Sub Option4_Click()
  333.  If Option4.Value = True Then
  334.    PCTALK11.volumen = 8000
  335.    palabritas
  336.  End If
  337. End Sub
  338. Private Sub Option5_Click()
  339.  If Option5.Value = True Then
  340.    PCTALK11.language = 0
  341.    palabritas
  342.  End If
  343. End Sub
  344. Private Sub Option6_Click()
  345.  If Option6.Value = True Then
  346.    PCTALK11.language = 1
  347.    palabritas
  348.  End If
  349. End Sub
  350. Private Sub Option7_Click()
  351.  If Option7.Value = True Then PCTALK11.language = 2
  352. End Sub
  353. Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  354.   Text1.Enabled = False
  355.   PCTALK11.Phrase = Text1.ToolTipText
  356.   PCTALK11.listentext
  357.   Text1.Enabled = True
  358.   Command3.Enabled = True
  359. End Sub
  360.