■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#10926-0「開く」と「名前を付けて保存」に関する質問匿名109262000-08-27(日) 22:46
     #10927-0RE#10926:「開く」と「名前を付けて保存」に関する質問通りすがり2000-08-27(日) 23:00
     #10928-0RE#10926:「開く」と「名前を付けて保存」に関する質問匿名109282000-08-28(月) 01:56
#10926-0
「開く」と「名前を付けて保存」に関する質問
 現在、Windows98+VB5EnterpriseEditionで勉強用にクリップボードの履歴を取る
ソフトを作っています。履歴データは、リストボックスに溜める仕様です。
 毎回起動する度にデータが消えているのも面倒なので保存し、開けるようにしたいのですが
テキストボックスに表示したデータの場合は参考書によく載っていますがリストボックスの場合は見あたりません。
 参考書のソースコードを理解すれば応用もきく筈ですが、理解できずに苦しんでいます。
 どなたかヒントを与えていただけませんか?お願いします。
#10927-0
RE#10926:「開く」と「名前を付けて保存」に関する質問
> テキストボックスに表示したデータの場合は参考書によく載っていますがリストボックスの場合は見あたりません。

ほとんど一緒なので、どう説明して良い物やら…。(^_^;)

いっそのこと、非表示にしたTextBoxを用意してはどうでしょう?
ListBoxにデータを溜める時に、同時にTextBoxにも同じデータを残しておくのです。

これなら、その参考書のコードをそのまま利用すれば、データを保存できるようになるのでは。
#10928-0
RE#10926:「開く」と「名前を付けて保存」に関する質問
>  現在、Windows98+VB5EnterpriseEditionで勉強用にクリップボードの履歴を取る
> ソフトを作っています。履歴データは、リストボックスに溜める仕様です。
>  毎回起動する度にデータが消えているのも面倒なので保存し、開けるようにしたいのですが
logというファイルをあつかう例です。だいぶ見にくいですがこんな感じで・・・。
*保存
Dim Log As String
Dim a As Long

    For a = 0 To List1.ListCount - 2
        '変数LogにList1のデータをすべて入れる
        Log = Log & List1.List(a) & vbCrLf

    Next a
        '最後に空白の一行を入れないための方法
        Log = Log & List1.List(a)

    Open App.Path & "\log" For Output As #1
    Print #1, Log
    Close #1

*開く
    Dim Free As Long
    Dim Data As String
    'エラー回避のおまじない
    If Dir(App.Path & "\log") = "" Then
        Open App.Path & "\log" For Output As #1
        Print #1, ""
        Close #1
    End If
    
    Free = FreeFile
    Open App.Path & "\log" For Input As #Free
        Do While Not EOF(Free)
            Line Input #Free, Data

            If Not Data = "" Then
                List1.AddItem Data
            End If
        Loop
    Close #1
このページと関連する記事:
#7782-0リストボックスの書き出し2000-04-27(木) 17:29
#22373-0テキストボックス内のデータ2001-08-12(日) 15:54
#740-0履歴ボタン2002-05-21(火) 13:16
#10993-0続「開く」と「名前を付けて保存」に関する質問2000-08-31(木) 10:28
#6986-0ディレクトリ検索方法2000-03-29(水) 17:33
#28969-0上書き保存2002-05-27(月) 16:25
#16171-0ファイルが見つからない!?2001-05-18(金) 11:14
#17623-0テキストファイルからリストボックスに読みこむ方法2001-01-09(火) 10:49
#28521-0リスト(コンボ)ボックスのリスト内容をファイルに保存2002-05-05(日) 21:46
#20778-0メモ帳の保存や開くを再現するには?2001-05-09(水) 14:44
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)