从VB.net中的模块中读取单选按钮(Reading radio buttons from module in VB.net)

 我创建了这个模块，我知道结构学生和老师的学生和老师都是字符串（这些存储为我的单选按钮），但是当我将这些保存到文件中时，这可以通过保存真或假来实现id和密码的值。 但是，我无法从另一个班级读取单选按钮。 
 
 这是我的模块类 
 
Imports System.IO
Module user_info_mod
    Structure user
        <VBFixedString(3)> Dim name As String
        <VBFixedString(3)> Dim password As String
        <VBFixedString(7)> Dim student As String
        <VBFixedString(3)> Dim teacher As String
    End Structure
    Public newuser As user
    Public userNumber As Integer = FreeFile()
    Public userrecordNumber As Integer = 1
    Public Sub setRecordNumber()
        Dim n As Byte = 0
        FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
        While Not EOF(userNumber)
            n = n + 1               'increments the record number of the user
            FileGet(userNumber, newuser, n)
        End While
        userrecordNumber = n
        FileClose(userNumber)
    End Sub

End Module
 
 这是我试图读取主文件中的单选按钮（newuser.student = True） 
 
Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)         Handles cmdLogin.Click
        Dim password As String
        password = txtPassword.Text
        Dim username As String
        username = txtUsername.Text
        FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
        FileGet(userNumber, newuser, userrecordNumber)

        If password = newuser.password And username = newuser.name And newuser.student = True Then
            MsgBox("ID Accepted")

            Dim frmNew As New Student_selection    
            frmNew.ShowDialog() 
            FileClose(userNumber)

        Else
            FileClose(userNumber)
            MsgBox("ID is not accepted")
        End If
    End Sub
 
 如果我要在模块中将字符串更改为布尔值，这不能使我在模块中设置记录号时保存用户的文件，那么解决此问题的正确方法是什么？ 

i have created this module and i know that the student and teacher in the structure student and teacher are put as string (these are stored as my radio buttons), but when i save these to the file, this works by saving a true or false value for the id and password. however, i am unable to read the radio buttons from another class.
 
this is my module class
 
Imports System.IO
Module user_info_mod
    Structure user
        <VBFixedString(3)> Dim name As String
        <VBFixedString(3)> Dim password As String
        <VBFixedString(7)> Dim student As String
        <VBFixedString(3)> Dim teacher As String
    End Structure
    Public newuser As user
    Public userNumber As Integer = FreeFile()
    Public userrecordNumber As Integer = 1
    Public Sub setRecordNumber()
        Dim n As Byte = 0
        FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
        While Not EOF(userNumber)
            n = n + 1               'increments the record number of the user
            FileGet(userNumber, newuser, n)
        End While
        userrecordNumber = n
        FileClose(userNumber)
    End Sub

End Module
 
this is where i am trying to read the radio button in the main file ( newuser.student=True)
 
Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)         Handles cmdLogin.Click
        Dim password As String
        password = txtPassword.Text
        Dim username As String
        username = txtUsername.Text
        FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
        FileGet(userNumber, newuser, userrecordNumber)

        If password = newuser.password And username = newuser.name And newuser.student = True Then
            MsgBox("ID Accepted")

            Dim frmNew As New Student_selection    
            frmNew.ShowDialog() 
            FileClose(userNumber)

        Else
            FileClose(userNumber)
            MsgBox("ID is not accepted")
        End If
    End Sub
 
if i am to change the string to boolean in the module, this is not enabling me to save a user's file when setting the record number within the module, so what is the correct way in order to solve this problem?