文字数に合わせて、コントロールの幅を設定する方法

こんにちわ

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

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

No.2 ベストアンサー 回答者： todo36 回答日時： 2003/02/04 14:53

こんな感じ

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

この回答へのお礼

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

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

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

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

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

No.1 回答者： taknt 回答日時： 2003/02/04 14:25

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

DoEvents
こんな感じで いいと思います。

この回答へのお礼

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

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

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