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