C# と VB.NET の質問掲示板

コードを貼る時は、投稿モードを[図表モード]にした方が良いですよ。


■No14566 (あき さん) に返信
……?? 話の流れがわからなくなりました。

これは、最初の質問と同じ内容ですか?
それとも、別の質問ですか?
(別の質問だとしたら、前の問題が解決したのかどうかを教えてください)


> wStr = Me.UserControl1.CaptionText（実際はラベルのTextプロパティ）
> wStr = Me.UserControl1.Text（テキストのTextプロパティ）
> wStr = Me.UserControl1.NameText（実際はラベルのTextプロパティ）

UserControl1 というユーザーコントロールを貼り付けた場合、既定では
UserControl11, UserControl12, UserControl13…という名前になるはずです。

これが、最初の質問と同じなのだとしたら、
　「UserControl1」という「ユーザーコントロールの型名」ではなく、
　フォームに貼りつけた時の「ユーザーコントロールの名前(Name)」
を使ってください。
もし、型名でアクセスしたいのであれば、それらを Shared にする必要があります。



> 上記�@�Bは値を参照できるのですが、�Aがうまくいきません。
UserControl は、もともと「Text プロパティ」を持っています。

もし、元の Text を上書きして、別の Text プロパティを再実装したいなら、
シャドウイングするか、オーバーライドすることになります。
今回は、オーバーライドの道を選択されたのですね?

一応確認。Me.Text と MyClass.Text と MyBase.Text の違いは、把握できていますか?
http://blogs.wankuma.com/jeanne/archive/2006/11/09/44157.aspx
http://smdn.invisiblefulmoon.net/ikimasshoy/vbdotnet/memyclassmybase.html


> どうもフォーム上のユーザーコントロールに値を入力しても、参照時には空文字になっています。
そもそも UserControl の Text プロパティは、非表示扱いになっているはずです。
(プロパティ画面上からも隠されていますし、コードエディタ上でも、IntelliSense に現れないはず)

　Bindable属性 … False
　Browsable属性 … False
　EditorBrowsable属性 … Never
　DesignerSerializationVisibility属性 … Hidden

それでもあえて Text という名前を使おうとしているという事は、
「Overrides Property Text」に対して、これらの属性値を変更しているのでしょうか。
それとも、デザイン時には現れない、隠しプロパティとして実装したいのでしょうか。


もし、属性を変更しているのだとしたら、DesignerSerializationVisibility の内容を
確認してみてください。そして、Form1.Designer.vb ファイルにおいて、Text プロパティの
シリアライズが、期待通りに行われているかを確認してみてください。
デザイナによって空文字列がシリアライズされているなら、起動時の初期値も空になります。


> Get
>    Return m_InputText
> End Get
ここで取得するのは、txtText.Text でも MyBase.Text でもなく「m_InputText」なのですね。
では、この m_InputText の初期値は何にしていますか?


> If (IsDBNull(New_Text)) And (New_Text.Length = 0) Then
New_Text の型は String 型ですよね。

String である以上、IsDBNull は常に False を返します。
ですから、このコードが True になる事はありません。

しかも、(AndAlso ではなく)And 演算子を使っているため、このコードだと、
プロパティに Nothing を代入された場合に、エラーになってしまいます。


>   If New_Text <> m_InputText Then
>       OnInputTextChanged(EventArgs.Empty)
>   End If
>   m_OldText = m_InputText  ' 変更前の値を記録
>   m_InputText = New_Text   ' 更新後の値を設定
ここでは、「m_InputText」が変更される前に、Changed イベントを発生させていますが、
あまり好ましくありません。

Changed というイベント名は、「変更後」に発生させるべきとされていますので、
できれば、m_InputText の変更後に発生させるべきでしょう。

もし、変更前に発生させたいのであれば、Changing という名称にしましょう。


さらに言えば、Text プロパティの変更時に、TextChanged は発生させずに、
InputTextChanged だけを発生させるというのは、対象性が無いような気がします。
プロパティ名とイベント名を統一した方がよろしいかと。

