home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
util
/
time2win
/
t2w32500.exe
/
_MDIT2W.FRM
< prev
next >
Wrap
Text File
|
1997-12-25
|
13KB
|
421 lines
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Begin VB.MDIForm mdiT2W
AutoShowChildren= 0 'False
BackColor = &H00808080&
Caption = "TIME TO WIN 32-Bit DEMO"
ClientHeight = 7335
ClientLeft = 705
ClientTop = 1245
ClientWidth = 13125
Icon = "_Mdit2w.frx":0000
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 465
Left = 0
TabIndex = 0
Top = 0
Width = 13125
_Version = 65536
_ExtentX = 23151
_ExtentY = 820
_StockProps = 15
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 11025
Top = 30
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 300
Left = 11550
Picture = "_Mdit2w.frx":030A
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 6
Top = 75
Visible = 0 'False
Width = 300
End
Begin VB.ComboBox cmb_Group
Height = 315
Left = 2250
TabIndex = 2
Top = 90
Width = 4695
End
Begin VB.Label Label1
Caption = "&Select a group of functions"
Height = 255
Left = 90
TabIndex = 1
Tag = "this"
Top = 120
Width = 2085
End
End
Begin Threed.SSPanel SSPanel2
Align = 2 'Align Bottom
Height = 420
Left = 0
TabIndex = 3
Top = 6915
Width = 13125
_Version = 65536
_ExtentX = 23151
_ExtentY = 741
_StockProps = 15
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Begin Threed.SSPanel pnl_Timer
Height = 240
Left = 2970
TabIndex = 5
Top = 90
Width = 825
_Version = 65536
_ExtentX = 1455
_ExtentY = 423
_StockProps = 15
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Threed.SSPanel pnl_Version
Height = 240
Left = 11340
TabIndex = 8
Top = 90
Width = 510
_Version = 65536
_ExtentX = 900
_ExtentY = 423
_StockProps = 15
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label4
AutoSize = -1 'True
Height = 195
Left = 4935
TabIndex = 9
Top = 105
Width = 45
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "TIME2WIN version"
Height = 225
Left = 9765
TabIndex = 7
Tag = "elapsed time for ~ iterations (in ms)"
Top = 105
Width = 1440
End
Begin VB.Label Label2
Caption = "elapsed time for ? iterations (in ms)"
Height = 225
Left = 90
TabIndex = 4
Tag = "elapsed time for ~ iterations (in ms)"
Top = 105
Width = 2805
End
End
Begin VB.Menu mnu_List
Caption = "&Window List"
WindowList = -1 'True
End
Begin VB.Menu mnu_Exit
Caption = "E&xit"
End
Begin VB.Menu mnu_New
Caption = "14 new functions"
Begin VB.Menu mnu_new01
Caption = "GetBit2 (bit string/value : 3 functions)"
End
Begin VB.Menu mnu_New02
Caption = "SetBit2 (bit string/value : 3 functions)"
End
Begin VB.Menu mnu_New03
Caption = "OS Value (windows 95/NT : 7 fucntions)"
End
Begin VB.Menu mnu_New04
Caption = "GetNetUser"
End
Begin VB.Menu mnu_New05
Caption = ""
End
End
End
Attribute VB_Name = "mdiT2W"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim IsLoaded As Integer
Dim TimerStartOk As Integer
Dim TimerCloseOk As Integer
Dim TimerHandle As Integer
Dim TimerValue As Long
Private Sub cmb_Group_Click()
If (IsLoaded = False) Then Exit Sub
Dim Frm As Form
Select Case cmb_Group.ListIndex
Case 0: Set Frm = frmArray
Case 1: Set Frm = frmBitString
Case 2: Set Frm = frmDayMonth
Case 3: Set Frm = frmDAString
Case 4: Set Frm = frmDALong
Case 5: Set Frm = frmDAType
Case 6: Set Frm = frmIeeenum
Case 7: Set Frm = frmMem
Case 8: Set Frm = frmFile
Case 9: Set Frm = frmCompress
Case 10: Set Frm = frmCrc32
Case 11: Set Frm = frmEncrypt
Case 12: Set Frm = frmMatrix
Case 13: Set Frm = frmIsX
Case 14: Set Frm = frmSerialization
Case 15: Set Frm = frmString
Case 16: Set Frm = frmMisc
Case 17: Set Frm = frmObject
Case 18: Set Frm = frmLanguage
Case 19: Set Frm = frmCrypt
Case 20: Set Frm = frmRegistry
Case 21: Set Frm = frmMediaID
Case 22: Set Frm = frmDIBBitmap
Case 23: Set Frm = frmTile
Case 24: Set Frm = frmEnumPJ
Case 25: Set Frm = frmDateTime
Case 26: Set Frm = frmComboList
Case 27: Set Frm = frmWindows
Case 28: Set Frm = frmMailNews
Case 29: Set Frm = frmMath
End Select
Load Frm
End Sub
Private Sub MDIForm_Load()
Dim intResult As Integer
Dim hWnd As Long
hWnd = cDisplaySplash(App.Path + "\time2win.dib", 7000, True)
Me.WindowState = 2
IsLoaded = False
pnl_Version = Format(cGetVersion(), "#.00")
Call cCenterWindow(Me.hWnd)
Call sub_Check_Project
Call sub_Initialization
Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
If (cIsRegistered() = True) Then
Label4.Caption = "Thank you for your registration "
Me.Caption = Me.Caption + " (registered)"
Else
Label4.Caption = "Register TIME TO WIN "
Me.Caption = Me.Caption + " (unregistered)"
End If
Timer1.interval = 124
Timer1.Enabled = True
Me.Show
IsLoaded = True
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResult As Integer
If (Len(T2WDirTest) > 0) Then
intResult = cChDir(T2WDirInst)
intResult = cKillDirs(T2WDirTest, True)
End If
If (cIsRegistered() = True) Then
MsgBox "Thank you for your registration", , "T2WIN-32.DLL (registered)"
Else
MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL (unregistered)"
End If
intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
End Sub
Private Sub MDIForm_Resize()
Dim intResult As Integer
If (Me.WindowState = 1) Then
intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
End If
If (Me.WindowState = 2) Then
intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
End If
If (Me.WindowState = 0) Then Me.WindowState = 2
End Sub
Private Sub mnu_Exit_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Label4.Caption = cScrollL(Label4.Caption)
End Sub
Private Sub SSPanel1_Click()
Dim x As Integer
Dim y As Integer
Dim iErrorCode As Integer
Debug.Print cGetNetNumberOfAdapter(iErrorCode)
Debug.Print cGetNetAdapterNumber(1, iErrorCode)
Debug.Print cGetNetAdapterMacAddress(0, 1, iErrorCode), iErrorCode
Debug.Print cGetNetAdapterMacAddress(0, 2, iErrorCode), iErrorCode
Debug.Print cGetNetAdapterMacAddress(1, 1, iErrorCode), iErrorCode
Debug.Print cGetNetAdapterMacAddress(1, 2, iErrorCode), iErrorCode
Exit Sub
' Const Size = 40000
'
' Dim i, j As Long
'
' ReDim TestArray(0 To 2, 0 To Size) As Single
'
' For i = 0 To Size
' TestArray(0, i) = 1
' TestArray(1, i) = i
' TestArray(2, i) = i + 1
' Next i
'
' TestArray(0, i - 3) = 1
' TestArray(1, i - 3) = ((i - 3) * 1)
' TestArray(2, i - 3) = ((i - 3) * 2)
'
' TestArray(0, i - 2) = 1
' TestArray(1, i - 2) = ((i - 2) * 1)
' TestArray(2, i - 2) = ((i - 2) * 2)
'
' TestArray(0, i - 1) = 1
' TestArray(1, i - 1) = ((i - 1) * 1)
' TestArray(2, i - 1) = ((i - 1) * 2)
'
' 'TestArray(0, 5) = 1
' 'TestArray(1, 5) = 1
' 'TestArray(2, 5) = 2
'
' 'TestArray(0, 2) = 1
' 'TestArray(1, 2) = 1
' 'TestArray(2, 2) = 5
'
' 'TestArray(0, 1) = 10
' 'TestArray(1, 1) = 1
' 'TestArray(2, 1) = 1
'
' 'TestArray(0, 10) = 1
' 'TestArray(1, 10) = 1
' 'TestArray(2, 10) = 2
'
' 'TestArray(0, 9) = 11
' 'TestArray(1, 9) = 1
' 'TestArray(2, 9) = 5
'
' Debug.Print TestArray(0, Size - 2), TestArray(1, Size - 2), TestArray(2, Size - 2)
' Debug.Print TestArray(0, Size - 1), TestArray(1, Size - 1), TestArray(2, Size - 1)
' Debug.Print TestArray(0, Size), TestArray(1, Size), TestArray(2, Size)
'
' 'j = cRmvDupS(TestArray(), False) 'True)
'
' 'ReDim Preserve TestArray(0 To 2, 0 To (j - 1))
'
' Debug.Print "New array is "; j
' Debug.Print "Ubound (dim 1) is "; UBound(TestArray(), 1)
' Debug.Print "Lbound (dim 1) is "; LBound(TestArray(), 1)
' Debug.Print "Ubound (dim 2) is "; UBound(TestArray(), 2)
' Debug.Print "Lbound (dim 2) is "; LBound(TestArray(), 2)
'
' For i = 0 To (j - 1)
' Debug.Print TestArray(0, i), TestArray(1, i), TestArray(2, i)
' Next i
'
' Debug.Print "------->"
'
' ReDim NewTestArray(0 To 10) As Single
'
' For i = 0 To 10
' NewTestArray(i) = 1
' Next i
'
' NewTestArray(5) = 2
'
' 'j = cRmvDupS(NewTestArray(), True)
'
' Debug.Print "New array is "; j
' Debug.Print "Ubound is "; UBound(NewTestArray())
' Debug.Print "Lbound is "; LBound(NewTestArray())
'
' For i = 0 To (j - 1)
' Debug.Print NewTestArray(i)
' Next i
'
End Sub