home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / T2W32543.ZIP / _MDIT2W.FRM < prev    next >
Text File  |  1998-05-21  |  8KB  |  291 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm mdiT2W 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H00808080&
  5.    Caption         =   "TIME TO WIN 32-Bit DEMO"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   705
  8.    ClientTop       =   1245
  9.    ClientWidth     =   13125
  10.    Icon            =   "_Mdit2w.frx":0000
  11.    Begin VB.PictureBox Picture3 
  12.       Align           =   2  'Align Bottom
  13.       Height          =   465
  14.       Left            =   0
  15.       ScaleHeight     =   405
  16.       ScaleWidth      =   13065
  17.       TabIndex        =   4
  18.       Top             =   6870
  19.       Width           =   13125
  20.       Begin VB.Label Label4 
  21.          Caption         =   "Label4"
  22.          Height          =   195
  23.          Left            =   4770
  24.          TabIndex        =   9
  25.          Top             =   105
  26.          Width           =   3255
  27.       End
  28.       Begin VB.Label pnl_Version 
  29.          Alignment       =   2  'Center
  30.          BorderStyle     =   1  'Fixed Single
  31.          Height          =   285
  32.          Left            =   11430
  33.          TabIndex        =   8
  34.          Top             =   60
  35.          Width           =   915
  36.       End
  37.       Begin VB.Label pnl_Timer 
  38.          Alignment       =   2  'Center
  39.          BorderStyle     =   1  'Fixed Single
  40.          Height          =   285
  41.          Left            =   2880
  42.          TabIndex        =   7
  43.          Top             =   60
  44.          Width           =   915
  45.       End
  46.       Begin VB.Label Label2 
  47.          Caption         =   "elapsed time for ? iterations (in ms)"
  48.          Height          =   225
  49.          Left            =   90
  50.          TabIndex        =   6
  51.          Tag             =   "elapsed time for ~ iterations (in ms)"
  52.          Top             =   105
  53.          Width           =   2805
  54.       End
  55.       Begin VB.Label Label3 
  56.          Alignment       =   1  'Right Justify
  57.          Caption         =   "TIME2WIN version"
  58.          Height          =   225
  59.          Left            =   9765
  60.          TabIndex        =   5
  61.          Tag             =   "elapsed time for ~ iterations (in ms)"
  62.          Top             =   105
  63.          Width           =   1440
  64.       End
  65.    End
  66.    Begin VB.PictureBox Picture2 
  67.       Align           =   1  'Align Top
  68.       Height          =   465
  69.       Left            =   0
  70.       ScaleHeight     =   405
  71.       ScaleWidth      =   13065
  72.       TabIndex        =   0
  73.       Top             =   0
  74.       Width           =   13125
  75.       Begin VB.ComboBox cmb_Group 
  76.          Height          =   315
  77.          Left            =   2250
  78.          TabIndex        =   2
  79.          Top             =   60
  80.          Width           =   4695
  81.       End
  82.       Begin VB.PictureBox Picture1 
  83.          AutoSize        =   -1  'True
  84.          Height          =   300
  85.          Left            =   11550
  86.          Picture         =   "_Mdit2w.frx":030A
  87.          ScaleHeight     =   240
  88.          ScaleWidth      =   240
  89.          TabIndex        =   1
  90.          Top             =   45
  91.          Visible         =   0   'False
  92.          Width           =   300
  93.       End
  94.       Begin VB.Timer Timer1 
  95.          Enabled         =   0   'False
  96.          Left            =   11025
  97.          Top             =   0
  98.       End
  99.       Begin VB.Label Label1 
  100.          Caption         =   "&Select a group of functions"
  101.          Height          =   255
  102.          Left            =   90
  103.          TabIndex        =   3
  104.          Tag             =   "this"
  105.          Top             =   90
  106.          Width           =   2085
  107.       End
  108.    End
  109.    Begin VB.Menu mnu_List 
  110.       Caption         =   "&Window List"
  111.       WindowList      =   -1  'True
  112.    End
  113.    Begin VB.Menu mnu_Exit 
  114.       Caption         =   "E&xit"
  115.    End
  116.    Begin VB.Menu mnu_NewF 
  117.       Caption         =   "2 new functions"
  118.       Begin VB.Menu mnu_New 
  119.          Caption         =   "Compression : GZIPStringCompress2"
  120.          Index           =   0
  121.       End
  122.       Begin VB.Menu mnu_New 
  123.          Caption         =   "Compression : GZIPStringExpand2"
  124.          Index           =   1
  125.       End
  126.    End
  127. End
  128. Attribute VB_Name = "mdiT2W"
  129. Attribute VB_GlobalNameSpace = False
  130. Attribute VB_Creatable = False
  131. Attribute VB_PredeclaredId = True
  132. Attribute VB_Exposed = False
  133. Option Explicit
  134.  
  135. Dim IsLoaded         As Integer
  136.  
  137. Dim TimerStartOk     As Integer
  138. Dim TimerCloseOk     As Integer
  139.  
  140. Dim TimerHandle      As Integer
  141. Dim TimerValue       As Long
  142.  
  143. Private Sub cmb_Group_Click()
  144.  
  145.    If (IsLoaded = False) Then Exit Sub
  146.  
  147.    Dim Frm        As Form
  148.  
  149.    Select Case cmb_Group.ListIndex
  150.       Case 0:  Set Frm = frmArray
  151.       Case 1:  Set Frm = frmBitString
  152.       Case 2:  Set Frm = frmDayMonth
  153.       Case 3:  Set Frm = frmDAString
  154.       Case 4:  Set Frm = frmDALong
  155.       Case 5:  Set Frm = frmDAType
  156.       Case 6:  Set Frm = frmIeeenum
  157.       Case 7:  Set Frm = frmMem
  158.       Case 8:  Set Frm = frmFile
  159.       Case 9:  Set Frm = frmCompress
  160.       Case 10: Set Frm = frmCrc32
  161.       Case 11: Set Frm = frmEncrypt
  162.       Case 12: Set Frm = frmMatrix
  163.       Case 13: Set Frm = frmIsX
  164.       Case 14: Set Frm = frmSerialization
  165.       Case 15: Set Frm = frmString
  166.       Case 16: Set Frm = frmMisc
  167.       Case 17: Set Frm = frmObject
  168.       Case 18: Set Frm = frmLanguage
  169.       Case 19: Set Frm = frmCrypt
  170.       Case 20: Set Frm = frmRegistry
  171.       Case 21: Set Frm = frmMediaID
  172.       Case 22: Set Frm = frmDIBBitmap
  173.       Case 23: Set Frm = frmTile
  174.       Case 24: Set Frm = frmPrinter
  175.       Case 25: Set Frm = frmDateTime
  176.       Case 26: Set Frm = frmComboList
  177.       Case 27: Set Frm = frmWindows
  178.       Case 28: Set Frm = frmMailNews
  179.       Case 29: Set Frm = frmMath
  180.       Case 30: Set Frm = frmNetwork
  181.       Case 31: Set Frm = frmGradient
  182.       Case 32: Set Frm = frmRas
  183.    End Select
  184.    
  185.    Load Frm
  186.    
  187. End Sub
  188. Private Sub MDIForm_Load()
  189.  
  190.    Dim intResult     As Integer
  191.    Dim hwnd          As Long
  192.    
  193.    hwnd = cDisplaySplash(App.Path + "\time2win.dib", 7000 + (6000 * cIsRegistered()), True)
  194.  
  195.    Me.WindowState = 2
  196.    
  197.    IsLoaded = False
  198.    
  199.    pnl_Version = Format(cGetVersion(), "#.00")
  200.    
  201.    Call cCenterWindow(Me.hwnd)
  202.    
  203.    Call sub_Check_Project
  204.  
  205.    Call sub_Initialization
  206.  
  207.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  208.    
  209.    If (cIsRegistered() = True) Then
  210.       Label4.Caption = "Thank you for your registration   "
  211.       Me.Caption = Me.Caption + " (registered)"
  212.    Else
  213.       Label4.Caption = "Register TIME TO WIN   "
  214.       Me.Caption = Me.Caption + " (unregistered)"
  215.    End If
  216.    
  217.    Timer1.interval = 124
  218.    Timer1.Enabled = True
  219.    
  220.    Me.Show
  221.    
  222.    IsLoaded = True
  223.    
  224. End Sub
  225.  
  226. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  227.  
  228.    Dim intResult     As Integer
  229.  
  230.    If (Len(T2WDirTest) > 0) Then
  231.       intResult = cChDir(T2WDirInst)
  232.       intResult = cKillDirs(T2WDirTest, True)
  233.    End If
  234.    
  235.    If (cIsRegistered() = True) Then
  236.       MsgBox "Thank you for your registration", , "T2WIN-32.DLL (registered)"
  237.    Else
  238.       MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL (unregistered)"
  239.    End If
  240.    
  241.    intResult = cTaskBarDeleteIcon(mdiT2W.hwnd)
  242.          
  243. End Sub
  244.  
  245. Private Sub MDIForm_Resize()
  246.    
  247.    Dim intResult     As Integer
  248.    
  249.    If (Me.WindowState = 1) Then
  250.       intResult = cTaskBarModifyIcon(mdiT2W.hwnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
  251.    End If
  252.    
  253.    If (Me.WindowState = 2) Then
  254.       intResult = cTaskBarModifyIcon(mdiT2W.hwnd, mdiT2W.Icon, mdiT2W.Caption)
  255.    End If
  256.       
  257.    If (Me.WindowState = 0) Then Me.WindowState = 2
  258.    
  259. End Sub
  260.  
  261. Private Sub mnu_Exit_Click()
  262.  
  263.    Unload Me
  264.  
  265. End Sub
  266.  
  267. Private Sub Picture2_Click()
  268.  
  269.    Dim intResult        As Integer
  270.    Dim sDeviceName      As String
  271.    Dim sDeviceType      As String
  272.    
  273.    intResult = cRasEnumDevices(sDeviceName, sDeviceType, True)
  274.    
  275.    Do While (intResult = RAS_SUCCESS)
  276.    
  277.       Debug.Print sDeviceName, sDeviceType
  278.       
  279.       intResult = cRasEnumDevices(sDeviceName, sDeviceType, False)
  280.    
  281.    Loop
  282.    
  283. End Sub
  284.  
  285. Private Sub Timer1_Timer()
  286.  
  287.    Label4.Caption = cScrollL(Label4.Caption)
  288.    
  289. End Sub
  290.  
  291.