■No14570 (魔界の仮面弁士 さん) に返信
> コードを貼る時は、投稿モードを[図表モード]にした方が良いですよ。
 
　すいません。こういった掲示板への投稿が始めてでご迷惑おかけします。
　以後気をつけます。 
  
> これが、最初の質問と同じなのだとしたら、
> 　「UserControl1」という「ユーザーコントロールの型名」ではなく、
> 　フォームに貼りつけた時の「ユーザーコントロールの名前(Name)」
> を使ってください。
> もし、型名でアクセスしたいのであれば、それらを Shared にする必要があります。
  私の記載表現が悪かったようですね。ユーザーコントロールの名前でアクセスしております。

>>上記�@�Bは値を参照できるのですが、�Aがうまくいきません。
> UserControl は、もともと「Text プロパティ」を持っています。
> 
　もともと持っている「Text プロパティ」はどのようにユーザーコントロール側で
　実装？すれば良いんでしょうか？

> もし、元の Text を上書きして、別の Text プロパティを再実装したいなら、
> シャドウイングするか、オーバーライドすることになります。
> 今回は、オーバーライドの道を選択されたのですね?

　　もともと、プロパティ名がTextだったのをInputTextで実装していて、
　　最初にご質問したエラーが表示される現象が発生しておりました。

　　それを、またTextに変更（アップグレードツールにて生成された状態）に戻した次第です。
 
>>どうもフォーム上のユーザーコントロールに値を入力しても、参照時には空文字になっています。
> そもそも UserControl の Text プロパティは、非表示扱いになっているはずです。
> (プロパティ画面上からも隠されていますし、コードエディタ上でも、IntelliSense に現れないはず)
> 
> 　Bindable属性 … False
> 　Browsable属性 … False
> 　EditorBrowsable属性 … Never
> 　DesignerSerializationVisibility属性 … Hidden
> 
> それでもあえて Text という名前を使おうとしているという事は、
> 「Overrides Property Text」に対して、これらの属性値を変更しているのでしょうか。
> それとも、デザイン時には現れない、隠しプロパティとして実装したいのでしょうか。

　デザイナ上から消えてしまうのは、そういう事だったのですね。
　私としては、テキストボックス部分のテキストプロパティを利用できれば良いので
　元々のTextプロパティで十分なのですが、デザイナ上で設定できてコード上からも利用できる
　形にしたいのです。


>>Get
>>   Return m_InputText
>>End Get
> ここで取得するのは、txtText.Text でも MyBase.Text でもなく「m_InputText」なのですね。
> では、この m_InputText の初期値は何にしていますか?
> 
　　以下に変更しました。
　　Get
   　　Return txtText.Text
　　End Get


>>If (IsDBNull(New_Text)) And (New_Text.Length = 0) Then
> New_Text の型は String 型ですよね。
> 
> String である以上、IsDBNull は常に False を返します。
> ですから、このコードが True になる事はありません。
> 
> しかも、(AndAlso ではなく)And 演算子を使っているため、このコードだと、
> プロパティに Nothing を代入された場合に、エラーになってしまいます。
> 
> 
>>  If New_Text <> m_InputText Then
>>      OnInputTextChanged(EventArgs.Empty)
>>  End If
>>  m_OldText = m_InputText  ' 変更前の値を記録
>>  m_InputText = New_Text   ' 更新後の値を設定
> ここでは、「m_InputText」が変更される前に、Changed イベントを発生させていますが、
> あまり好ましくありません。
> 
> Changed というイベント名は、「変更後」に発生させるべきとされていますので、
> できれば、m_InputText の変更後に発生させるべきでしょう。
> 
> もし、変更前に発生させたいのであれば、Changing という名称にしましょう。
> 
　ご指導ありがとうございます。実装箇所を変更して確認します。
　何か色々問題の箇所がありすぎるようなのでお返事頂いた内容を吟味して整理してみます。
　
　　
　

