テキストボックスの書式設定

日付の書式設定

テキストボックスの書式設定を設定するには、「Format」プロパティを使用します。
以下はフォームを読み込んだ時にテキストボックス「txt1」に日付書式を設定する方法です。

Private Sub Form_Load()
'フォームを読み込んだ時に txt1 に現在の日付を表示する
  Me.txt1.Value = Date
  Me.txt1.Format = "Medium Date"	'dd-mmm-yy 形式で表示
'Long Date：2002年6月1日 土曜日	
'Short Date：02/6/1

End Sub

日付のカスタム書式設定

テキストボックスの書式設定をカスタム設定するには、書式指定文字を指定します。

Private Sub Form_Load()
'フォームを読み込んだ時に txt1 に現在の日付を表示する
  Me.txt1.Value = Date
  Me.txt1.Format = "ggge年mm月dd日"		'日付を和暦で表示

End Sub

数値の書式設定

テキストボックスのデータが数値の場合は以下の書式指定文字を指定します。

Private Sub Form_Load()
'フォームを読み込んだ時に txt1とtxt2 に数値500を表示する
  Me.txt1.Value = 500
  Me.txt2.Value = 500
  Me.txt1.Format = "合計金額：0000円"		'合計金額：0500円と表示される
  Me.txt2.Format = "合計金額：####円"		'合計金額：500円と表示される

End Sub

郵便番号や電話番号などの定型入力書式は「Format」以外に「InputMask」プロパティも使用できます。

Private Sub Form_Load()
'フォームを読み込んだ時に yubinとtel にそれぞれ数値を表示する
  Me.yubin.Value = 1500011
  Me.tel.Value = 09023401234

  Me.yubin.Format = "〒：000-0000"		'〒：150-0011と表示される

'090-2340-1234と表示される -記号も含て保存する
  Me.tel.InputMask = "000-0000-0000;0;"

End Sub

テキストボックスをロックする

テキストボックスのデータをロックするには「Locked」プロパティを使用します。

Private Sub Form_Load()
'フォームを読み込み時、txt1をロックする

  Me.txt1.Locked = True	'txt1ロックする
  Me.txt1.TabStop = False 'タブストップしない
	
End Sub

テキストボックスのプロパティを設定する

ＶＢでテキストボックスの属性を設定するには以下のプロパティを使用します。

Private Sub Form_Load()
'フォームを読み込み時、txt1のプロパティを設定する
With Me.txt1	'txt1に以下の設定を行う
       .Value = "データ"		'テキストボックスのデータ	  
'または
'	.SetFocus			'txt1のフォーカスを取得
'	.text =  "データ"		'テキストボックスのデータ


'文字配置の設定	  0：規定値　1：左揃え　2：中央揃え　3：右揃え　4：均等割付  
	.TextAlign = 2   'データを中央揃えにする

'余白の設定 　ToptMargin：上余白　RightMargin：右余白　BottomMargin：下余白
	.LeftMargin = 20   '左余白 20twip   

'IMEモードの設定
 'acImeModeNoControl：規定値
 'acImeModeOn：オン　
 'acImeModeOff：オフ　
 'acImeModeDisable：使用不可
 'acImeModeHiragana：全角ひらがな
 'acImeModeKatakana：全角カタカナ
 'acImeModeKatakanaHalf：半角カタカナ
 'acImeModeAlphaFull：全角英数
 'acImeModeAlpha：半角英数
 
	.IMEMode = acImeModeHiragana	'全角ひらがなに設定

End Sub

テキストボックスのデータ書式を設定する

ＶＢでテキストボックスのデータ書式を設定するには以下のプロパティを使用します。

Private Sub Form_Load()
'フォームを読み込み時、txt1のデータ書式を設定する
	Me.text1.InputMask =  "\〒:000-0000"		'テキストボックスのデータ書式

'**************************************************************************************
'　　テキストボックスのデータ書式文字
'
' 0:0 〜 9 の半角数字
' 9:0 〜 9 の半角数字と半角スペース
' #:半角数字と半角スペース、半角プラス・マイナス記号
'
' ?:半角・全角のアルファベット
' a:半角・全角のアルファベット、半角・全角の数字
' h:ひらがな、全角数字、全角記号
' k:全角カタカナ、全角数字、全角記号
' s:半角カタカナ、半角数字、半角記号
' >:全アルファベットを大文字に変換
' <:全アルファベットを小文字に変換
'**************************************************************************************

End Sub

Private Sub Form_Load()
'フォームを読み込み時、住所のデータ書式を設定する
	Me.住所.InputMask =  ">hhhhhhhhhhhhhhhhh"	'テキストボックスのデータ書式
End Sub