UserControlで接続文字列を追加するとエラーが発生する

Question

Usercontrol（Add_companies）を作成してパネルに追加しようとしています すべて正常に動作しますが、ユーザーコントロールに接続を追加すると、エラー：

変数 'Add_companies1'は宣言されていないか、割り当てられていません。

そして、これは私の接続です：

Protected configuracion As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("Conn") 
Dim Conn As New SqlConnection(configuracion.ConnectionString) 
Public Cmd As SqlCommand 

Error one image

where the error code must be

と私は何もないコード行のエラーに行きます。

Answer 1

このコードをUserControlに配置し、フォームデザイナーがエラーをスローしていることを示しています。 VS IDEは、設計時にユーザーコントロールのインスタンスをロードして実行しています。

ProtectedとPublicアクセス修飾子をサポートするには、これらの3行のコードをクラスレベルに配置する必要があります。問題は、Dim Conn As New SqlConnection(configuracion.ConnectionString)で使用される場合、configuracionがnullであるように、デザイナーがConfigurationManager.ConnectionStrings("Conn")を検索できないことです。

クラスレベルでDim var as New Something()という構文を使用すると、コンパイラはそれをDim var as Somethingに変換し、var = New Something()をクラスコンストラクター（サブ新規）コードに置きます。

この問題を解決するには、デザインモードで実行中にエラーが発生するコードを防ぐ必要があります。すべてのコントロールには、この目的のためにDesignModeというブール型プロパティがあります。 DesignModeはコンストラクタコードで使用されていると有効ではないので、使用しようとすると失敗します。

Imports System.Configuration 
Imports System.Data.SqlClient 

Public Class Add_companies 
    Protected configuracion As ConnectionStringSettings 
    Private Conn As SqlConnection 
    Public Cmd As SqlCommand 

    Private Sub Add_companies_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     If Not Me.DesignMode Then 
      configuracion = ConfigurationManager.ConnectionStrings("Conn") 
      Conn = New SqlConnection(configuracion.ConnectionString) 
     End If 
    End Sub 
End Class