Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
ShowToolbarメソッドの第１引数に"Ribbon"、第２引数にacToolbarNoを指定すれば非表示、acToolbarYesを指定すれば表示になります。
Private Sub buttonChange_Click()
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
リボンを最小化するには、CommandBarsオブジェクトのExecuteMsoメソッドで「MinimizeRibbon」を指定します。ただし、リボンが最小化されてる状態で実行するとリボンが表示されるようになっていますので注意が必要です。その場合は、GetPressedMsoメソッドでリボンの状態を確認するなどしてください。
Private Sub Form_Load()
'使用可
Me.textName.Enabled = True
'編集ロック有
Me.textName.Locked = True
End Sub
テキストボックスにカーソルは移動できますが、入力出来ない状態です。
Private Sub textMemo_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdZoomBox
End Sub
Private Sub Form_Load()
'画像ファイルの指定
Me.imageView.Picture = "C:\work\pic\morumotto_s.jpg"
'OLEサイズ（クリップ）
Me.imageView.SizeMode = acOLESizeClip
'画像を並べて表示
Me.imageView.PictureTiling = True
End Sub
※指定する画像はイメージコントロールより小さいサイズにしてください。
Private Sub Form_Load()
Me.imageView.Picture = "C:\work\pic\morumotto.jpg"
End Sub
Private Sub Form_Load()
Me.textKana.ControlTipText = "カタカナで入力してください。"
End Sub
Private Sub Form_Load()
'郵便番号の定形入力
Me.textZipcode.InputMask = "000-0000;0;""_"""
End Sub
まず、設定値の「;」で区切られた最初のセクションに定形入力を指定します。今回指定してる「0」は0～9の半角数字を入力できることを意味しています。
Private Sub Form_Load()
'ひらがなモード
Me.textName.IMEMode = acImeModeHiragana
'半角英数モード
Me.textTel.IMEMode = acImeModeAlpha
'ひらがなモード
Me.textAddress.IMEMode = acImeModeHiragana
End Sub
テキストボックスのIMEModeプロパティに値を指定することでモードを切り替えることが出来ます。| 定数 | 説明 | 値 |
|---|---|---|
| acImeModeNoControl | IME 入力モードを指定しません。(既定値) | 0 |
| acImeModeOn | IME 入力モードをオンにします。 | 1 |
| acImeModeOff | IME 入力モードをオフにします。 | 2 |
| acImeModeDisable | IME 入力モードを使用できなくします。 | 3 |
| acImeModeHiragana | 全角ひらがなを指定します。 | 4 |
| acImeModeKatakana | 全角カタカナを指定します。 | 5 |
| acImeModeKatakanaHalf | 半角カタカナを指定します。 | 6 |
| acImeModeAlphaFull | 全角英数を指定します。 | 7 |
| acImeModeAlpha | 半角英数を指定します。 | 8 |
| acImeModeHangulFull | 全角ハングルを指定します。 | 9 |
| acImeModeHangul | 半角ハングルを指定します。 | 10 |
Private Sub Form_Load()
Me.textMemo.EnterKeyBehavior = True
End Sub
Private Sub Form_Load()
'初期値設定
Me.checkBox1.Value = True
Me.checkBox2.Value = False
Me.checkBox3.Value = True
End Sub
チェックボックスは、Trueでチェックが入っている状態、Falseでチェックが入っていない状態を表します。
Private Sub buttonOrder_Click()
Dim msg As String
If Me.checkBox1.Value Then
msg = Controls(Me.checkBox1.LabelName).Caption & vbCrLf
End If
If Me.checkBox2.Value Then
msg = msg & Controls(Me.checkBox2.LabelName).Caption & vbCrLf
End If
If Me.checkBox3.Value Then
msg = msg & Controls(Me.checkBox3.LabelName).Caption
End If
MsgBox msg
End Sub
チェックボックスの値は、Valueプロパティで取得することが出来ます。チェックが入っている場合はTrue、入っていない場合はFalseになります。Private Sub Form_Load()
'初期設定（OFF）
Me.checkBox1.Value = False
Me.checkBox2.Value = False
Me.checkBox3.Value = False
End Sub
| 値 | 効果 |
|---|---|
| 0 | なし |
| 1 | 円 |
| 2 | 額縁風 |
| 3 | 交差 |
| 4 | クールスラント |
| 5 | 角度 |
| 6 | ソフトラウンド |
| 7 | 浮き上がり |
| 8 | スロープ |
| 9 | 切り込み |
| 10 | スケール |
| 11 | ハードエッジ |
| 12 | アールデコ |
Me.toggle1.Bevel = 0 Me.toggle1.Caption = "なし"
Me.toggle1.Bevel = 1 Me.toggle1.Caption = "円"
Me.toggle1.Bevel = 2 Me.toggle1.Caption = "額縁風"
Me.toggle1.Bevel = 3 Me.toggle1.Caption = "交差"
Me.toggle1.Bevel = 4 Me.toggle1.Caption = "クールスラント"
Me.toggle1.Bevel = 5 Me.toggle1.Caption = "角度"
Me.toggle1.Bevel = 6 Me.toggle1.Caption = "ソフトラウンド"
Me.toggle1.Bevel = 7 Me.toggle1.Caption = "浮き上がり"
Me.toggle1.Bevel = 8 Me.toggle1.Caption = "スロープ"
Me.toggle1.Bevel = 9 Me.toggle1.Caption = "切り込み"
Me.toggle1.Bevel = 10 Me.toggle1.Caption = "スケール"
Me.toggle1.Bevel = 11 Me.toggle1.Caption = "ハードエッジ"
Me.toggle1.Bevel = 12 Me.toggle1.Caption = "アールデコ"
Private Sub toggle1_AfterUpdate()
If Me.toggle1.Value Then
'ON
Me.toggle1.Caption = "ON"
Me.toggle1.ForeColor = RGB(255, 0, 0)
Else
'OFF
Me.toggle1.Caption = "OFF"
Me.toggle1.ForeColor = RGB(0, 0, 0)
End If
End Sub
イベントは、更新後処理です。
Private Sub Form_Load()
Me.tabCtrl.HoverForeColor = RGB(255, 0, 0)
End Sub