■No14578 (あき さん) に返信
> 　もともと持っている「Text プロパティ」はどのようにユーザーコントロール側で
> 　実装？すれば良いんでしょうか？
まず、Text プロパティを Overrides します。(現在書かれているコードそのものです)
そして、その「非表示状態」を解除するために、先述の属性を付加します。すなわち

  Imports System.ComponentModel
  <DefaultEvent("TextChanged")> _
  Public Class UserControl1
           ：
    <Browsable(True), EditorBrowsable(EditorBrowsableState.Always)> _
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    Public Overrides Property Text() As String
           ：
    End Property
           ：
  End Class

のような構造になります。Bindable 属性は変更してもしなくても構いません。
クラスの DefaultEvent 指定も任意です。指定してもしなくても構いません。


> 以下に変更しました。
> Get
>   Return txtText.Text
> End Get
データ保持を txtText に任せるようにしたのですね。

であれば、イベントも繋げて、
  Private Sub txtText_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtText.TextChanged
    OnTextChanged(EventArgs.Empty)
  End Sub
などとした方が良いかと思います。実行時に、手動で TextBox が編集された場合に備えて。


Set 節については、たとえば、
  Set(ByVal value As String)
    txtText.Text = value
  End Set
といった単純なコードになるかと思います。
ただし、OldText 等の保持が必要であるなら、もう少し異なるコードになるでしょう。
(この部分は、あきさんが書かれている仕様に従ったコードにしてください)


> 　もともと、プロパティ名がTextだったのをInputTextで実装していて、
> 　最初にご質問したエラーが表示される現象が発生しておりました。
その現象は解決されたのでしょうか?

当方で、「Class UserControl1」に「Public Property IntputText() As String」を
実装して、Form1 に "UserControl1" として貼り付けてみましたが、
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    Me.UserControl11.IntputText = "TEST"
  End Sub
というコードで問題無くコンパイルできましたよ。


>>>If (IsDBNull(New_Text)) And (New_Text.Length = 0) Then
>>しかも、(AndAlso ではなく)And 演算子を使っているため、このコードだと、
>>プロパティに Nothing を代入された場合に、エラーになってしまいます。

この部分、アップグレード前の VB6 ソースはどのようなコードだったのでしょうか?

文字列型である New_Text が、空(Nothing または 長さゼロの文字列)で
あるかどうかを検証したいのであれば、上記のようなコードではなく、
  If Len(New_Text) <> 0 Then
あるいは、
  If New_Text = "" Then
あるいは、
  If New_Text = Nothing Then
あるいは、
  If String.IsNullOrEmpty(New_Text) Then
などと書けば良いかと思います。


元のコードを尊重した書き方にするのであれば、
  If IsNothing(New_Text) OrElse New_Text.Length = 0 Then
あるいは、
  If New_Text Is Nothing OrElse New_Text.Length = 0 Then
などといった表現になるでしょう。
(今回は And / AndAlso ではなく、Or / OrElse を使っています)

■No14581 (魔界の仮面弁士 さん) に返信
>もともと持っている「Text プロパティ」はどのようにユーザーコントロール側で
 
  Textプロパティの実装試してみます。

>もともと、プロパティ名がTextだったのをInputTextで実装していて、
>最初にご質問したエラーが表示される現象が発生しておりました。
>その現象は解決されたのでしょうか?

　解消されてはおりません。
　フォーム上のユーザーコントロールの値を、モジュール内から参照すると
　「非共有メンバへのアクセス....」のエラーがでます。

  １．Main関数よりスタートアップフォームの起動
　２．フォームより、Sample.DaatRead様な記述でモジュール内の関数をコール
　３．モジュール内でフォーム上のユーザーコントロールのプロパティを参照

  　　Modul Sample
　　　　Public Sub DataRead
           Dim s as String = UserCtl.InputText
        End Sub
  　　End Sample
　
