Private Sub Form_Load()
With Form1.Text1
.Text = "2"
.Alignment = 2 'CENTER
Call subF(Form1.Text1, 5, 2)
End With
End Sub
Private Sub subF(ByRef TextBox As TextBox, ByVal lngMAX As Long, ByVal lngMIN As Long)
TextBox.MaxLength = lngMAX - lngMIN
End Sub
With~End Withの中で指定しているオブジェクト(例の場合「Form1.Text」)のそれ自身をパラメータとして渡したい場合、
どのように記述すれば良いでしょうか?
Meを指定しましたが当然エラーになります。イメージはMeに近いと思うですが。。。
どうか宜しくお願いします。
期待していない回答(1)
With Form1
.Text1.Text = "2"
.Text1.Alignment = 2 'CENTER
Call subF(.Text1, 5, 2)
End With
期待していない回答(2)
戻り値をMaxLengthの関数にすればよい。等々
With Form1.Text1
.Text = "2"
.Alignment = 2 'CENTER
.MaxLength = functionF(5, 2)
End With
期待していない回答(3)
withステートメントはそもそもプロパティーの設定に使うべきであって、
そのような使い方は間違っている。等々
No.4ベストアンサー
- 回答日時:
もしやりたいことが、コントロール名を変更したなどの際に
With XXXX
~~~~~~~
Call subF(XXXX, 5, 2)
End With
のXXXX 部分をすべて書き直す必要があるのを避けたい。
ということであれば、以下の方法が考えられます。
'テキストボックスへの参照を格納するコントロール変数
Dim tmpTextBoxAs TextBox
'参照するテキストボックスを設定する
Set tmpTextBox = Form1.Text1'コントロール名が変更になった場合、合わせて変更する
'以下すべてtmpTextBox経由でコントロールを操作する
With tmpTextBox
.Text = "2"
.Alignment = 2 'CENTER
Call subF(tmpTextBox, 5, 2)
End With
No.3
- 回答日時:
かなりアクロバティックですが
With Form1.Text1
.Text = "2"
.Alignment = 2 'CENTER
Call subF(.Parent.Controls(.Name), 5, 2)
End With
とする方法があります。意味があるかどうかかなり微妙な表記ですけど(笑)
要は「Form1("Text1")」や「Form1.Controls("Text1")」と一緒です。
※ もしText1がコントロール配列の場合は困りますが。。。
またWithブロックを入れ子にする(期待していない回答(1)の発展形)
With Form1
With .Text1
.Text = "2"
.Alignment = 2 'CENTER
End With
Call subF(.Text1, 5, 2)
End With
というのもありますが
可読性が良くないですね。
>期待していない回答(3)
悪気は無いのかもしれませんが
これはちょっと余計でしたね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAでmeに相当するものは?
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
5
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
6
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
7
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
8
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
9
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
10
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
11
ExcelVBA Static変数の初期化
Excel(エクセル)
-
12
エクセルVBAで文字列の重複を削除する方法?
Excel(エクセル)
-
13
文字列からタブコードを取り除きたい
Visual Basic(VBA)
-
14
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
15
VBからエクセルのテキストボックスの名称を取得したい
Visual Basic(VBA)
-
16
フォーム上の現在アクティブなコントロールの取得
Access(アクセス)
-
17
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
18
ExcelVBAでセルを編集状態にする方法
Excel(エクセル)
-
19
変数名の付け方
Java
-
20
どこにもフォーカスを当てたくない
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル・VBA CheckBoxのオブ...
-
エクセルVBAでオプションボタン...
-
カメラスクロールするのを動画...
-
C#で角が丸いテキストボックス
-
変数をコントロール型で使用す...
-
ExcelVBAのコントロールの種類...
-
PDF起動時のナビゲーションパネ...
-
コントロールを移動できない
-
vb.netで画面のコントロールId...
-
ExcelVBAでListViewが使用できない
-
'ckbl' コントロールは作成され...
-
アクセス特有の書き方?
-
フォームがリサイズされた時の...
-
VBA ユーザーフォームの Keypre...
-
Groupboxの配下のコントロール...
-
Validated イベントについて
-
C# Form上に配置されたコントロ...
-
VB.NETでタイマー作成
-
VB6.0 プロジェクトオープン時...
-
エクセルVBAユーザーフォーム・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
エクセルVBAでオプションボタン...
-
vb.netで画面のコントロールId...
-
ExcelVBAでListViewが使用できない
-
EXCELでactivexコントロールを...
-
コントロールを移動できない
-
フォーム上の現在アクティブな...
-
ユーザーフォームで動的(Me.Con...
-
ListViewのチェックボックスに...
-
C#で角が丸いテキストボックス
-
エクセル コントロールツール...
-
VBAのフォームでTextBoxがいっ...
-
Excel VBA で Richtextboxを使...
-
VBA ユーザーフォームの Keypre...
-
Groupboxの配下のコントロール...
-
ACCESS2010のVBAでフォーム内ク...
-
chr関数の呼び出しで「プロ...
-
vba dbcommand button activex ...
-
With~EndWithの省略部分と引数...
おすすめ情報