PDA

Click to See Complete Forum and Search --> : vBulletin Tool 1.1.0 !


Fox
Mar 8th, 2001, 04:05 PM
Finally out! New included the whole Win32 API (declares, types, consts) see test below. Also I'm working on
a new GUI and some other things.. will announce that when done ;)

Original code

'Declares
public const srccopy = &HCC0020

public declare function gettickcount lib "kernel32" alias "GetTickCount" () as long
public declare function bitblt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) as long

'Function
sub timer()
dim Temp as long

'This code makes no sense
Temp = gettickcount()
Temp = sendmessage(wm_activate)

'Another useless code
if Temp > 10 then: end

'Love this command *g*
bitblt 0, 0, 100, 200, 0, 0, srccopy
end sub


Improved code

'Declares
Public Const SRCCOPY = &HCC0020

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _
ByVal hDestDC As Long, ByVal X As Long, _
ByVal Y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long) As Long

'Function
Sub Timer()
Dim Temp As Long

'This code makes no sense
Temp = GetTickCount()
Temp = SendMessage(WM_ACTIVATE)

'Another useless code
If Temp > 10 Then: End

'Love this command *g*
BitBlt 0, 0, 100, 200, 0, 0, SRCCOPY
End Sub

'Code improved by vBulletin Tool (http://orion.spaceports.com/~mccloud/vbtool.zip) (Save as...)


Update your vbTool today!

Mar 8th, 2001, 09:16 PM
API highlighting is nice.. but i think it is slowing
down the app considerably...

As a contributor .. We are having some competition
now.. a new VB-World Browser, Active's new tools and
so on..
Also consider posting this on the General Questions

That scroll bar was smart

Fox
Mar 8th, 2001, 11:59 PM
Good idea :)

Well I'd say: As long as you can disable the slow
things it's not really a problem.. ;)

The toolbar btw is a part of my new Star Trek LCARS controls.