如何解决Visual Basic多窗体间登录共享变量为空问题？

一、排查当前共享类空值问题 #

你当前采用的共享类方案本身是可行的，出现空值大概率是以下原因：

• 登录窗体设置GlobalVariables.LoggedInStudentID后，意外重新实例化了登录窗体或共享类（比如重复创建Login实例导致值被覆盖）
• 访问时写错了类名或变量名，存在拼写错误
• 设置变量的代码执行顺序有误：确保赋值操作在打开StudentDashboard之前完成

验证方法：在登录窗体赋值后加MsgBox(GlobalVariables.LoggedInStudentID)确认值已写入；在StudentDashboard的Load事件中同样添加该行代码，检查读取时的状态。

二、推荐的几种实现方案 #

1. 改进共享类（更严谨的版本） #

将共享变量封装为属性，增加空值校验，避免意外赋值：

Public Class AppGlobals
    Private Shared _loggedInStudentID As String = String.Empty

    Public Shared Property LoggedInStudentID As String
        Get
            Return _loggedInStudentID
        End Get
        Set(value As String)
            If String.IsNullOrWhiteSpace(value) Then
                Throw New ArgumentException("学生ID不能为空")
            End If
            _loggedInStudentID = value
        End Set
    End Property

    ' 可选：添加清除登录状态的方法
    Public Shared Sub ClearLoginState()
        _loggedInStudentID = String.Empty
    End Sub
End Class

使用方式：
登录窗体赋值：

AppGlobals.LoggedInStudentID = txtStudentID.Text.Trim()

StudentDashboard读取：

Dim studentID As String = AppGlobals.LoggedInStudentID
If Not String.IsNullOrWhiteSpace(studentID) Then
    ' 业务逻辑处理
Else
    ' 未登录，跳转回登录页
    Me.Hide()
    New LoginForm().Show()
End If

2. 构造函数传递（低耦合，无全局变量污染） #

如果不想依赖全局变量，推荐通过窗体构造函数直接传递用户信息，适合小型项目：

• 在StudentDashboard中添加带参数的构造函数：

Public Class StudentDashboard
    Private ReadOnly _studentID As String

    ' 保留无参构造函数（设计器运行依赖）
    Public Sub New()
        InitializeComponent()
    End Sub

    ' 带参构造函数，用于接收学生ID
    Public Sub New(studentID As String)
        Me.New() ' 调用无参构造初始化控件
        _studentID = studentID
    End Sub

    Private Sub StudentDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 使用传递的学生ID
        lblWelcome.Text = $"欢迎，学号：{_studentID}"
    End Sub
End Class

登录窗体跳转时传递参数：

Dim studentID As String = txtStudentID.Text.Trim()
If Not String.IsNullOrWhiteSpace(studentID) Then
    Me.Hide()
    ' 通过带参构造创建窗体实例
    Dim dashboard As New StudentDashboard(studentID)
    dashboard.Show()
Else
    MessageBox.Show("请输入学号")
End If

3. 内置存储My.Application.Properties #

Visual Basic提供了应用程序级的临时存储，适合保存会话级用户信息：
登录时设置：

My.Application.Properties("LoggedInStudentID") = txtStudentID.Text.Trim()

访问时读取：

If My.Application.Properties.Contains("LoggedInStudentID") Then
    Dim studentID As String = My.Application.Properties("LoggedInStudentID").ToString()
    ' 业务逻辑处理
Else
    ' 未登录处理
End If

退出登录时清除：

My.Application.Properties.Remove("LoggedInStudentID")

三、方案选择建议 #

• 小型项目：优先选择改进后的共享类或构造函数传递，简单直接
• 中型项目：推荐构造函数传递，降低全局变量带来的耦合风险
• 需要临时持久化会话数据：使用My.Application.Properties

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