|
分類:[VB.NET]
以降の処理が見えないのでアレですけど まぁ、これで取れることは取れますw
'Form1のContextMenu Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
Dim f2 As New Form2
f2.Owner = Me f2.ShowDialog() f2.Dispose()
End Sub
'Form2の読込 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'選択された行の1,2,3列目のデータをTextBox1,2,3に表示 With CType(Me.Owner, Form1).FpSpread1.ActiveSheet Me.TextBox1.Text = .Cells(.ActiveRowIndex, 0).Text Me.TextBox2.Text = .Cells(.ActiveRowIndex, 1).Text Me.TextBox3.Text = .Cells(.ActiveRowIndex, 2).Text End With
End Sub
|