投稿日	： 2004/11/10(Wed) 23:52
投稿者	： アルゼイド
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 一応コードを・・・ここの部分でしょうか・・

Private Sub Command3_Click()
    List2.Clear
    List2.AddItem "  " & "10.0" & "  " & Text11.Text
    List2.AddItem "   " & "9.0" & "  " & Text12.Text
    List2.AddItem "   " & "8.0" & "  " & Text13.Text
    List2.AddItem "   " & "7.0" & "  " & Text14.Text
    List2.AddItem "   " & "6.0" & "  " & Text15.Text
    List2.AddItem "   " & "5.0" & "  " & Text16.Text
    List2.AddItem "   " & "4.0" & "  " & Text17.Text
    List2.AddItem "   " & "3.0" & "  " & Text18.Text
    List2.AddItem "   " & "2.0" & "  " & Text19.Text
    List2.AddItem "   " & "1.0" & "  " & Text20.Text
   selectkey = MsgBox("セーブしますか？", 4 + 48, "セーブ")
  Select Case selectkey
   Case vbYes
   On Error GoTo cmd3_click_err
   With CommonDialog1
       .Flags = cdlOFNOverwritePrompt
       .Filter = "テキストファイル(*.txt)|*.txt|全てのファイル(*.*)|*.*"
       .ShowSave
       ファイル番号 = FreeFile
       Open CommonDialog1.FileName For Output As #ファイル番号
        For i = 0 To List2.ListCount - 1
         Print #ファイル番号, List2.List(i)
        Next i
       Close #ファイル番号
   End With
    Exit Sub
cmd3_click_err:
    Case vbNo
  End Select
    
End Sub


List2が保存するデータです。

★ - ファイルの保存 - アルゼイド 11/10-21:37No.861
• Re: ファイルの保存 - java.lang.Nullpo 11/10-22:01 No.862
• Re: ファイルの保存 - KG 11/10-22:05 No.863
  • Java.lang.Nullpoさんと同じです。 - KG 11/10-22:07 No.864
    • Re: 一応コードを・・・ここの部分でしょう.. - アルゼイド 11/10-23:52 No.868
• Re: ファイルの保存 - アルゼイド 11/10-23:41 No.867