• ベストアンサー

テキストボックスに入力された値を取得する方法

よろしくお願いします。 フォームにテキストボックスを配置し、ユーザーに文字を入力してもらいます。 OKボタンを押すと、その文字を取得できるようにしたいです。 VBだと・・・ Textbox1.value = a (aは変数) みたいな感じで変数に代入するだけでよかったと思うんですが・・・ どのように書いたら良いでしょうか？

  • Java
  • 回答数1
  • ありがとう数4

質問者が選んだベストアンサー

  • ベストアンサー
  • tom11
  • ベストアンサー率53% (134/251)
回答No.1

こんにちは、 javaで、一般にデータを得る時は get????? 値をセットする時は、 set????? になります。 今回は、テキストボックス、、javaでは、 テキストフィールドでは、 以下のようになると思います。 //テキストフィールドに値をセット jTextField1.setText("データ"); //テキストフィールドから、値を得る String data = jTextField1.getText(); このことですか？？

kenken0
質問者

お礼

ありがとうございます＾＾ やってみます♪

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Java

関連するQ&A

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

    エクセルのVBAを使ってシート上のテキストボックスのテキストを取得・変更するマクロを作成したいと思っていますがうまく行きませんので、お知恵を拝借したいとおもいます。 環境：WindowsXPでオフィス2002 状況： エクセルブックa.xlsのシートに「コントロールツールボックス」のテキストボックスを配置（オブジェクト名はTEXTBOX_C） エクセルブックb.xlsにコードを書き、a.xlsのTEXTBOX_CのプロパティのValueかTextを取りだしたい 試した事： コントロールを配置したシートに次のマクロ TEXTBOX_C.Text = "これはコントロールのテキストボックス" を書くとテキストボックスに文字を入れ込めますが、別のエクセルブックからだと上手く行きません。 また、オートシェイプのテキストボックスの場合は簡単に出きるのですが、コントロールツールボックスではどうしても上手く行きませんので、対象法などご存知の方いらっしゃいましたら教えてください

  • テキストボックスの値を変数に代入したい。

    テキストボックスの値を変数に代入したいのですが、どういうコードを書けばいいですか？ 例えばTextBox1の値を変数xに代入したいのですが。

  • VBA コンボボックスで選んだ値を取得するには

    ユーザーフォーム上のコンボボックスから値を選択し、その値を変数として使いたいのですが、うまくいきません。 コンボボックスのコードで Private Sub ComboBox1_Change() moji1 = ComboBox1.Text Range("A1").Value = moji1 のようにすれば、コンボボックスから値を選んだ時点でA1セルにその値をコピーできるのですが、同じユーザーフォーム上にあるコマンドボタンをクリックして実行する「マクロ1」にてこのmoji1という変数を使いたいのです。 マクロ1にて、上記と同じ Range("A1").Value = moji1 というコードを記述しても、ユーザーフォームで選択した値が消えており、empty値となってしまいます。 原因をご存知の方はお教えください。

  • EXCEL VBAのユーザーフォーム上のテキストボックスの入力方法について

    すいません教えていただきたいことがあります。 EXCEL VBAのユーザーフォームについて、 コマンドボタンにタグを設定して、これにキーボードと同じ機能を持たせて テキストボックス内に入力することは可能でしょうか。 例えばコマンドボタンを「あ」～「ん」まで作り、それぞれのボタンに「あ」～「ん」までのタグを設定する。 Private Sub UserForm_Initialize() CommandButton1.Tag = "あ" CommandButton2.Tag = "い" ・・・・「ん」までボタンを作成する。 次に、 Private Sub CommandButton1_Click() TextBox1.Value = TextBox1.Value & CommandButton1.Tag End Sub Private Sub CommandButton2_Click() TextBox1.Value = TextBox1.Value & CommandButton3.Tag End Sub ・・・「ん」まで作成する。 この設定では、コマンドボタンのクリックで文字の追加はできますが、ボタンを押すと常に文字が一番後ろに追加されるため、 テキストボックスをクリックしても文章の途中に文字を挿入することが出来ません。 通常のキーボードの入力と同じようにテキストボックス内でクリックした箇所からコマンドボタンで入力を開始するような設定は可能でしょうか。 よろしくお願いします。

  • テキストボックスをセルへ。

    3つ聞きたいです。 ユーザーフォームのテキストボックスに記入した内容を 最終行を取得して、指定の列にコメントを入力させるためには どうするのがいいでしょうか。下記で、エラーが出てしまいます。 .cells(lrow + 1, "c").addcomment = textbox5.value それと、一つのテキストボックスの内容を複数の セルへ記入させるには、下記をどうすればいいですか。 .cells(lrow + 1, "X:Z").value = textbox6.value あと、ショートカットキーで(例えば、CTRL + Q) ユーザーフォームを起動させるにはどうすればよいですか。 するとしたら、そのコードはどこに表示させるのがいいでしょうか。 いろいろ、お願いですが教示お願いします。

  • 複数のテキストボックスの値の取得について

    複数のテキストボックスの値、取得に関して質問させて下さい。 画面に20個のテキストボックスが存在し、 それぞれ id に　txt0 ～ txt19を設定しています。 (javascriptにてループで作ってます) for(ii=0; ii<20; ii++){ （略） document.write("<input id='txt" + ii + "' type='text' />"); （略） } 登録ボタン押下後に、上記20個のテキストボックスの値を取得し、 特定の文字だった場合のみ処理を行います。 この処理もループで行いたいのですが、 変数名　txt'i'.value 　の　'i'の部分だけを変更したいのです。(iは 0～19) 変数名の一部を変数にすることは可能でしょうか？ 配列にできれば話は簡単なのですが・・・配列にできるでしょうか？ with (document.form1) { for(ii=0; ii<20; ii++){ （略） tempTxt = txt0.value;　←右辺の値をiiの値と共に txt0.value から txt19.value　に変化させたい。 （略）　　　　　　　　　　　　（"txt" + ii + ".value" では文字列になってしまい・・） if(tempTxt == "ABC"){ （略） } } } 別の手段でもかまわないのですが、何かよい方法が ありましたら、ご回答お願いします。

  • access テキストボックスの値取得

    いつもお世話になりますm(_ _)m access VBAをかじり始めた「超・初心者」です(^^;) フォームの画面にテキストボックスを作成し、そこに入力した値を取得したいのですが、どのようにすればよろしいのでしょうか？別に置いたコマンドボタンをクリックすると取得するようにしたいのです。 気軽に、コマンドボタンのイベントプロシージャに、 ----- dim rec as variant rec=textbox1.text　　　'recは、「テキストボックス1」に入力した値 ----- なんてやってみたんですが、全然ダメで、いろいろ検索してもさっぱり分かりません。 あほくさいほど初歩的な質問で恐縮ですが、なにとぞよろしくお願いいたしますm(_ _)m xp+access2003です。

  • エクセルのユーザーフォームにあるテキストボックスへの値代入

    エクセルのユーザーフォームにあるテキストボックスへの値代入 お世話になります． エクセルのシートの入力を，ユーザーフォームを使って入力させています． 新規の場合は空欄のフォームがでるのですが，既存の列を編集するには編集用のフォームで行っています． フォームにはテキストボックスが15個（Textbox1からTextbox15まで）あり，Textbox1はCells(*,1）Textbox2はCells(*,2)というふうにセルの列との関連付けがあります． この規則性を上手く使おうと，For Nextを使っていきたいのですが， Dim r As Integer Dim i As Integer Dim t As String r = ActiveCell.Row For i = 1 To 15 t = "TextBox" & i t = Cells(r, i).Value Next i と，ここまで入力をしてみたものの，値の代入がうまくいきません． MsgboxでCells(r, i)の動きは確認できているので，おそらく，TextBox & iのところが原因と思われますが・・・ どのように修正すればよろしいでしょうか？教えてください．

  • ExcelVBAマクロでテキストボックスの値の代入

    ExcelVBAマクロについて確認させてください。 下記のように読み込みたいファイルをフォームで指定して それを変数aに読み込ませています。 この方法の他に、ユーザーフォームでテキストボックスを 作成してテキストボックス内で文字を記入してその文字を 変数aに読み込ませることは可能でしょうか。 可能であればその方法をぜひご教授ください。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample() Dim buf As String Dim a As String buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入 With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream'指定したファイルを開く 　　　　a = .ReadAll'テキスト文書の内容を文字列aに代入 　　　　.Close'指定したファイルを閉じる End With End Sub

  • テキストボックスの表示について

    いつもお世話になります。VBAで質問があるのですが、ユーザーフォームを作り、コマンドボタンとテキストボックスを配置します。 Private Sub CommandButton1_Click() Dim i As Long 　For i = 1 To 30 　　TextBox1.Text = i & "を入力しました" 　　Worksheets("Sheet1").Range("A1").Value = i & "回目です" 　Next i End Sub と入力して実行すると、セルには1～30回まで順に書き込みがありますが、テキストボックスには最後の「30を入力しました」しか表示されません。 これを「1を入力しました」、「2を入力しました」、「3を・・・」というようにテキストボックスに順に表示させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する