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