tagCANDY CGI VBレスキュー(花ちゃん) - 文字列の幅(Pixel)を取得(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
文字列の幅(Pixel)を取得(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

文字列の幅(Pixel)を取得(VB6.0) [No.298の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