タイトル : 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でデータの保存、読込みのコードを持っているので) それを少しいじればいいかな、と思ったら 波線がたくさん出てどうしょうもなくなってます。 現状、ほぼスタートした瞬間、こけてます。 > お世話になります。 > > 現状、どこまで出来ていらっしゃって > どこで躓いていらっしゃいますか? |