投稿日	： 2006/01/31(Tue) 22:15
投稿者	： ガッ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: テキストファイルへの書き込み

> textBox1とtextBox2に数字等を打ち込んで
> コマンドボタンを押したらテキストファイルに保存される
> ようにしたいのですが、良い方法はありますでしょうか？
本当はこんな適当な仕様では「１回目、２回目は区別する必要があるのか？」とか
「テキストボックスは値の保存だけに使っている、必要あるのか？」とか
「テキストボックスに何も打ち込まれていない場合の対処は？」などなど、
いろいろと出てくるわけですが、
勝手に解釈して次のようなプログラムを作りました。
他にも色々実現方法はあるでしょうし、これが適当とも分かりません。
Option Explicit
Private WithEvents cmd          As CommandButton

Private Sub cmd_Click()
    Dim ff      As Integer
    
    ff = FreeFile()
    Open "C:\Date.txt" For Append As ff
        Write #ff, Me.Controls("Text1").Text, Me.Controls("Text2").Text
    Close ff
    
End Sub

Private Sub Form_Load()
    With Me.Controls
        With .Add("VB.TextBox", "Text1")
            .Move 0, 0, 700, 100
            .Visible = True
        End With
        With .Add("VB.TextBox", "Text2")
            .Move 700, 0, 700, 100
            .Visible = True
        End With
        Set cmd = .Add("VB.CommandButton", "hoge")
        cmd.Move 0, 200, 800, 800
        cmd.Caption = "ボタン"
        cmd.Visible = True
    End With
End Sub

★ - テキストファイルへの書き込み - hisa 01/31-22:03No.5655
• Re: テキストファイルへの書き込み - ガッ 01/31-22:15 No.5656
  • Re^2: テキストファイルへの書き込み - hisa 02/03-22:04 No.5709