最大1万円超分の電子書籍プレゼント♪

こんにちわ

例えば、TextBox に FontSize = 9 で "ABC" の文字列が入っているとします。
この時 TextBox の幅をこの "ABC" の幅に自動的に調整しようと考えています。

良い方法ご存知の方いらっしゃいましたらよろしくお願い致します。

gooドクター

A 回答 (2件)

こんな感じ



Private Sub Command1_Click()

Text1.Width = Me.TextWidth(Text1.Text & " ")
Text1.SelStart = 0
End Sub


Private Sub Command2_Click()

Label1.AutoSize = True
Label1.Caption = Text1.Text & " "
Text1.Width = Label1.Width
Text1.SelStart = 0
End Sub
    • good
    • 1
この回答へのお礼

回答有り難うございました。

この方法で問題解決です。

特に Label の AutoSize を使う方法は面白いですね。

また何か有りましたらよろしくお願い致します。

お礼日時:2003/02/04 15:46

TextBox.width=len(TextBox.text)*TextBox.FontSize


DoEvents
こんな感じで いいと思います。
    • good
    • 0
この回答へのお礼

せっかく回答して頂いたのですが、これでは NG ですね。
Font.Sizeで表されるポイントは 1 インチ (25.4mm) の 1/72
で、これに twips と言う単位で実際の長さを算出していました。
ただ、これだと誤差が出てしまうのか、正確な長さが取得できないのです。

と言う事で質問させて頂いていました。

お礼日時:2003/02/04 15:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング