Zoo Image

Question

Bonjour à tous,
j'utilse une petite appli pour charger une carte et pouvoir faire.le  problème se situe au niveau du bouton zoom arrière. Lorsque je clique dessus l'image disparaît et je ne comprend pas pourquoi.
Merci de votre aide !
Private Sub AddLayer_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddLayer_btn.Click
        OpenSHP_dlg.InitialDirectory = "\My Documents"
        OpenSHP_dlg.Filter = "Shape files (*.shp)|*.shp|All files (*.*)|*.*"
        OpenSHP_dlg.ShowDialog()
        b_ReturnVal = geo.AddLayer(OpenSHP_dlg.FileName()) '"\My Documents\xyz.shp"
        b_ReturnVal = geo.ZoomExt(0, 30, Me.Width(), Me.Height())
        If (b_ReturnVal) Then
            Me.Refresh()
        End If

    End Sub

    Private Sub GeoPADVB_frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        b_ReturnVal = False
        'c_ReturnVal = False
    End Sub

    Private Sub GeoPADVB_frm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        If (b_ReturnVal) Then
            Dim hDC As Long
            hDC = e.Graphics.GetHdc()
            geo.DrawLayer(hDC)
            e.Graphics.ReleaseHdc(hDC)
        End If
    End Sub

    Private Sub ZoomPlus_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZoomPlus_btn.Click
        b_ReturnVal = geo.ZoomDraw(3.0)
        If (b_ReturnVal) Then
            Me.Refresh()
        End If

    End Sub

'Zoom arrière
    Private Sub ZoomMinus_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZoomMinus_btn.Click
        b_ReturnVal = geo.ZoomDraw(0.5)
        If (b_ReturnVal) Then
            Me.Refresh()
        End If
    End Sub

    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        Me.Hide()
        frmListeEsp.Hide()
        FormMain.Show()
    End Sub

Kevin.Ory · Answer

Salut,
C'est quoi ta variable geo?

KIPRE74 · Answer

Bonsoir,

Dans mon projet j'ai ajouter les dll "GeoPAD.dll et GeoPADVB.NET.dll" de GeoPad, donc 
Dim geo As New GeoPADVB.NET.GeoPADCtrl

@+

Kevin.Ory · Answer

Ben alors, vu que tout ce qu'il y a dans ta fonction zoom arrière est: 
b_ReturnVal = geo.ZoomDraw(0.5) 
il semblerait bien que ce soit un problème de cette DLL ^^

Je ne vois pas ce que ça pourrait être d'autre a 1ère vue...

Zoo Image

3 réponses

Votre réponse

Discussions similaires