フォーム間で値の受け渡しを行うには??


ぼず  2008-02-07 01:49:49  No: 138874

Visual Studio 2003で開発を行っています。
データベースを表示させたDataGridのセルをクリックすることでセル内の値を取得。
取得した値で検索を行い、その結果を別フォームのLabelに表示させたいのですが、いき詰まってしまいました。

現在は、DataGridのセルをクリックしてセル内の値を取得することはできましたが別のフォームへ値を渡す方法がわかりません。

以下FORM1でDataGridのセルをクリックした際の処理です

 Private Sub DataGrid1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp

        Dim c As DataGridCell = DataGrid1.CurrentCell
        Dim confirm As New confirm

        'クリックされたセルの値を取得します。
        Dim rno As Integer = c.RowNumber
        Dim cno As Integer = c.ColumnNumber

        If cno = 0 Then
            confirm.start = DataGrid1(rno, cno)
            confirm.plan = DataGrid1(rno, cno + 1)
            confirm.important = DataGrid1(rno, cno + 2)
            confirm.remainder = DataGrid1(rno, cno + 3)

        ElseIf cno = 1 Then
            confirm.start = DataGrid1(rno, cno - 1)
            confirm.plan = DataGrid1(rno, cno)
            confirm.important = DataGrid1(rno, cno + 1)
            confirm.remainder = DataGrid1(rno, cno + 2)

        ElseIf cno = 2 Then
            confirm.start = DataGrid1(rno, cno - 2)
            confirm.plan = DataGrid1(rno, cno - 1)
            confirm.important = DataGrid1(rno, cno)
            confirm.remainder = DataGrid1(rno, cno + 1)

        ElseIf cno = 3 Then
            confirm.start = DataGrid1(rno, cno - 3)
            confirm.plan = DataGrid1(rno, cno - 2)
            confirm.important = DataGrid1(rno, cno - 1)
            confirm.remainder = DataGrid1(rno, cno)
        End If
        MessageBox.Show("")
    End Sub

MessageBox.Show("confirm.Function名()")
で、クラスで値を使用することはできるのですが
クラスではなくフォームで値を使用したい場合はどのようにすればよいのでしょうか?

データベースはaccess 2000を使用しています。


ぼず  2008-02-07 01:51:40  No: 138875

すみません
間違えて二回送信してしまいました。


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加