home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / mcbundle.zip / TIME2WIN.ZIP / FORM2.FRM next >
Text File  |  1995-08-01  |  5KB  |  146 lines
  1. VERSION 2.00
  2. Begin Form frmLng 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Read Control Language"
  5.    ClientHeight    =   3165
  6.    ClientLeft      =   1230
  7.    ClientTop       =   3150
  8.    ClientWidth     =   6240
  9.    Height          =   3510
  10.    Left            =   1200
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3165
  13.    ScaleWidth      =   6240
  14.    Top             =   2835
  15.    Width           =   6300
  16.    Begin OptionButton Option1 
  17.       BackColor       =   &H00C0C0C0&
  18.       Caption         =   "&Dutch"
  19.       Height          =   210
  20.       Index           =   2
  21.       Left            =   3960
  22.       TabIndex        =   3
  23.       Top             =   540
  24.       Width           =   1635
  25.    End
  26.    Begin Frame Frame1 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "Frame1"
  29.       Height          =   735
  30.       Left            =   180
  31.       TabIndex        =   7
  32.       Top             =   1890
  33.       Width           =   5955
  34.       Begin Label Label2 
  35.          BackColor       =   &H00C0C0C0&
  36.          Caption         =   "Label2"
  37.          Height          =   195
  38.          Left            =   180
  39.          TabIndex        =   8
  40.          Top             =   360
  41.          Width           =   5685
  42.       End
  43.    End
  44.    Begin CheckBox Check1 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Check1"
  47.       Height          =   225
  48.       Left            =   180
  49.       TabIndex        =   6
  50.       Top             =   1530
  51.       Width           =   5955
  52.    End
  53.    Begin TextBox Text1 
  54.       Height          =   285
  55.       Left            =   180
  56.       TabIndex        =   5
  57.       Text            =   "TIME TO WIN"
  58.       Top             =   1170
  59.       Width           =   5955
  60.    End
  61.    Begin OptionButton Option1 
  62.       BackColor       =   &H00C0C0C0&
  63.       Caption         =   "&French"
  64.       Height          =   210
  65.       Index           =   1
  66.       Left            =   2070
  67.       TabIndex        =   2
  68.       Top             =   540
  69.       Width           =   1635
  70.    End
  71.    Begin CommandButton Command2 
  72.       Caption         =   "&Read"
  73.       Height          =   375
  74.       Left            =   180
  75.       TabIndex        =   9
  76.       Top             =   2700
  77.       Width           =   2265
  78.    End
  79.    Begin CommandButton Command1 
  80.       Caption         =   "&Close"
  81.       Height          =   375
  82.       Left            =   5220
  83.       TabIndex        =   10
  84.       Top             =   2700
  85.       Width           =   915
  86.    End
  87.    Begin OptionButton Option1 
  88.       BackColor       =   &H00C0C0C0&
  89.       Caption         =   "&English"
  90.       Height          =   210
  91.       Index           =   0
  92.       Left            =   180
  93.       TabIndex        =   1
  94.       Top             =   540
  95.       Value           =   -1  'True
  96.       Width           =   1635
  97.    End
  98.    Begin Label Label1 
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "&The name of this product is :"
  101.       Height          =   225
  102.       Index           =   1
  103.       Left            =   180
  104.       TabIndex        =   4
  105.       Top             =   900
  106.       Width           =   5955
  107.    End
  108.    Begin Label Label1 
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "&Select the appropriate language :"
  111.       Height          =   225
  112.       Index           =   0
  113.       Left            =   180
  114.       TabIndex        =   0
  115.       Top             =   180
  116.       Width           =   5955
  117.    End
  118. End
  119. Option Explicit
  120. Dim status        As Integer
  121.  
  122. Sub Command1_Click ()
  123.    Unload frmLng
  124. End Sub
  125.  
  126. Sub Command2_Click ()
  127.    If (Option1(0).Value = True) Then
  128.       status = cReadCtlLanguage(Label1(0), 255, frmT2W.Tag + ".TUK")
  129.       Label2.Caption = cGetLongDay(LNG_ENGLISH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
  130.    End If
  131.    If (Option1(1).Value = True) Then
  132.       status = cReadCtlLanguage(Label1(0), 255, frmT2W.Tag + ".TFR")
  133.       Label2.Caption = cGetLongDay(LNG_FRENCH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
  134.    End If
  135.    If (Option1(2).Value = True) Then
  136.       status = cReadCtlLanguage(Label1(0), 255, frmT2W.Tag + ".TNL")
  137.       Label2.Caption = cGetLongDay(LNG_DUTCH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
  138.    End If
  139. End Sub
  140.  
  141. Sub Form_Load ()
  142.    status = cReadCtlLanguage(Label1(0), 255, frmT2W.Tag + ".TUK")
  143.    Label2.Caption = cGetLongDay(LNG_ENGLISH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
  144. End Sub
  145.  
  146.