vb. 体重管理アプリ 作成

タグの編集
投稿者 ど素人  (学生) 投稿日時 2017/3/24 19:38:54
vb.使用で体重管理アプリを作成しています。

現状で
lbl7氏名

lbl1身長   txt1   lbl3cm

lbl2体重  txt2   lbl4kg   btnBMI計算     lbl5BMI
                                   txt3
                                    lbl6肥満度     btn終了


ここまではコードもかけています。

これをtxtに入力した数字を表にしたいと思っています。
何件でも保存できて、一覧表で確認できるようにしたいです。
データグリッドビューを使用しようと思っています。
保存ボタンでデータグリッドビューに保存できるコードを教えていただけますでしょうか。
  
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2017/3/26 20:24:08
> 保存ボタンでデータグリッドビューに保存できるコードを教えていただけますでしょうか。

DataGridView に表示されている内容「を」ファイル等に保存するのではなく、
TextBox 等に表示されている内容を DataGridView「に」保存したいということですね。


DataGridView は機能が豊富なので、どこから説明するか悩みますが、
ひとまず、こんな感じで如何でしょう。

Private Sub btn終了_Click(sender As Object, e As EventArgs) Handles btn終了.Click
    DataGridView1.ColumnCount = 5
    DataGridView1.RowCount = 5
    DataGridView1(0, 0).Value = lbl7氏名.Text
    DataGridView1(0, 1).Value = lbl1身長.Text
    DataGridView1(1, 1).Value = txt1.Text
    DataGridView1(2, 1).Value = lbl3cm.Text
    DataGridView1(0, 2).Value = lbl2体重.Text
    DataGridView1(1, 2).Value = txt2.Text
    DataGridView1(2, 2).Value = lbl4kg.Text
    DataGridView1(3, 2).Value = btnBMI計算.Text
    DataGridView1(4, 2).Value = lbl5BMI.Text
    DataGridView1(4, 3).Value = txt3.Text
    DataGridView1(4, 4).Value = lbl6肥満度.Text
End Sub