投稿日	： 2006/11/22(Wed) 15:28
投稿者	： kirin
Ｅメール	：
ＵＲＬ	：
タイトル	： csvファイルに保存する方法について。

はじめまして。

今、ＶＢを使ってプログラムを組んでいるのですが
Lsitboxで選択したものを次へボタンを押したときに
csvファイルに保存できるようにしたいのです。

いろいろ、試してみたのですがどうにも旨くいきません。
もし、分かる方がいましたら、教えていただけないでしょうか。
お願いします。


Public Dir1, Dir2 As String
Dim fname(100) As String
Public cot As Integer

'スタートの処理
Private Sub Command1_Click()
Dir1 = "C:\Documents and Settings\karalab\My Documents\ito\図形\21\" '表示イメージを読み込みするファイル
Dir2 = "C:\Documents and Settings\karalab\My Documents\ito\図形\11\" '表示イメージを読み込みするファイル
For i = 1 To 100
fname(i) = Mid(Str(i), 2) + ".jpg"
Next
cot = 1
Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot))
End Sub

'次へを押したときの処理
Private Sub Command2_Click()
Image1.Picture = LoadPicture(Dir1 + fname(cot + 1)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot + 1))
cot = cot + 1
End Sub

Private Sub Command3_Click() '「END」ボタンを押した場合
End
End Sub

★ - csvファイルに保存する方法について。 - kirin 11/22-15:28No.7753
• Re: csvファイルに保存する方法について。 - 花ちゃん 11/22-17:33 No.7756