0

以前、プロジェクトの1つでモジュールを使用して、Excelブックのすべてのユーザーフォームのテキストボックスをフォーマットしていましたが、コードは次のようになりました。

Sub TxtBx(i As Integer)
    Dim uf As UserForm
        For Each uf In UserForms
            With uf("TextBox" & i)
                If .Text Like "" Then
                ......................................

現在、プロジェクトをアプリケーションに移動していますが、フォーマットには同じモジュールが必要です。したがって、Windowsフォームアプリケーションで次のように言う方法：

Module Module1
        Sub TxtBx(i As Integer)
            Dim f As  System.Windows.Forms.Form
            For Each f As System.Windows.Forms            
                With f("TextBox" & i)
                .....................
4

1 に答える 1

0

.Netではうまくいきませんでした。私はそれをVB6に切り替えました、それは次のように見えます：

Sub TxtBx(i As Integer)
    s.Language = "VBScript"
    For Each uf In Forms
        With uf("TextBox" & i)
            If .Text Like "" Or .Text Like "-" 
..................
于 2013-03-17T23:37:19.637 に答える