networkcredentials.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 44 行

Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace MobileDevelopersHandbook

    Public Class NetworkCredentials

        Private Shared thisclass As NetworkCredentials = Nothing

        Public Shared ReadOnly Property Instance() As NetworkCredentials
            Get
                If (thisclass Is Nothing) Then
                    thisclass = New NetworkCredentials()
                End If
                Return thisclass
            End Get
        End Property

        Private _username As String = ""

        Public Property Username() As String

            Get
                Return _username
            End Get
            Set(ByVal value As String)
                _username = value
            End Set
        End Property

        Private _pwd As String = ""

        Public Property UserPassword() As String
            Get
                Return _pwd
            End Get
            Set(ByVal value As String)
                _pwd = value
            End Set
        End Property
    End Class
End Namespace