VB.Net循环获取数组最大值触发共享成员访问警告，如何正确实现？

警告原因解析 #

你触发的警告源于value.x1.MaxValue的写法错误：MaxValue是x1所属数据类型（比如Integer、Double等）的共享静态成员，代表该类型能存储的最大值，而非你数组中所有x1元素的最大值。通过实例value.x1访问静态成员不符合VB.NET编码规范，因此编译器抛出警告。更关键的是，这行代码完全没实现你“获取数组中x1最大值”的需求。

正确实现步骤 #

要获取_VulGraph数组里所有x1的最大值，应提前计算该值（避免循环内重复计算，提升性能），再在循环中使用：

1. 计算数组中x1的最大值 #

使用LINQ的Max方法快速获取最大值（需确保项目引用System.Linq）：

' 提前计算所有x1的最大值
Dim maxX1 As Integer = Me._VulGraph.Max(Function(item) item.x1)

若x1是其他数值类型（如Double），将Integer替换为对应类型即可。

2. 修改循环内的判断逻辑 #

把原来的value.x1.MaxValue替换为提前计算好的maxX1，同时优化冗余的空值赋值逻辑：

修改后的完整代码：

Private Sub PicVulGraph_MouseMove(sender As Object, e As MouseEventArgs) Handles PicVulGraph.MouseMove
    Me.PicVulGraph.Refresh()

    Dim g As Graphics = Me.PicVulGraph.CreateGraphics
    g.DrawLine(Pens.Red, e.X, 0, e.X, Me.PicVulGraph.Height)

    Try
        ' 提前计算数组中x1的最大、最小值
        Dim maxX1 = Me._VulGraph.Max(Function(v) v.x1)
        Dim minX1 = Me._VulGraph.Min(Function(v) v.x1)
        ' 初始化标签为空
        Me.lblPointValueVul.Text = ""
        Me.lblTempVul.Text = ""

        For Each value As Type.Structures.GraphValue In Me._VulGraph
            If value.x1 = e.X Then
                Me.lblPointValueVul.Text = value.PointToTime
                Me.lblTempVul.Text = value.Data
                Exit For
            End If
        Next

        ' 边界判断：若e.X超出x1范围，保持标签为空
        If e.X < minX1 OrElse e.X > maxX1 Then
            Me.lblPointValueVul.Text = ""
            Me.lblTempVul.Text = ""
        End If
    Catch ex As Exception
        ' 建议添加异常日志，方便排查问题
        ' Debug.WriteLine(ex.ToString())
    End Try
End Sub

额外优化说明 #

• 将标签空值赋值逻辑移到循环外，避免重复执行，提升代码效率。
• 用Min方法获取x1最小值，统一处理边界判断。
• 异常块建议添加日志输出，否则出现问题难以排查。

内容的提问来源于stack exchange，提问作者Abe