フォームを画面中央へ (Form_Load)
Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2
初期フォーカス (Form_Activate)
Me.txtItem.SetFocus
コントロールの FONT
For i = 0 To Me.Controls.Count - 1 Me.Controls(i).Font.Name = "MS ゴシック" Me.Controls(i).Font.Size = 10 Next i
コンボボックス
With Me.cmbItem .Clear .AddItem "" .AddItem "A": .ItemData(1) = 1 .AddItem "B": .ItemData(2) = 2 .AddItem "C": .ItemData(3) = 3 .AddItem "V": .ItemData(4) = 10 .ListIndex = 0 End With
表示専用テキストフィールド
With Me.txtItem .Alignment = 1 .Locked = True .BackColor = Me.cmdButton.BackColor .TabStop = False .Tag = "列名" End With
テキストフィールド
With Me.txtItem .MaxLength = 50 .Tag = "列名" End With
ラジオボタンの初期選択
Me.rbItem.Item(1).Value = True