　上記１．のMain関数の中では、ユーザーコントロールを貼り付けているフォームのインスタンスを生成して
　Application.Run(フォーム)の処理を書いています。
　
　VB6.0では実行できる形式のコードです。
　やはりユーザーコントロールに問題があるのでしょうか？

> 　３．モジュール内でフォーム上のユーザーコントロールのプロパティを参照
> 
>   　　Modul Sample
> 　　　　Public Sub DataRead
>            Dim s as String = UserCtl.InputText
>         End Sub
>   　　End Sample
> 　
> 　VB6.0では実行できる形式のコードです。

やっぱり、記述ミスではなさそうですね。
先に返信したとおり、「インスタンス」について理解されたほうがよいと思います。

Form1(ボタン１個)とForm2だけの新規プロジェクトで次を実行してみてください。

[Form1]
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim frmA As New Form2
    frmA.Show()

    Dim frmB As New Form2
    frmB.Show()

    Form2.Show()

    frmA.Text = "frmA"
    frmB.Text = "frmB"
    Form2.Text = "Form2"

End Sub

Form2の部分が暗黙のフォームインスタンスです。
フォームの型名が初めて実行されたときにFrameworkが裏で勝手にNewしてくれます。
それ以降は勝手にそのインスタンスに対してメンバが実行されます。
この仕様はVB6と同じです。
しかし、Newというかインスタンスを意識しないでVB6を使っていらっしゃったので上記の理解ができていないと思われます。

これを踏まえて、
UserCtl.InputText
がどうあるべきかを考えるとよいでしょう。
つまり、「どこの何の」InputTextと書くべきか。

インスタンスがわかったらSharedについて理解をしてください。
「非共有〜」の共有とはSharedだと解釈してください。

■No14595 (まどか さん) に返信

  ありがとうございます。
　まどかさんの書いて下さったサンプルコードを実行してみました。
　
　私のコードはつまり、Form2の部分を使用していたことになるという事なのですね。

> それ以降は勝手にそのインスタンスに対してメンバが実行されます。
　この言葉の意味が半分くらいしか理解できません。
　出来ればもう少しどういうことか説明いただきたいのですが。。　

> インスタンスがわかったらSharedについて理解をしてください。
> 「非共有〜」の共有とはSharedだと解釈してください。

　共有メンバにすると、インスタンス生成なしでイキナリクラスのメンバを使用できるという風に理解しております。

　私は、最初のMain関数内でスタートアップフォームのインスタンスを生成してそれを
　Dim frm as New StarUpForm
　Application.Run(frm) とするだけで良いと思っておりました。

　Modulの先頭にも次の記述がいるということでしょうか？

　Public frm as New StartUpForm ※（ユーザーコントロールが貼り付いているフォーム）

  よろしくお願い致します。

■No14597 (あき さん) に返信
> 「非共有メンバへのアクセス....」のエラーがでます。
確認させてください。
UserCtl というのは、「フォームに貼った時につける名前」の方では無く、
「ユーザーコントロールの型名」なのですね?


> ３．モジュール内でフォーム上のユーザーコントロールのプロパティを参照
そもそも、なぜ Module からアクセスさせたいのでしょうか?
StartUpForm 内の事であれば、Module ではなく、StartUpForm 自身にやらせれば良いはず。

