Search:

thank you so much for all

finally it's working like i need:

'on class:
Public Property Get FullScreen() As Boolean
FullScreen = blnFullScreen
End Property

Public Property Let FullScreen(full As Boolean)
...

"Who needs DirectX when you can have a simple console window do all the 3D for ya. :D "
endeed ;)

now works more or less:

Public Property Get FullScreen() As Boolean
FullScreen = blnFullScreen
End Property

Public Property Let FullScreen(full As Boolean)
blnFullScreen = full
...

"Why do you re-create the device?"
i'm learn it....
"Does the driver supports the resolution you specified?"
i belive yes...
but maybe you have right: the device re-creation

The trick: did i miss something?

class:

Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function AdjustWindowRect Lib...

thank you so much for all to all... thanks

Public Property Let FullScreen(full As Boolean)
blnFullScreen = full
'Set d3dev = Nothing
If (full = True) Then
D3DWindow.Windowed = False
D3DWindow.SwapEffect =...

finally i get something.. the device must be destroyed and then created:

Public Property Let FullScreen(full As Boolean)
blnFullScreen = full
Set d3dev = Nothing
If (full = True)...

"..When the "Any" type is seen, particularly on ByRef arguments..."
that's why we use 'byval 0' for we get zero on 'Any' arguments

i did a property for convert from full screen to screen:

Public Property Get FullScreen() As Boolean
FullScreen = blnFullScreen
End Property

Public Property Let FullScreen(full As...

some functions declarations, from a library('Lib'), can have a 'Any' argument type...
can we use these type or not? or the 'Object' type is similar?

now i get it
thanks for all.. thank you

i'm sorry, but why 2 loops?

thanks for all.. thank you

the rate was for be 'thank you so much'... sorry only be 'tk'...
thank you so much for all...
i was severy confused on what event was activated when we close the window... so it's 'unload' event....

when we show a window, on load event, is correct doing it?
i have notice an issue with an infinite loop, when we terminate the window.. the window is showed again.
(yes... these topic is connected...

when we close the window, when we have an infinite loop, the window is closed, but the program stays on memory and the execution isn't terminated.
when we close the window, when we have an infinite...

i have 2 great books, but they are for C\C++
and that link for Directx 8 for VB6: http://directx4vb.vbgamer.com/DirectX4VB/TUT_DX8Start.asp
at least that link can be converted to portuguese...

The trick, is like GDI, right?
- create a brush and select it.... on Directx create a texure;
- we have a polygon points.... and the brush is drawed with that points.... on directx is more or less...

great.. now i have a working code and corrected...

Option Explicit
Dim d3d9 As IDirect3D9 ' // Direct3D9 object
Dim d3dev As IDirect3DDevice9 ' // Direct3D device
...

thank you so much for all.
that code intializate directx 9... now i must release them... how can i do it?
is just:

d3dev = Nothing
d3d9 = Nothing
???

heres the entire project:
179740
i use Windows 10 with compatible for Windows XP SP2

after reinstall the the DirectX8_RunTimes and reboot the PC, i can use the dx9vb.tlb.
now heres the update code:

Option Explicit

Dim pD3D As IDirect3D9
Dim pd3dDevice As IDirect3DDevice9
Dim...

i'm starting using Directx 9 on VB6.
maybe it's the tlb file... but i don't know.
see the actual code just for Directx9 initialization:

Option Explicit
Dim pD3D As Direct3D9
Dim pd3dDevice As...

i fixed just creating the ResultImage class variable on global section and just set and NewImage() on DrawImagePlanePoints().
thank you so much
now i need another update that i'm failling: the...

the speed seems to be more than 2fps.. seems more or less... but if i use more images.. maybe it will be 2fps

i belive that i have a memory leak on my function..
i tryied

ResultImage.DrawImage DestinationHDC, 0, 0
ResultImage.DestroyObjects
'...........
Public Sub DestroyObjects()
If hMemDC...

thank you so much for correct me.
maybe i can find a function for that on internet, but i don't belive that i can use Z and ZDepth.
but i get your point.. thanks for that.
anotherthing: i don't...

finally i speed up my function using the AlphaBlend():

Friend Sub DrawImagePlanePoints(DestinationHDC As Long, Points() As Position3D, WorldSize As Size3D, Optional ByVal Opacity As Long = 255)
...

honestly i don't know de difference... it's still confused :(

honesty i need time and have 'afraid'... why!?! the Directx seems like a new language.... using Windows API we must do several things just for create a Window... yes we need several things for only...

my CPU:Intel(R) Core(TM)2 Duo CPU T9500 @ 2.60GHz 2.60 GHz 64bits
the trapezoid seems limited and i can't control it :(
i have 1 function for it:

Private Sub...

i know, but before i start learning Directx 9, maybe i can win some speed.
DrawImageRectanglePoints() do:
1 - save the destination image on memory(1500X700);
2 - we had load the image, from...

make my DrawImageRectanglePoints() for be used on multithread way... for be more faster.
and i need make another little simple update: change use a small size memory image for then draw it.......

the CreateThread(), accept parameters(even arrays) for the adressed function?

Public Sub Thread( byref start as long)

Dim i As Long
i=start
Do While True

Form1.botton.Caption =...

i'm sorry, if i 'atack' your topic... but believe me that i'm not the only one getting these type initial problems.
thank you so much for correct me.. and i saved that msnd link:...

from C++ - Beginning DirectX 9 book(it's for C\C++), we have:

LPDIRECT3D9 pD3D; // the Direct3D object
LPDIRECT3DDEVICE9 pd3dDevice; // the Direct3D device
but your library don't have these 2...

thank you so much.
i never programmed DirectX... i have DirectX 9 tutorials, but are for C\C++.. and not VB6.. so what you can advice for i learn more?