tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: データの保存、読込み
投稿日: 2005/11/25(Fri) 19:16
投稿者
[OSのVer]:Windows    [VBのVer]:VB.NET 
保存側
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button9.Click
        SaveFileDialog1.InitialDirectory = "C:\"
        ' ファイルのフィルタ
        SaveFileDialog1.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*&quo
t;
        SaveFileDialog1.FilterIndex = 2
        SaveFileDialog1.RestoreDirectory = True

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

      @A

            MessageBox.Show(SaveFileDialog1.FileName)
        End If

        SaveFileDialog1.Dispose()
   End Sub

読込み側
    OpenFileDialog1.InitialDirectory = "C:\"
    ' フィルタの設定
        OpenFileDialog1.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*&quo
t;
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowReadOnly = True
        OpenFileDialog1.ReadOnlyChecked = True

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
      @B

            MessageBox.Show(OpenFileDialog1.FileName)
        End If

        OpenFileDialog1.Dispose()

一応、上記、@Aの部分に
 fname = SaveFileDialog1.FileName
  If fname = "" Then Exit Sub
  Open fname For Output As #1
  Write #1,a(0)〜a(10)
  Close #1

@Bの部分に
 fname = OpenFileDialog1.FileName
  If fname = "" Then Exit Sub
  Open fname For Output As #1
  Input a(0)〜a(10)
  Close #1
(実は、VB6.0でデータの保存、読込みのコードを持っているので)
それを少しいじればいいかな、と思ったら
波線がたくさん出てどうしょうもなくなってます。
現状、ほぼスタートした瞬間、こけてます。
 
> お世話になります。
>
> 現状、どこまで出来ていらっしゃって
> どこで躓いていらっしゃいますか?

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。