list 泛型 保存和取出对象的数据问题（昨天还没有解决）

Question

问题： TextBox1 输出为空白的，以下为代码。请帮忙解决一下
       
 Dim locations As New List(Of Location)
 
        For i As Integer = 0 To 20
            Dim loc As New Location()
            loc.ID = "ID" & i.ToString
            loc.Name = "测试"
            loc.X = "x"
            loc.Y = "y"
            loc.Ismain = False
            locations.Add(loc)        Next
      
        For Each v As Location In locations
            Me.TextBox1.AppendText(v.ID & v.Name & vbCrLf)
        Next
对象Location Public Class Location    Private _id As String
    Public Property ID() As String
        Get
            Return _id        End Get
        Set(ByVal value As String)
            value = _id        End Set
    End Property    Private _name As String
    Public Property Name() As String
        Get
            Return _name        End Get
        Set(ByVal value As String)
            value = _name        End Set
    End Property    Private _isMain As Boolean
    Public Property Ismain() As Boolean
        Get
            Return _isMain        End Get
        Set(ByVal value As Boolean)
            value = _isMain        End Set
    End Property    Private _x As String
    Public Property X() As String
        Get
            Return _x        End Get
        Set(ByVal value As String)
            value = _x        End Set
    End Property    Private _y As String
    Public Property Y() As String
        Get
            Return _y        End Get
        Set(ByVal value As String)
            value = _y        End Set
    End PropertyEnd Class
 

Answer 1

难不成你的TextBox的MultiLine属性为false？你这样：
 For Each v As Location In locations
            MessageBox.Show(v.ID & v.Name & vbCrLf)
        Next
试试

Answer 2

是MultiLine msgbox 试过了 弹出来也是空白的

Answer 3

你的代码
 Dim locations As New List(Of Location)
 
        For i As Integer = 0 To 20
            Dim loc As New Location()
            loc.ID = "ID" & i.ToString
            loc.Name = "测试"
            loc.X = "x"
            loc.Y = "y"
            loc.Ismain = False
            locations.Add(loc)        Next
      
        For Each v As Location In locations
            Me.TextBox1.AppendText(v.ID & v.Name & vbCrLf)
        Next
放在什么地方了？？打断点看看有没有执行？？如果执行了，在查找所有对TextBox1赋值的地方是否是执行后又被赋了空值。

Answer 4

都在同一个文件里面，TextBox1 可以看到明显的20个空白行。

Answer 5

文件的结构：form1.vb ，Loaction.vb 测试就连个文件

Answer 6

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim locations As New List(Of Location)        For i As Integer = 0 To 20
            Dim loc As New Location()
            loc.ID = "ID" & i.ToString
            loc.Name = "测试"
            loc.X = "x"
            loc.Y = "y"
            loc.Ismain = False
            locations.Add(loc)        Next        For Each v As Location In locations
            Me.TextBox1.AppendText("oo" & v.ID & v.Name & vbCrLf)
        Next    End Sub
End Class

Answer 7

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;namespace WindowsApplication74
{
    public class Location
    {
        String _id;
        public String ID
        {
            get
            {
                return _id;
            }
            set
            {
                _id = value;
            }
        }        String _name;
        public String Name
        {
            get
            {
                return _name;
            }
            set
            {
                _name = value;
            }
        }        bool _isMain;
        public bool Ismain
        {
            get
            {
                return _isMain;
            }
            set
            {
                _isMain = value;
            }
        }        String _x;
        public String X
        {
            get
            {
                return _x;
            }
            set
            {
                _x = value;
            }
        }        String _y;
        public String Y
        {
            get
            {
                return _y;
            }
            set
            {
                _y = value;
            }
        }
    }    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();            TextBox TextBox1 = new TextBox();
            TextBox1.Multiline = true;
            TextBox1.Height = 100;
            TextBox1.Parent = this;            List<Location> locations = new List<Location>();            for (int i = 0; i <= 20; i++)
            {
                Location loc = new Location();
                loc.ID = "ID" + i.ToString();
                loc.Name = "测试";
                loc.X = "x";
                loc.Y = "y";
                loc.Ismain = false;
                locations.Add(loc);
            }            foreach (Location v in locations)
                TextBox1.AppendText(v.ID + v.Name + Environment.NewLine);
        }
    }
}value=...

Answer 8

既然看了，回帖是种美德，肯定是textbox没有值，或者赋值为空了。。菜鸟愚见

Answer 9

上面代码给你写出来了
你写反了
 Set(ByVal value As String)
            value = _name        End Set应该是 Set(ByVal value As String)
            _name = value        End Set