Le portail francophone de la géomatique

Option Explicit
Private mEncadrante As RealRegion
Private mfichier As nomfichier
Private mPasdefichier As Boolean

Private Sub Class_Initialize()
mPasdefichier = True
End Sub

Private Sub Class_Terminate()

    Set mEncadrante = Nothing

    Set mfichier = Nothing
End Sub


' Rectangle image
Public Property Get Encadrante() As RealRegion

    
    Set Encadrante = mEncadrante

End Property

Public Property Get fichier() As nomfichier

    Set fichier = mfichier

End Property

Public Property Set fichier(fichier As nomfichier)
    Set mfichier = Nothing
    Set mfichier = New nomfichier
    Set mfichier = fichier

If mfichier.existe Then
mPasdefichier = False
Else
mPasdefichier = True
End If

Call Fdessin.NCSRenderer1.Open(mfichier.nomcomplet, False)
    Set mEncadrante = Nothing
    Set mEncadrante = New RealRegion
mEncadrante.Top = Fdessin.NCSRenderer1.OriginY - 4000000
If Fdessin.NCSRenderer1.CellIncrementY > 0 Then
mEncadrante.Bottom = mEncadrante.Top - (Fdessin.NCSRenderer1.Height * Fdessin.NCSRenderer1.CellIncrementY)
Else
mEncadrante.Bottom = mEncadrante.Top + (Fdessin.NCSRenderer1.Height * Fdessin.NCSRenderer1.CellIncrementY)
End If
mEncadrante.Left = Fdessin.NCSRenderer1.OriginX
mEncadrante.Right = Fdessin.NCSRenderer1.Width * Fdessin.NCSRenderer1.CellIncrementX + mEncadrante.Left


Call Fdessin.NCSRenderer1.Close(True)


End Property

Public Property Get Pasdefichier() As Boolean

    Pasdefichier = mPasdefichier

End Property

Public Function Dessine(mdc As metricDC)

Dim h As RealRegion
Dim i As Long
Dim bands() As Long
Dim dummy&
  Dim dx As Double
  Dim dy As Double
  Dim dx1 As Double
  Dim dy1 As Double
  Dim x&
 Dim y&, x1&, y1&
  Dim l&
  Dim hi&
  
  Dim Ix As Long
  Dim Iy As Long
  Dim Ix1 As Long
  Dim Iy1 As Long
Dim res As Variant

If mPasdefichier Then Exit Function

Set h = New RealRegion

Set h = mEncadrante.Intersection(mdc.RealRegionDC)
h.ordonne
If h.EstVide Then
Set h = Nothing
Exit Function
End If
On Error Resume Next
Call Fdessin.NCSRenderer1.Open(mfichier.nomcomplet, False)

ReDim bands(Fdessin.NCSRenderer1.NumberOfBands - 1)
For i = 0 To UBound(bands)
bands(i) = i
Next i

mdc.ReelPeriph h.Left, h.Top
Ix = mdc.XencoursPh
Iy = mdc.yencoursph
mdc.ReelPeriph h.Right, h.Bottom
Ix1 = mdc.XencoursPh
Iy1 = mdc.yencoursph

x = CDbl((h.Left - mEncadrante.Left) / 0.5)
y = CDbl((mEncadrante.Top - h.Top) / 0.5)

x1 = CDbl((h.Right - mEncadrante.Left) / 0.5)
y1 = CDbl((mEncadrante.Top - h.Bottom) / 0.5)

Call Fdessin.NCSRenderer1.ConvertDatasetToWorld(x, y, dx, dy)
Call Fdessin.NCSRenderer1.ConvertDatasetToWorld(x1, y1, dx1, dy1)

Call Fdessin.NCSRenderer1.SetView(Fdessin.NCSRenderer1.NumberOfBands, bands, Ix1 - Ix, Iy1 - Iy, dx, dy, dx1, dy1)

Call Fdessin.NCSRenderer1.ReadImage(dx, dy, dx1, dy1, Ix1 - Ix, Iy1 - Iy)

Call Fdessin.NCSRenderer1.DrawImage(mdc.hdc, Ix, Iy, Ix1, Iy1, dx, dy, dx1, dy1)


Call Fdessin.NCSRenderer1.Close(True)
On Error GoTo 0
Set h = Nothing
End Function