Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Turning on all pushpin Balloon sTate

This is a discussion on Turning on all pushpin Balloon sTate within the Products: Pushpin Tool, Single State Mapper forums, part of the Map Forums category; I'm trying to turn on all the pushpins balloon's that I have on my map which is about 15 or ...

  1. #1
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Turning on all pushpin Balloon sTate

    I'm trying to turn on all the pushpins balloon's that I have on my map which is about 15 or so pushpins. The code that I'm using works but only turns on two of them and not the rest. Does anybody now why this is happening? Here is the code the I'm executing;

    Private Sub btnBalloonsONOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBalloonsONOFF.Click
    Dim oPushPin As MapPoint.Pushpin

    If bISBallOn = False Then
    btnBalloonsONOFF.Text = "Information On"
    bISBallOn = True

    For Each ds In oMap.DataSets
    oRecSet = ds.QueryAllRecords
    oRecSet.Pushpin.BalloonState = MapPoint.GeoBalloonState.geoDisplayBalloon
    Next
    Else
    btnBalloonsONOFF.Text = "Information Off"
    bISBallOn = False

    For Each ds In oMap.DataSets
    oRecSet = ds.QueryAllRecords
    oRecSet.Pushpin.BalloonState = MapPoint.GeoBalloonState.geoDisplayNone
    Next
    End If
    End Sub

  2. #2
    Bug's Avatar
    Bug
    Bug is offline Junior Member White Belt
    Join Date
    Feb 2004
    Posts
    6
    Here's how I do it.

    Public Sub MinimumDetails(ByVal Requester As frmMap)

    Dim oMap As MapPoint.Map = Requester.MappointControl1.ActiveMap
    Dim oDataSets As MapPoint.DataSets
    Dim oDataset As MapPoint.DataSet
    Dim oRS As MapPoint.Recordset

    oDataSets = oMap.DataSets

    For Each oDataset In oDataSets
    oRS = oDataset.QueryAllRecords
    oRS.MoveFirst()
    Try
    While Not oRS.EOF
    oRS.Pushpin.BalloonState = MapPoint.GeoBalloonState.geoDisplayName
    oRS.MoveNext()
    End While
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    Next
    End Sub
    End If
    Best Regards.
    Bug
    Microsoft Certified Solutions Developer

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. howto get balloon to show on mouseover pushpin
    By discostu in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 12-09-2009, 08:48 AM
  2. Displaying Balloon on Pushpin
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 11
    Last Post: 01-31-2005, 03:53 PM
  3. Turning postcodes into a regional breakdown
    By Nicky in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 11-26-2004, 07:12 PM
  4. Turning off the text directions in the OLE object
    By CraigA in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 06-01-2003, 02:06 PM
  5. turning imported data on & off in the view
    By nygel_humphrey in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 07-25-2002, 01:51 PM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66