プロシージャ間の渡り関数 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 ビギナーホープ  (社会人) 投稿日時 2021/9/8 22:10:05
やっと解決しました。
教えていただいたプログラムでは、プロシジャ間を渡って関数の値を共有出来ました。しかし、私のソフトでは出来ませんでした。教えていただいたプログラムを何回も見つめ直しました。
そしたら、関数にsharedを使われていることが分かりました。これを使って私も変更したら、共有が出来ました。ありがとうございました。
投稿者 (削除されました)  () 投稿日時 2021/9/8 22:06:47
(削除されました)
投稿者 ビギナーホープ  (その他) 投稿日時 2021/9/6 21:14:50
ありがとうございます。
プロシージャ①で使用した関数の値をプロシージャ②で使うことが出来ました。

良く理解していないので、質問が旨く出来ませんでした。それなのにありがとうございました。
投稿者 るきお  (社会人) 投稿日時 2021/9/6 19:42:44
知りたいことがよくわからないので想像で補ってみました。
この例で回答になりますか?
Public Class Form1

    Private sharedResult As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '① 
        'Environ関数の戻り値を sharedResult に代入します。 
        sharedResult = Environ("USERPROFILE")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '② 
        '①で呼び出したEnviron関数の戻り値を使用します。 
        MsgBox("Button1_Clickで取得した値=" & sharedResult)
    End Sub
End Class


この例では、Button1_Clickで呼び出した関数の戻り値をButton2_Clickで使用します。

もし、これが知りたかったことと違う場合は、もう少し知りたいことがわかるように説明してもらえますでしょうか。
投稿者 ビギナーホープ  (その他) 投稿日時 2021/9/5 21:51:01
お世話になります。
 Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ①・・・
 End Sub
 Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      ②・・・
 End Sub

①で使用した関数の値を②でも使用したいのですが、ホームページを調べても、

    Public Sub syouhin(ByVal kakaku As Integer) 
        ・・・
  End Sub
と、Button1.Clickをするときの例はありません。
どなたか手ほどき、またはヒントをください。ホームページのアドレスでも結構です。
よろしくお願いします。