tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルテキストボックスの幅の調整について
記事No15112
投稿日: 2011/02/24(Thu) 18:59
投稿者wanko
いつもお世話になっております
上記タイトルについて質問させていただきます


VB6.0で、テキストボックスの幅をそのテキストボックス内のテキストの幅に
したいのですがうまくいきません

Text1.Width=Me.TextWidth(Text1.Text)では半分程度になり、

Text1.Widthの単位をTwip、TextWidthの単位をピクセルと考え
Text1.Width=Me.ScaleX(Me.TextWidth(Text1.Text),3,1)としましたがだめでした

変換後の値をTwip値に固定し各単位で試しましたがどれもうまくいきませんでした
モニタの設定は96dpiです
お分かりになる方がいらっしゃいましたらご教示よろしくお願いします

[ツリー表示へ]
タイトルRe: テキストボックスの幅の調整について
記事No15113
投稿日: 2011/02/24(Thu) 20:17
投稿者魔界の仮面弁士
> VB6.0で、テキストボックスの幅をそのテキストボックス内のテキストの幅に
> したいのですがうまくいきません

Option Explicit

Private Sub Form_Load()
    'Label1.Visible = False
    Set Label1.Font = Text1.Font
    Label1.AutoSize = True
    Label1.BorderStyle = Text1.BorderStyle
    Label1.Caption = Text1.Text
End Sub

Private Sub Text1_Change()
    Label1.Caption = Text1.Text
End Sub

Private Sub Label1_Change()
    Dim margin As Single
    margin = Screen.TwipsPerPixelX * 4

    Text1.Width = Label1.Width + margin
End Sub

[ツリー表示へ]
タイトルRe^2: テキストボックスの幅の調整について
記事No15114
投稿日: 2011/02/24(Thu) 20:35
投稿者wanko
さっそくの返信ありがとうございます
ラベルを使用しない方法はないですか?
なければこの方法でがんばってみます

[ツリー表示へ]
タイトルテキストボックスの幅の調整について【解決】
記事No15115
投稿日: 2011/02/24(Thu) 20:51
投稿者wanko
visible=falseにすればラベルも気にならないのでこれでいこうと思います
ありがとうございました

[ツリー表示へ]