Dear Sirs/ Madams,
Now, we have some problems in developing application with MapX.
We have 1 fail in releasing variable in MapX. When we use MapX 3.0 and
Visual Basic 5.0. We send source code to your and expect you support.
We run application in Visual Basic environment, we perform Map1_MouseMove
event some minutes then it has fail. When we exit program and run again
then Visual Basic has message "Out of Memory". The program is failed.
This Source Code is failed:
Dim pt As New Point
Dim fs1 As Features
Dim fs2 As Features
Dim fs3 As Features
Private Sub Form_Load()
Map1.CurrentTool = miArrowTool
Map1.MousePointer = miArrowCursor
End Sub
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim Lon As Double
Dim lat As Double
If Map1.CurrentTool = miArrowTool Then
Map1.ConvertCoord X, Y, Lon, lat, miScreenToMap
pt.Set Lon, lat
Set fs1 = Map1.Layers(1).SearchAtPoint(pt)
Set fs2 = Map1.Layers(2).SearchAtPoint(pt)
Set fs3 = Map1.Layers(3).SearchAtPoint(pt)
If fs1.Count > 0 Then
StatusBar1.Panels(1).Text = fs1(1).Name
ElseIf fs2.Count > 0 Then
StatusBar1.Panels(2).Text = fs2(1).Name
ElseIf fs3.Count > 0 Then
StatusBar1.Panels(3).Text = fs3(1).Name
Else
StatusBar1.Panels(1).Text = ""
StatusBar1.Panels(2).Text = ""
StatusBar1.Panels(3).Text = ""
End If
End If
Set pt = Nothing
End Sub
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
