1

form1 から別のフォームの public サブに値を渡す方法を知りたいです。問題は、「「プライベート」であるため、このコンテキストではアクセスできません」と表示されることです。

Form 1 Private Sub を Public Sub に変更しようとしましたが、同じエラーが残ります。どのように機能させるべきですか？

Public Class Form1
Dim test(), text1 As String
Const asd = "abcabc"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    text1 = Space(LOF(1))
    test = Split(text1, asd)
    HOST = test(1)
End Sub

そして、HOST = test(1) の値を別のフォームに渡したい

Public Class Form2

Public Sub Check()
    'get the value to here
End Sub
4

2 に答える 2

1

パラメータとして渡すことができます：

Public Sub Check(valueToCheck as String)
   'get the value to here
End Sub

または、それを受け取るためにform2にプロパティを作成します。

private _HostOrSomething As String = ""
Friend Property HostOrSomething As String
   Get
        Return _HostOrSomething 
    End Get
    Set(ByVal value As String)
        _HostOrSomething = value
    End Set

その場合、Sub Check はローカル変数であるため、_HostOrSomething を使用できます。これらを使用するには:

HOST = Test(1)
frm2.Check(HOST)

また

HOST = Test(1)
frm2.HostOrSomething = HOST
frm2.Check
于 2013-10-27T13:43:22.737 に答える