投稿時間:2006/01/31(Tue) 22:15 投稿者名:ガッ
Eメール:
URL :
タイトル:Re: テキストファイルへの書き込み
> textBox1とtextBox2に数字等を打ち込んで > コマンドボタンを押したらテキストファイルに保存される > ようにしたいのですが、良い方法はありますでしょうか? 本当はこんな適当な仕様では「1回目、2回目は区別する必要があるのか?」とか 「テキストボックスは値の保存だけに使っている、必要あるのか?」とか 「テキストボックスに何も打ち込まれていない場合の対処は?」などなど、 いろいろと出てくるわけですが、 勝手に解釈して次のようなプログラムを作りました。 他にも色々実現方法はあるでしょうし、これが適当とも分かりません。 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
|