Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2805 / 9994

←次へ　｜　前へ→


	【10457】テキストボックスとラベル連動

さとる - 08/7/8(火) 12:22 -


	引用なし

	パスワード

質問です。
現在、テキストボックス（フォームで入力する）を配置し、その隣にラベルを配置しています。テキストボックスの値の長さ（文字数）によって隣のラベルの位置を変えることは可能でしょうか？　当初は単純にテキストボックスを右寄せしようと考えていましたが、文字数が少ないとバランスがイマイチなのでどうにかなりませんでしょうか？どなたか教えてください。御願いします。

現在のコード↓

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim blnvisible1 As Boolean
Dim blnvisible2 As Boolean
Dim blnvisible3 As Boolean

If IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = True And _
IsNull(Me.txttorihikisaki3.Value) = True Then
blnvisible1 = True
blnvisible2 = False
blnvisible3 = False

labelontyu1.Visible = blnvisible1
labelontyu2.Visible = blnvisible2
labelontyu3.Visible = blnvisible3

ElseIf IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = False And _
IsNull(Me.txttorihikisaki3.Value) = True Then
blnvisible1 = False
blnvisible2 = True
blnvisible3 = False

labelontyu1.Visible = blnvisible1
labelontyu2.Visible = blnvisible2
labelontyu3.Visible = blnvisible3

ElseIf IsNull(Me.txttorihikisaki1.Value) = False And _
IsNull(Me.txttorihikisaki2.Value) = False And _
IsNull(Me.txttorihikisaki3.Value) = False Then
blnvisible1 = False
blnvisible2 = False
blnvisible3 = True
labelontyu1.Visible = blnvisible1
labelontyu2.Visible = blnvisible2
labelontyu3.Visible = blnvisible3

End If

End Sub

544 hits

▼

【10457】テキストボックスとラベル連動 さとる 08/7/8(火) 12:22