vb.net - stringbuilder

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von susanne.

    vb.net - stringbuilder

    Ein liebes hallo,

    ich bin absolute anfängerin und komme mit programmieren überhaupt nicht zurecht. Ich möchte in einem geographischen programm (arcgis) - in dem mehrere layer (karten) geladen wurden - diese in einer message box darstellen. Dazu soll ich den string builder verwenden. Nur weiß ich nicht, wie ich den in den code einbauen muss, damit es auch funktioniert. Kann mir da jemand bitte helfen?

    Lieben dank im voraus!!

    code:

    VB.NET-Quellcode

    1. Imports ESRI.ArcGIS.Geodatabase
    2. Imports ESRI.ArcGIS.Carto
    3. Imports ESRI.ArcGIS.ArcMapUI
    4. Imports System.Text
    6. Public Class LayerLoop2_Button1
    7. Inherits ESRI.ArcGIS.Desktop.AddIns.Button
    9. Public Sub New()
    11. End Sub
    13. Protected Overrides Sub OnClick()
    15. AccessLayerViaMxDocument(My.ArcMap.Document)
    16. My.ArcMap.Application.CurrentTool = Nothing
    17. End Sub
    19. Shared Sub AccessLayerViaMxDocument(ByVal pMxDocument As IMxDocument)
    20. Dim pMap As IMap
    21. Dim pMaps As IMaps = pMxDocument.Maps
    22. Dim i As Integer
    24. For i = 0 To pMaps.Count - 1 Step i + 1
    25. pMap = pMaps.Item(i)
    26. Debug.WriteLine(pMap.Name)
    27. MsgBox(pMap.Name)
    29. Dim pEnumLayer As IEnumLayer = pMap.Layers(Nothing, True)
    30. pEnumLayer.Reset()
    31. Dim pLayer As ILayer = pEnumLayer.Next()
    32. Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()
    34. While Not pLayer Is Nothing
    36. Debug.WriteLine(pLayer.Name)
    38. pLayer = pEnumLayer.Next()
    40. sb.Append(pLayer.Name)
    41. MsgBox(sb.ToString())
    43. End While


    Edit by ~blaze~:
    *Codetags eingefügt*
    +Topic verschoben von Admin

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    so, und jetzt noch mit Einrückungen und ohne sinnlose Leerzeilen:

    VB.NET-Quellcode

    1. Imports ESRI.ArcGIS.Geodatabase
    2. Imports ESRI.ArcGIS.Carto
    3. Imports ESRI.ArcGIS.ArcMapUI
    4. Imports System.Text
    6. Public Class LayerLoop2_Button1
    7. Inherits ESRI.ArcGIS.Desktop.AddIns.Button
    9. Public Sub New()
    10. End Sub
    12. Protected Overrides Sub OnClick()
    13. AccessLayerViaMxDocument(My.ArcMap.Document)
    14. My.ArcMap.Application.CurrentTool = Nothing
    15. End Sub
    17. Shared Sub AccessLayerViaMxDocument(ByVal pMxDocument As IMxDocument)
    18. Dim pMap As IMap
    19. Dim pMaps As IMaps = pMxDocument.Maps
    20. Dim i As Integer
    21. For i = 0 To pMaps.Count - 1 Step i + 1
    22. pMap = pMaps.Item(i)
    23. Debug.WriteLine(pMap.Name)
    24. MsgBox(pMap.Name)
    25. Dim pEnumLayer As IEnumLayer = pMap.Layers(Nothing, True)
    26. pEnumLayer.Reset()
    27. Dim pLayer As ILayer = pEnumLayer.Next()
    28. Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()
    29. While Not pLayer Is Nothing
    30. Debug.WriteLine(pLayer.Name)
    31. pLayer = pEnumLayer.Next()
    32. sb.Append(pLayer.Name)
    33. MsgBox(sb.ToString())
    34. End While
    35. Next
    36. End Sub
    37. End Class
    So schön kann Code hier im Forum aussehen - gugge auch
    Forum-Funktionalität


    So, du sollst "das" in eine Messagebox einbauen?
    Im Code sehe ich aber 2 Msgbox-Aufrufe, also kannst du bischen genauer angeben, was zusammengesammelt werden soll und als Messagebox rauszuhauen ist?

    Hallo,

    und danke! Sieht wirklich gleich ganz anders aus!!!
    In der ersten messagebox soll der Name des Kartenblattes (des übergeordneten Rahmens stehen - hier mapname). Klickt man auf ok, kommt die zweite messagebox und hier sollte der string build eingebaut sein, der alle layer gemeinsam (alle die unterhalb des mapnames stehen) anzeigt. Ich habe versucht den stringbuild (sb.Append(pLayer.Name) oben bereits einzubauen, aber das funktioniert überghaupt nicht.... Vielen Dank für jede weitere Hilfe!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „susanne“ ()

    tja, keine Ahnung, könnte sein, dasses das schon ist:

    VB.NET-Quellcode

    1. Shared Sub AccessLayerViaMxDocument(ByVal pMxDocument As IMxDocument)
    2. Dim pMap As IMap
    3. Dim pMaps As IMaps = pMxDocument.Maps
    4. Dim i As Integer
    5. For i = 0 To pMaps.Count - 1
    6. pMap = pMaps.Item(i)
    7. Debug.WriteLine(pMap.Name)
    8. MsgBox(pMap.Name)
    9. Dim pEnumLayer = pMap.Layers(Nothing, True)
    10. pEnumLayer.Reset()
    11. Dim pLayer As ILayer = pEnumLayer.Next()
    12. Dim sb = New System.Text.StringBuilder()
    13. While pLayer IsNot Nothing
    14. Debug.WriteLine(pLayer.Name)
    15. sb.Append(pLayer.Name).append(vbLf)
    16. pLayer = pEnumLayer.Next()
    17. End While
    18. MsgBox(sb.ToString())
    19. Next
    20. End Sub

    Eiglich der einzige wesentliche Fehler, dass die 2.Msgbx in der Schleife war, statt dahinter, wenn der Sammel-Prozess fertig ist.
    Und Step i + 1 geht natürlich auch garnet

Facebook