アプリ初期処理

  フォームの初期化



  

フォームを画面中央へ (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
  

Alignment = 1 は右寄せ
Tag には、データベースに対応する列名をセットしておきます

  

テキストフィールド
  
  

    With Me.txtItem
        .MaxLength = 50
        .Tag = "列名"
    End With
  

MaxLength には、データベース定義の桁数の半分を設定します
この事を考えて、本来必要な長さの倍を設計しておきます。

  

ラジオボタンの初期選択
  
  

    Me.rbItem.Item(1).Value = True
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