-
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
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
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 (Save as...)
Update your vbTool today!
-
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
-
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.
