Question

我正在创建一个Windows应用程序，它在应用程序启动时需要动态连接字符串（用户需要通过表单提供数据库凭据），输入连接凭据用户后重定向到新的赢取表单一切正常，但我怎样才能将动态连接传递给另一种形式。

我试图将它保存到App变量但我不能（我认为它是只读的）此外，我尝试将其保存到注册表，但无法检索值。

还有其他选择吗？喜欢写作和将ConString检索到文本文件或XML

由于

Answer 1

这是如何获取和设置注册表值的：

Public Function GetRegistryValue(ByVal KeyName As String, Optional ByVal DefaultValue As Object = Nothing) As Object
        Dim res As Object = Nothing
        Try
            Dim k = My.Computer.Registry.CurrentUser.OpenSubKey("Software\YourAppName", True)
            If k IsNot Nothing Then
                res = k.GetValue(KeyName, DefaultValue)
            Else
                k = My.Computer.Registry.CurrentUser.CreateSubKey("Software\YourAppName")
            End If
            If k IsNot Nothing Then k.Close()
        Catch ' ex As Exception
            'PromptMsg(ex)
        End Try
        Return res
End Function

Public Sub SetRegistryValue(ByVal KeyName As String, ByVal _Value As Object)
        Try
            Dim k = My.Computer.Registry.CurrentUser.OpenSubKey("Software\YourAppName", True)
            If k IsNot Nothing Then
                k.SetValue(KeyName, _Value)
            Else
                k = My.Computer.Registry.CurrentUser.CreateSubKey("Software\YourAppName")
                k.SetValue(KeyName, _Value)
            End If
            If k IsNot Nothing Then k.Close()
        Catch ' ex As Exception
            'PromptMsg(ex)
        End Try
End Sub

它的工作率为100％，如果您将此答案标记为正确

将动态连接字符串传递给另一个Windows窗体（VB.NET）

1 个答案: