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

■No75628 (良い湯 さん) に返信

> ・・・
> この経緯でFORMが８０以上、BASが６００以上あるソースプログラムを
> 構造を変えて作り直す事が大変です。
> 
前述のとおり警告対象となっているものです。
ここで頑張って変更しておかないと次では非対応になっている可能性も
出てきます。既に6.0からの変換でかなり直すところがたくさん出てきていると
思います。ついでに直してみてはどうでしょう？強制するものではありませんが。


> FORMは全てLABELとTEXTはＡＲＲＡＹになっています。
配列にするのは
Private Labels() as Label

Labels = {Label1, Label2, Label3, .... , Labeln}
の表記で出来るのでLabelArrayを使う必要はないです。TextArrayなども同様
配列の要素に共通でイベントをわりあてるなら

For Each lbl in Labels
    AddHandler lbl.Click, AddressOf lbl_Click
Next


Private Sub lbl_Click(sender as Object, e as EventArgs)
    Dim lbl = TryCast(sender, Label)
    Dim Index = Array.IndexOf(labels, lbl)
    ・・・・
End Sub

のようにすればよいです。

■No75632 (良い湯 さん) に返信

> >操作される側のフォームにあらかじめ、
> >　　「TextBox を追加するための Public なメソッド」
> >を定義しておき、それを呼び出すべきだと思いますよ。
> 
> を考えていますが、
> 問題はFORMの外部moduleでの共通関数でのActiveFormからの参照で
> FORM側のPublicメソッドが呼び出せない事です。（方法がわからないだけかも）
> やはり、外部Moduleでは無理でしょうか.
> 
ActiveFormはForm型であり、Form型にはそのPublicメソッドは当然定義されていないので
呼ぶことは出来ません。このような場合はInterfaceを使うか共通のベースフォームを定義するか
してActiveFormをそのInterfaceまたはベースフォームへとキャストすることによりメソッドの使用が可能です。


Interfaceの例)

Public Interface ITest
    Function TestMethod() As Integer
End Interface

Public Class Form1
    Inherits Form
    Implements ITest

    Public Function TestMethod() As Integer Implements ITest.TestMethod
    End Function
End Class

Public Module Module1
    Public Sub Test()
        Dim test = TryCast(System.Windows.Forms.Form.ActiveForm, ITest)
        If test IsNot Nothing Then
            Dim a = test.TestMethod()
        End If
    End Sub
End Module

時下打ちの為、動作は保証しませんがこんな感じです。