VB.NETで、デザイナで生成したフォームにネームスペース(Namespace)をつける方法を記載します。
私が勝手に見つけてなんとなくやっている方法なので、この方法の妥当性は不明です。



 

実行環境

Microsoft Visual Studio 2008 Professional(VB.NET)
.NET Framework 2.0
※2003/2005/2010でも同じことができるようです。

 

サンプルプロジェクト

ここで使用するプロジェクトは以下からダウンロードできます。
サンプルプロジェクトのダウンロード

解凍すると以下の構成になっています。
SampleDialog がネームスペースをつけたフォームです。

    ./SampleProject
       + SampleProject
       |  + frmMain.vb                     ----> メインフォームクラス
       |  + Dialog                         ----> ダイアログのソースが入ったフォルダ
       |     + SampleDialog.Designer.vb    ----> デザイナで生成したダイアログ
       |     + SampleDialog.resx           ----> ダイアログのリソースファイル
       |     + SampleDialog.vb             ----> ダイアログクラスのソース
       + SampleProject.sln                 ----> プロジェクトファイル
       + SampleProject.suo

 

フォームへネームスペースをつける方法

 以下にサンプルプロジェクトを元に内容を記述します。

1.まず通常の方法でフォーム(ダイアログ)を追加します。
  ここではSampleDialogを追加しました。

 

2.次に追加したフォーム(SampleDialog.vb)の[コードを表示]をして、
  以下のようにネームスペースを追加します。

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
' SampleDialog.vb
‌ 
Imports System.Windows.Forms
Namespace SampleNameSpace ' <--- この行を追加
‌ 
    Public Class SampleDialog
‌ 
        Private Sub OK_Button_Click(ByVal sender As System.Object..
        ..
        ..
        End Sub
        ..
‌ 
    End Class
‌ 
End Namespace  ' <--- この行を追加
このコードは CodePublisher で生成しています

 

3.デザイナで生成されたコード(SampleDialog.Designer.vb)をエディタ等で開き、
  以下のように2と同じネームスペースを追加します。

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
' SampleDialog.Designer.vb
Namespace SampleNameSpace   ' <--- この行を追加
‌ 
    <Global.Microsoft.VisualBasic.CompilerServices.Des...> _
    Partial Class SampleDialog
        Inherits System.Windows.Forms.Form
‌ 
        'フォームがコンポーネントの一覧をクリーンアップす..
        ..
        ..
    End Class
‌ 
End Namespace  ' <--- この行を追加
このコードは CodePublisher で生成しています

 

4.3で編集したコードを保存すると、以下のようなダイアログがでます。
  [はい][すべてに適用]をクリックしておきます。
  ファイル 75-2.jpg

 

5.以上でネームスペースつきでダイアログにアクセスできるようになりました。

1.
2.
3.
4.
5.
6.
7.
' frmMain.vb
Public Class frmMain
    Private Sub Button1_Click(ByVal sender As ..
        ' ダイアログを表示
        SampleNameSpace.SampleDialog.Show(Me)
    End Sub
End Class
このコードは CodePublisher で生成しています

コメント

  • コメントはまだありません。

コメントを投稿する

コメントを投稿する場合は以下に注意してください。

・記事に関係する内容であること
・特別な理由がない限り「全体公開」であること

これさえ守っていただければどんな内容でも投稿可能です。
皆様の質問やコメントは他の方の問題解決に繋がりますのでご協力ください。

コメント投稿フォーム
名前
メール
URL
コメント
閲覧制限

コメントを投稿するには、以下の問題に答えてください。
問題:「このサイト名をカタカナ六文字にして入力してください」