Rabu, 29 Agustus 2007

Oom - How to know speed form access (VB6)

You can look your speed form access With simulation. This is very useful If you want To know access "speed" you form . Very Simple and easy.

'**************************************
' Name: How to knowspeed form access
' Description:This code just to know "speed" form access.
' By: oom
' Paste This code in the module don't in form_Load
' Change Start object as sub main
' For check speed form :
' run the form for the first time and look how many
' you get access on speed form.
' Step two load picture or large picture in form and
' then check again how many form speed is u get.
'**************************************

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub main()
Dim lSpeedTime As Long
Dim SInfoSpeed As String
lSpeedTime = GetTickCount
Load Form1
Form1.Show
lSpeedTime = GetTickCount - lSpeedTime
' this is only simulation
    If lSpeedTime <= 50 Then
        SInfoSpeed = "[Very Fast]"
    ElseIf lSpeedTime >= 50 And lSpeedTime <= 100 Then
        SInfoSpeed = "[Normal]"
    ElseIf lSpeedTime >= 100 And lSpeedTime <= 200 Then
        SInfoSpeed = "[Slow]"
    ElseIf lSpeedTime >= 200 Then
        SInfoSpeed = "[Very Slow]"
End If
Form1.Caption = "Time Speed Form: " & lSpeedTime & " Milliseconds - " & SInfoSpeed
End Sub
 

User yang telah mengakses code ini sampai sekarang sebanyak  972 orang dari seluruh dunia.