VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/04/02(Wed) 14:43
投稿者： zkei
Ｅメール：
ＵＲＬ：
タイトル： ファイル操作について問題

いつも　お世話になっております。
設定.txtがどのフォルダーの下に配置しますか？

Private Sub Form_Load()
   Dim WindowLeft As Integer
   Dim WindowTop As Integer
   Dim TextNaiyou As String
   Dim N As String
   N = Dir("設定.txt")
   If N = "" Then Exit Sub
   Open "設定.txt" For Input As #1
   Input #1, WindowLeft, WindowTop
   Input #1, TextNaiyou
   Close #1
   Form1.Left = WindowLeft
   Form1.Top = WindowTop
   Text1.Text = TextNaiyou
End Sub

Private Sub Form_Unload(Cancel As Integer)
   WindowLeft = Form1.Left
   WindowTop = Form1.Top
   TextNaiyou = Text1.Text
   Open "設定.txt" For Output As #1
   Write #1, WindowLeft, WindowTop
   Write #1, TextNaiyou
   Close #1
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -