| |
質問です。
現在、テキストボックス（フォームで入力する）を配置し、その隣にラベルを配置しています。テキストボックスの値の長さ（文字数）によって隣のラベルの位置を変えることは可能でしょうか？ 当初は単純にテキストボックスを右寄せしようと考えていましたが、文字数が少ないとバランスがイマイチなのでどうにかなりませんでしょうか？どなたか教えてください。御願いします。
現在のコード↓
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