どうしても Module に処理させたいのであれば、
　Public Sub DataRead()
　　Dim s as String = UserCtl.InputText
　End Sub
ではなく、
　Public Sub DataRead(ByVal ctrl As UserCtl)
　　Dim s As String = ctrl.InputText
　End Sub
のように、UserControl のインスタンスを渡してください。
この場合、呼び出し側はスタートアップフォーム内から
　Private Sub StartUpForm_Load(ByVal sender As Object, ……
　　DataRead(Me.UserCtl1)
　End Sub
のように書きます。

# このほか、My.Forms.StartUpForm.UserCtl1 や StartUpForm.UserCtl1 の構文を使って
# アクセスする手法もありますが、個人的には、あまりお薦めはしません。


> Modulの先頭にも次の記述がいるということでしょうか？
> 　Public frm as New StartUpForm ※（ユーザーコントロールが貼り付いているフォーム）
それではマズイと思いますよ。

「New」した時点で、表示中の物とそっくりの別フォームが新たに生成されて
しまいますので、元のフォームとは別の物を操作する結果になってしまいます。

>>それ以降は勝手にそのインスタンスに対してメンバが実行されます。
> 　出来ればもう少しどういうことか説明いただきたいのですが。。　

たとえば、
Form2.Show()
Form2.Text = "A"
Form2.Hide()
の場合
最初に型名が現れたときにNewされインスタンスが出来上がります。
それ以降の同じ型名は最初に作成されたインスタンスが利用され、「同じインスタンス」が保証されます。
上記を書き直すと
Dim _Form2 As New Form2
_Form2.Show()
_Form2.Text = "A"
_Form2.Hide()
と同じ挙動ということです。
しかも、_Form2は名前空間が一緒ならどこからでもアクセスできます。(どこに書いたForm2.〜もという意味)

よく、このやり方をしないほうがよいといわれる理由は
いったい「いつ」「だれが」作成したインスタンスかわからなくなり、
可読性や保守性、最悪テストのしにくさや動作保証のしにくさにつながるからです。
またこの挙動の欠点は、Newされるタイミングが、「たまたま実行しようとしたときに初めて出てきたから」であり
動作条件によって変わってしまうからです。
#これは「ここではXXXXプロパティが設定されているはずだ」などの前提を作れないことを意味します。
#前提が作れないということは極端な話、テストできないということ

上記のことを踏まえると、すべて暗黙のフォームインスタンスにしてNewされるタイミングを限定して保証するか
すべて明示的にインスタンスを作成し自分が触っているインスタンスがどこの誰が作ったのかを意識するのどちらかです。

> 　私は、最初のMain関数内でスタートアップフォームのインスタンスを生成してそれを
> 　Dim frm as New StarUpForm
> 　Application.Run(frm) とするだけで良いと思っておりました。
> 
> 　Modulの先頭にも次の記述がいるということでしょうか？
> 
> 　Public frm as New StartUpForm ※（ユーザーコントロールが貼り付いているフォーム）

「Dim frm」はローカル変数ですからMainの中だけで参照できます。
ModuleはNewしなくてもよいクラスと考えてください。
そして、frmとModuleはお互いに階層になっているわけではなくそれぞれが独立して存在します。
つまり、お互いに相手を知りません。
片方を呼び出す場合は呼び出すほうが呼ばれるほうを知っている必要があります。
通常Moduleは「どこからでも呼び出せるユーティリティ」という用途で使います。

ここで考えて欲しいのは、Moduleは呼ばれるほうですからプロジェクト内でもより抽象的な存在になります。
そのModuleが具体的なある特定フォームの特定ユーザーコントロールへアクセスする役割かどうか、です。

べき論を抜きにした解決例は次のようになります。

#Form1にUserControl1がある場合。
#例外の考慮は書いていません。

・暗黙のフォームインスタンスの場合
Dim s as String = Form1.UserControl1.InputText

・インスタンスを意識した場合

Public Shared Sub Main()
    Sample.Form1Instance = New Form1
    Application.Run(Sample.Form1.Instance)
End Sub

Public Module Sample
    Public Form1Instance As Form1
    Public Fuction GetUserControlData() As String
        Dim data As String = Form1Instance.UserContorl1.InputText
        Return data
    End Function
End Module

・インスタンスを意識した場合　その２

呼び出す側がインスタンスを渡してあげる。

Public Module Sample
    Public Fuction GetUserControlData(ByVal ctl As MyUserCtl) As String
        Dim data As String = ctl.InputText
        Return data
    End Function
End Module

例　Dim s As String = Sample.GetUserControlData(Form1Instance.UserControl1)

■No14599 (魔界の仮面弁士 さん) に返信
> 2008/02/22(Fri) 17:42:06 編集(投稿者)
> 
> ■No14597 (あき さん) に返信
>>「非共有メンバへのアクセス....」のエラーがでます。
> 確認させてください。
> UserCtl というのは、「フォームに貼った時につける名前」の方では無く、
> 「ユーザーコントロールの型名」なのですね?
　いえ、フォーム張ったコントロールに対して設定した名前です。

> 
>>３．モジュール内でフォーム上のユーザーコントロールのプロパティを参照
> そもそも、なぜ Module からアクセスさせたいのでしょうか?
> StartUpForm 内の事であれば、Module ではなく、StartUpForm 自身にやらせれば良いはず。
> 
> どうしても Module に処理させたいのであれば、
> 　Public Sub DataRead()
> 　　Dim s as String = UserCtl.InputText
> 　End Sub
> ではなく、
> 　Public Sub DataRead(ByVal ctrl As UserCtl)
> 　　Dim s As String = ctrl.InputText
> 　End Sub
> のように、UserControl のインスタンスを渡してください。
> この場合、呼び出し側はスタートアップフォーム内から
> 　Private Sub StartUpForm_Load(ByVal sender As Object, ……
> 　　DataRead(Me.UserCtl1)
> 　End Sub
> のように書きます。

　Modul内からアクセスしたいのは、元の作りがそうなっているからです。
　呼び出し元からインスタンスを渡す作りに変更しないといけないのですね。
 
>>Modulの先頭にも次の記述がいるということでしょうか？
>>　Public frm as New StartUpForm ※（ユーザーコントロールが貼り付いているフォーム）
> それではマズイと思いますよ。
> 
> 「New」した時点で、表示中の物とそっくりの別フォームが新たに生成されて
> しまいますので、元のフォームとは別の物を操作する結果になってしまいます。

　エラーは出なくなったのですが。。。。確かにフォーム上で値を入力したにもかかわらず、
　Textプロパティは空文字になっていました。
　ラベルの値はキチンと保持されているのですが。
　

　
　
　

■No14605 (あき さん) に返信
> 　　魔界の仮面弁士さんにもご指摘いただきましたが、そもそもロジックの設計方法が大きく違うのですね。
念のために確認なのですが、VB6 ヘルプにある『Visual Basic フォームの有効期間』の
解説を読んだ事はありますか? (その内容を把握できていますか?)


> 　　移行ツールでアップグレードした形はあまり信用できないのですかね。
それ以前に、そもそも VB6 であったとしても、そのコードはおかしいです。

元のコードが提示されていないので判断が難しいですが、VB6 でも、
モジュール内からコントロールを操作しようとすれば、このような結果になるはず。

'--- VB6 標準モジュール ---
Sub Sample0()
    MsgBox Text1.Text  '★これはエラー★
End Sub
Sub Sample1()
    MsgBox Form1.Text1.Text  'これはOK
End Sub
Sub Sample2(T As TextBox)
    MsgBox T.Text            'これもOK
End Sub
Sub Sample3(F As Form1)
    MsgBox F.Text1.Text      'これもOK
End Sub
Sub Sample4(F As Form)
    MsgBox F.Text1.Text      'これも一応OK (レイトバインド)
End Sub


で、上記でいうところの Sample1 のようなコードで良いなら、手はあります。
No14599 にも少し書きましたが、Module 内からであっても、
　Dim A As String = StartUpForm.TextBox1.Text
　Dim B As String = StartUpForm.UserCtl.InputText
のような表現が可能です。(VB2005以上であれば)

ただしこの方法を使うのであれば、各フォームを New してはいけません。
さらにこの場合、Sub Main プロシージャの表記は、
　Sub Main()
　　Application.Run(New StartUpForm())
　End Sub
や
　Sub Main()
　　Dim F As New StartUpForm()
　　Application.Run(F)
　End Sub
といった表記にする事はできません。
かわりに
　Sub Main()
　　Application.Run(StartUpForm)
　End Sub
または
　Sub Main()
　　Application.Run(My.Forms.StartUpForm)
　End Sub
と書く必要があります。