- ベストアンサー
テキストの文字列を全て選択状態にしたい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Private Sub テキスト0_DblClick(Cancel As Integer) Me.テキスト0.SelStart = 0 Me.テキスト0.SelLength = Len(Me.テキスト0.Text) Cancel = True End Sub になるような気がします。 Cancel = True としないと、 ダブルクリックしたマウスの位置で、部分的な選択が行われたと思います。
関連するQ&A
- テキストボックスに変数を表示させたい
access2003です。 フォーム1にテキスト0を配置し vbaで Private Sub Form_Open(Cancel As Integer) Dim 文字列 As String 文字列 = "a" End Sub と作成しました。 このときフォーム1をダブルクリックして開いた時に テキスト0に文字列に代入した変数を表示させるにはどうすればいいのでしょうか？ テキスト0のコントロールソースに =[文字列] とやっても #Name? になってしまいます。 どうすれば読み取った変数をテキスト0に表示させることが可能なのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- リストのダブルクリックイベントをフォーム起動時に発
アクセス2010です。 Private Sub Form_Load() Call lst_test_DblClick End Sub Private Sub lst_test_DblClick(Cancel As Integer) MsgBox "" End Sub このような事は出来ないのでしょうか？ リストのダブルクリックイベントをフォーム起動時に発動したいのですが このコードを書くと Call lst_test_DblClick の部分で引数を省略できません。 になります。 どちらもフォームモジュールに書いています。
- 締切済み
- その他MS Office製品
- アクセス コントロール名が変わった
テキストボックスのコントロール名は「2013年」なのに、 そのコントロールをダブルクリックしてイベントプロシージャーを作ったら Private Sub Ctl2013年_DblClick(Cancel As Integer) End Sub になったのですが、なぜCtlが付いてしまったのでしょうか？ 「2013年」というコントロール名はやめたほうがいいですか？
- ベストアンサー
- オフィス系ソフト
- テキストボックスをダブルクリックしたらテキスト全てを選択状態にすることは可能ですか？
アクセス2003です。 イベントプロシージャなどで（DblClick） ダブルクリックしたらテキストボックスの値を選択状態にしたい （色を反転させる）のですが可能でしょうか？ ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 「Cancel = True」とはどういう意味でし
ダブルクリックしたら全体を選択する方法をｇｏｏで調べていたら、 http://okwave.jp/qa/q4899232.html に辿りつきました。 Private Sub txt00_DblClick(Cancel As Integer) Me.txt00.SelStart = 0 Me.txt00.SelLength = Len(Me.txt00.Text) Cancel = True End Sub で、やりたいことが行えたのですが、一つ疑問があります。 Cancel = True はどういう意味なのでしょうか？ 試しに、Cancel = Trueの部分をコメントアウトしてみたら、 テキストボックスが選択状態になりませんでした。 ということは、「Cancel = True」は、「実行！」みたいな意味なのでしょうか？ ご回答よろしくお願いします。
- 締切済み
- オフィス系ソフト
- ByVal Cancel As MSForms.R
(ByVal Cancel As MSForms.ReturnBoolean)の意味を教えてください。 エクセルのユーザーフォームで、 クリックした場合は、フォームモジュールに Private Sub UserForm_Click() End Sub のひな形が出来て、 ダブルクリックした時は Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean) End Sub が出来上がります。 なぜ、DblClickの時はカッコの中に色々入るのでしょうか？ それにByValは値渡しの時に使う言葉ですよね？ DblClickの時は、何かの値を渡しているのですか？
- ベストアンサー
- Visual Basic
- マウスが触れるとテキストを表示し離れる非表示にする
アクセスです。 フォームにラベルを設置して、 そのラベルにマウスが触れたらテキストボックスを表示させたいのです。 フォームのオープンイベントは Private Sub Form_Open(Cancel As Integer) Me.テキスト2.Visible = False End Sub になっています。 ラベルのマウスボタン解放時イベントで Private Sub ラベル0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にして、ラベルをクリックするとテキストボックスが表示されます。 マウスボタン移動時イベントで Private Sub ラベル0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にすると、理想通りラベルからマウスが触れたらテキストボックスが表示されます。 ここまではいいのですが マウスのカーソルが離れたら またテキストボックスを非表示にしたいのですがどうすればいいですか？
- ベストアンサー
- オフィス系ソフト
- たくさんのテキストボックスを制御する算段について
フォーム上にテキストボックスをエクセルのシートのように並べて、月の日付の一覧を表示し、そこに項目があります。 項目をダブルクリックすると○と空白を交互に入れ換えたいのです。 下のようなイメージです。ちょうど勤務表のようなイメージでしょうか。 １ ２ ３ ４ … 月 火 水 木 … 項目Ａ ○ ○ ←ここにはテキストボックスが31個隙間なく並んでいる→ 項目Ｂ ○ で、そのソースは下のようにしたのです。 Private Sub A01_DblClick(Cancel As Integer) If A01.Enabled <> False Then If IsNull(Trim(A01.Value)) Or Trim(A01.Value) = "" Then A01.Value = "○" Else A01.Value = "" End If End If End Sub が、これですとテキストボックスの数分だけこの記述をしなければならず、余り賢いやり方だとは思えないのです。 何か、算段があれば、ヒントだけでもご提示していただければ幸いです。 宜しくお願いいたします。
- 締切済み
- オフィス系ソフト
- コピー時のエラー表示を変更したい
コードビルダ選択時での基礎知識が不足しています。ご面倒をお掛けしますが、宜しくお願いします。 テキストボックスのデータをコピーする際の方法として、イベントの「ダブルクリック」で「コードビルダ」を選択して下記を記述しています。うっかりデータがないテキストボックスをダブルクリックした時にでるエラー表示を「データがありません」に変更したいと思っています。ご指導をお願いします。 Private Sub 用例_DblClick(Cancel As Integer) Me!用例.SelStart = 0 Me!用例.SelLength = Len(Me!用例.Text) DoCmd.RunCommand acCmdCopy End Sub 以上、宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- ACCESS VBA 判定に利用できる情報について
下のようなテストプログラムを作ってみました。 サブルーチン chgcolorの中で、どちらの上位ルーチンからコールされたか で処理を切り替えたいと考えています。上位ルーチンからの引数を増やす ことなく、判定する方法はないものでしょうか。 アドバイスお願いします。 Private Sub txt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call chgcolor(Me.txt1) End Sub ： Private Sub txt1_DblClick(Cancel As Integer) Call chgcolor(Me.txt1) End Sub ： Sub chgcolor(a As Control) ◇txt1_MouseDownからコールされた場合（またはクリックイベントの場合） →a.BackColor = CLng("&HFF00FF") ◇txt1_DblClickからコールされた場合（またはダブルクリックイベントの場合） →a.BackColor = CLng("&HFFFFFF") End Sub
- ベストアンサー
- オフィス系ソフト
お礼
できました！ありがとうございます。