元に戻る
スレッド一覧へ
記事閲覧
このページ内の検索ができます。
(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
|
投稿フォーム
スレッド一覧へ
題 名
スレッドをトップへソート
名 前
パスワード
(記事メンテ時に使用)
投稿キー
(投稿時
を入力してください)
コメント
*********************************************************************************** * カテゴリー:[][][] * キーワード: , , , , , ***********************************************************************************
クッキー保存
スレッド一覧へ