home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / ZaidTrans_2158847302009.psc / Form1.frm < prev    next >
Text File  |  2009-07-10  |  5KB  |  161 lines
  1. VERSION 5.00
  2. Object = "{7CC4F088-D6CE-42B8-8C31-661DD3725862}#36.0#0"; "ZaidTrans.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Translate Over the Internet"
  7.    ClientHeight    =   5025
  8.    ClientLeft      =   45
  9.    ClientTop       =   435
  10.    ClientWidth     =   6855
  11.    Icon            =   "Form1.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5025
  16.    ScaleWidth      =   6855
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin VB.ComboBox Combo1 
  19.       Height          =   315
  20.       ItemData        =   "Form1.frx":1762
  21.       Left            =   2160
  22.       List            =   "Form1.frx":1775
  23.       Style           =   2  'Dropdown List
  24.       TabIndex        =   8
  25.       Top             =   120
  26.       Width           =   2415
  27.    End
  28.    Begin ZaidTrans.ZaidTranslator ZaidTranslator1 
  29.       Height          =   405
  30.       Left            =   4680
  31.       TabIndex        =   6
  32.       Top             =   120
  33.       Width           =   405
  34.       _ExtentX        =   714
  35.       _ExtentY        =   714
  36.    End
  37.    Begin VB.CommandButton Command2 
  38.       Caption         =   "A"
  39.       Height          =   255
  40.       Left            =   0
  41.       TabIndex        =   5
  42.       Top             =   0
  43.       Width           =   255
  44.    End
  45.    Begin VB.CommandButton Command1 
  46.       Caption         =   "Translate"
  47.       Height          =   495
  48.       Left            =   5160
  49.       TabIndex        =   2
  50.       Top             =   120
  51.       Width           =   1575
  52.    End
  53.    Begin VB.TextBox Text2 
  54.       Alignment       =   1  'Right Justify
  55.       Height          =   4095
  56.       Left            =   3480
  57.       MultiLine       =   -1  'True
  58.       RightToLeft     =   -1  'True
  59.       ScrollBars      =   3  'Both
  60.       TabIndex        =   1
  61.       Top             =   840
  62.       Width           =   3255
  63.    End
  64.    Begin VB.TextBox Text1 
  65.       Height          =   4095
  66.       Left            =   120
  67.       MultiLine       =   -1  'True
  68.       ScrollBars      =   3  'Both
  69.       TabIndex        =   0
  70.       Text            =   "Form1.frx":17D9
  71.       Top             =   840
  72.       Width           =   3255
  73.    End
  74.    Begin VB.Label Label2 
  75.       AutoSize        =   -1  'True
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "Translator Between"
  78.       BeginProperty Font 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   8.25
  81.          Charset         =   178
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H000000FF&
  88.       Height          =   195
  89.       Left            =   360
  90.       TabIndex        =   7
  91.       Top             =   120
  92.       Width           =   1650
  93.    End
  94.    Begin VB.Label Label1 
  95.       AutoSize        =   -1  'True
  96.       BackStyle       =   0  'Transparent
  97.       Caption         =   "Translated Text"
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   8.25
  101.          Charset         =   178
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       Height          =   195
  108.       Index           =   1
  109.       Left            =   3480
  110.       TabIndex        =   4
  111.       Top             =   600
  112.       Width           =   1335
  113.    End
  114.    Begin VB.Label Label1 
  115.       AutoSize        =   -1  'True
  116.       BackStyle       =   0  'Transparent
  117.       Caption         =   "Text to Translate"
  118.       BeginProperty Font 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   8.25
  121.          Charset         =   178
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   195
  128.       Index           =   0
  129.       Left            =   120
  130.       TabIndex        =   3
  131.       Top             =   600
  132.       Width           =   1455
  133.    End
  134. End
  135. Attribute VB_Name = "Form1"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Private Sub Command1_Click()
  141. Command1.Enabled = False
  142.  
  143. ZaidTranslator1.Set_Language Combo1.ListIndex
  144.  
  145. Text2.Text = ZaidTranslator1.Translate(Text1.Text)
  146.  
  147. Text2.RightToLeft = ZaidTranslator1.Get_RightToLeft
  148. Text2.Alignment = ZaidTranslator1.Get_Alignment
  149.  
  150. Command1.Enabled = True
  151. End Sub
  152.  
  153. Private Sub Command2_Click()
  154. ZaidTranslator1.About
  155. End Sub
  156.  
  157. Private Sub Form_Load()
  158. ZaidTranslator1.Set_Language English_Arabic
  159. Combo1.ListIndex = 0
  160. End Sub
  161.