サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 文字列の幅(Pixel)を取得(VB6.0) ( No.0 ) 　[親スレッドへ] 日時： 2011/03/23 11:42 名前： 花ちゃん *********************************************************************************** * カテゴリー：[文字列処理][応用コード][]                                          * * キーワード：テキストボックス,テキストの幅,TextWidth,                            * *********************************************************************************** タイトル ： テキストボックスの幅の調整について 記 事 No ： 15112 投 稿 日 ： 2011/02/24(Thu) 18:59 元質問者 ： wanko   VB6.0で、テキストボックスの幅をそのテキストボックス内のテキストの幅に したいのですがうまくいきません ----------------------------------------------------------------------------------- 記事No ： 15113 投稿日 ： 2011/02/24(Thu) 20:17 回答者 ： 魔界の仮面弁士   ----------------------------------------------------------------------------------- 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

　[スレッド一覧へ]　[親スレッドへ]