VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/08/10(Sun) 19:04
投稿者： nobu
Ｅメール：
ＵＲＬ：
タイトル： Re^5: 桁数（小数点固定）の固定入力

> Private Sub Text1_Change()
> Dim s As String
>
>     s = Text1.Text
>     Debug.Print Format(s, "@@@.@")
>     Label1.Caption = s
>    
> End Sub

．．．では Label に表示する　ｓ　は　s = Text1.Text　のままですから
１２３４ならそのままの１２３４ですね。
下記のようにすれば良いです。

Label1.Caption = Format(s, "@@@.@")

Debug.Print は花ちゃんさんが説明してくれた通りで
質問に対するフォロー時に結果を確認する為に良く
書かれる事ですので覚えて置いて下さい。
実際には使用する Label や　TextBox　やＰｒｉｎｔでファイルに
書き出す等の処理が必要になります。
MsgBox でも結果表示・確認が出来ますが　Debug.Print を
使って例を書くことも多いです。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -