si tu ve mon code oké mais c pas ce ke tu crois
Private TV8 As TVEngine
Dim Scene(900) As TVScene
Dim deco As TVScene
Dim prii(900) As Integer
Private bon As TVMesh
Private InputEngine As TVInputEngine
Private sngPositionX As Single
Private sngPositionY As Single
Private sngPositionZ As Single
Dim Lower(900) As New TVActor
Dim Upper(900) As New TVActor
Dim Head(900) As New TVActor
Dim nick(900) As String
Private Room As TVMesh
Private Atmos As TVAtmosphere
Private sngWalk As Single
Private sngStrafe As Single
Private TankPosition As D3DVECTOR
Private Camera As TVCamera
Public TextMesh As TVMesh
Private sngBrake As Single
Public go As Integer
Public textc As TVScreen2DText
Public Scr As TVScreen2DImmediate
Public TexFactory As TVTextureFactory
Private DoLoop As Boolean
Private Sub Form_Load()
socket.teping.Enabled = True
lo = 0
lo2 = 0
num2 = 5
num = 13
For a = 0 To 11
List1.AddItem ""
Next
Randomize Timer
DoLoop = True
sngWalk = 0
sngStrafe = 0
sngPositionX = 0
sngPositionY = 20
sngPositionZ = 0
sngAngleX = 0
sngAngleY = 0
TankPosition.x = 50
TankPosition.y = 20
TankPosition.z = 50
Set TV8 = New TVEngine
TV8.Init3DFullscreen 1024, 768, 32
'TV8.Init3DWindowedMode Form3.hWnd
Set Scene(0) = New TVScene
Set deco = New TVScene
Set InputEngine = New TVInputEngine
Set Camera = New TVCamera
Set Scr = New TVScreen2DImmediate
Set TexFactory = New TVTextureFactory
TexFactory.LoadTexture "D:\TrueVision 3D SDK\VB\v3dworld\img\chat.jpg", "chat"
Set textc = New TVScreen2DText
Scene(0).SelectFont "Courier New"
Set Room = New TVMesh
Set Room = deco.CreateMeshBuilder
socket.Text9 = TV8.TimeElapsed
deco.LoadTexture "D:\TrueVision 3D SDK\VB\v3dworld\textures\game\stone_wall.bmp", , , "RoomTexture"
socket.Text8 = "1.25"
Room.AddFloor GetTex("RoomTexture" ), -500, -500, 500, 500
socket.Text8 = "1.30"
voila é text8 de la form socket kand mon prog plante &é a 1.25 donc ca plante sur la fonction Room.AddFloor GetTex("RoomTexture" ), -500, -500, 500, 500
ca t'avance vachement d'avoir mon coee n'es pas
---------------
Virtual 3D WorlD