16,554
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Structure customobj
Dim a As String
Dim b As String
End Structure
Dim obj1 As New customobj
Dim ls1 As New List(Of customobj)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj1.a = "a"
obj1.b = "b"
ls1.Add(obj1)
ls1(0).a = "改一个数" ‘在这里提示错误表达式是一个值,因此不能作为赋值目标
End Sub
End Class
Structure customobj
Dim a As String
Dim b As String
End Structure
改成:
Structure customobj
Public As String
Public As String
End Structure
另一种是我的解决方法:
obj1.a = "a"
obj1.b = "b"
ls1.Add(obj1)
dim objT as new customobj
objT=ls1(0)
objT.b="改一下"
ls1(0)=objT
感谢帮助。
Public Class Form1
Structure customobj
Dim a As String
Dim b As String
End Structure
Dim obj1 As New customobj
Dim ls1 As New List(Of customobj)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj1.a = "a"
obj1.b = "b"
ls1.Add(obj1)
' ls1(0).a = "改一个数" '在这里提示错误表达式是一个值,因此不能作为赋值目标
Dim f = ls1(0)
f.a = "改一个数"
MsgBox(f.a)
End Sub
End Class
Public Class Form1
Class customobj
Public a As String
Public b As String
End Class
Dim obj1 As New customobj
Dim ls1 As New List(Of customobj)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj1.a = "a"
obj1.b = "b"
ls1.Add(obj1)
ls1(0).a = "改一个数" '在这里提示错误表达式是一个值,因此不能作为赋值目标
End Sub
End Class