忙しい現代人の腰&肩のお悩み対策!

ファイル(*.txtのみ)を読み込んで、テキストボックスに中身を表示させておりますが、2回以上ファイルを読み込んだ時、テキストボックスに書かれた内容を消した上で、読み込んだファイルの中身を表示させるように変更できないでしょうか。また、テキストボックスに書かれた内容をクリアするボタンの作り方も知りたいです。

例、1.ABCと書かれたテキストの読み込み→ABC   とテキストボックスに表示される
   2.XYZと書かれたテキストの読み込み→ABC XYZ とテキストボックスに表示される

これを2.を読み込んだ時、ABCを表示せずにXYZと表示したい

コードの一部
Private Sub Command1_Click()
CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlONFileMustExist '既存ファイルのみ読み込み
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
If (Err = 0) Then
FileRead CommonDialog1.FileName
End If
On Error GoTo 0
End Sub

このQ&Aに関連する最新のQ&A

A 回答 (2件)

FileRead CommonDialog1.FileName


の前に、

text1.text = ""

を追加してみてはどうでしょうか。text1の部分は置き換えてくださいね。
テキストの内容をクリアするボタンもこのコードでできると思います。
    • good
    • 0
この回答へのお礼

上の1行でばっちりでした。ありがとうございました。

お礼日時:2002/08/27 16:18

>2.XYZと書かれたテキストの読み込み→ABC XYZ とテキストボックスに表示される



自分でつなげない限りつながらないはずなんですが・・・
どうやってテキストボックスに値をセットしているんですか?
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qテキストボックスやラベルのクリア

下のように ボタンクリックして、新しくフォーム出て、テキストボックスに入ってた値がフォーム2で表示できますが。
今度はなかの値をクリアしたい場合はどうしたらいいですか。    
Dim f As New Form2
f.Owner = Me
f.Show()
f.Label1.Text = TextBox1.Text
f.TextBox1.Text = TextBox1.Text

Aベストアンサー

使用されている言語は、たぶん「VB.NET(2002/2003/2005)」だと思われますが...
Googleで検索した結果です

VB.NET 初心者の館
http://vbnet-iku2.hp.infoseek.co.jp/

VBレスキュー(花ちゃん)
http://hanatyan.sakura.ne.jp/

Visual Basic 中学校
http://homepage1.nifty.com/rucio/main/main.htm


あと情報共有掲示板など

@IT > Insider.NET
http://www.atmarkit.co.jp/fdotnet/

MSDNフォーラム
http://forums.microsoft.com/msdn-ja/default.aspx?siteid=7

QエクセルVBAでテキストボックスの値の取得と変更について

エクセルのVBAを使ってシート上のテキストボックスのテキストを取得・変更するマクロを作成したいと思っていますがうまく行きませんので、お知恵を拝借したいとおもいます。

環境:WindowsXPでオフィス2002
状況:
エクセルブックa.xlsのシートに「コントロールツールボックス」のテキストボックスを配置(オブジェクト名はTEXTBOX_C)
エクセルブックb.xlsにコードを書き、a.xlsのTEXTBOX_CのプロパティのValueかTextを取りだしたい

試した事:
コントロールを配置したシートに次のマクロ
TEXTBOX_C.Text = "これはコントロールのテキストボックス"
を書くとテキストボックスに文字を入れ込めますが、別のエクセルブックからだと上手く行きません。

また、オートシェイプのテキストボックスの場合は簡単に出きるのですが、コントロールツールボックスではどうしても上手く行きませんので、対象法などご存知の方いらっしゃいましたら教えてください

Aベストアンサー

エクセルを新規に開きました。
そのSheet1に(コントロールツールボックスの)TextBoxを貼りつけました。
そのBook1から、ファイル-開くで別ブックを開きました。
別ブックのMojule1側に下記を書いて
Sub test02()
MsgBox Workbooks("book1").Worksheets("sheet1").textbox1.Text
End Sub
を実行すると、Book1のTextBoxに入れた文字列が表示
されました。
がそんな質問ではないのですか。

QVBAのTextBoxに半角数字のみ入力したい

VBAでTextBox2には半角数字のみしか入力できないように制御したいのですが、どうしたらよいのでしょうか。

TextBoxのプロパティでIMEModeを「8-fmIMEModeAlpha」というのにしたのですが、半角英字も入力できてしまいます。

どなたかよい方法をご教授ください。

Aベストアンサー

#3 です。

失礼。#3 だと Tab と Enter まで入力できないので、以下に差し替えます。

  blnFlag = ((KeyCode >= 48) * (KeyCode <= 57)) _
      + ((KeyCode >= 96) * (KeyCode <= 105)) _
      + (KeyCode = 8) + (KeyCode = 13) + (KeyCode = 9)

> IMEModeを「8-fmIMEModeAlpha」

これだと入力モードの変更が可能なので、3-fmIMEModeDisable にしといた方が
良いかと思います。

Q3つの表の外部結合

表A、B、Cの3つがあり、Aのすべての行を出力したいと考えています。
外部結合を用いるのだとは思うのですが、3つの表に対して行う場合の
書き方がわからず困っています。
ご教授いただけないでしょうか?
select * from a,b,c
where a.商品ID =b.商品ID (+) and b.商品ID (+) =c.商品ID (+)
としてみましたが、うまくいきませんでした。

Aベストアンサー

ansi構文の趣旨からいえば、結合条件と絞り込み条件は分けて書くので・・

select *
from a
left join b on (a.商品ID =b.商品ID)
left join c on (b.商品ID =c.商品ID)
where a.年月 = 任意の値

と書くのが一般的でしょうね。


人気Q&Aランキング