[[20090604143715]]　『カレンダーコントロール』(aac）　ページの最後に飛ぶ

『カレンダーコントロール』(aac）

ユーザーフォーム上で、カレンダーコントロールに対しテキストボックスが複数ある状態で、カレンダーコントロールは一つで複数のテキストボックスにカレンダーコントロールでクリック入力を行ないたいのです。
一つのカレンダーコントロールでは不可能でしょうか？

 できるかどうか、1度やってみてください。
 （詳しい詳細がわかりませんが。）
 BJ

現状はカレンダー１に対してテキストボックス１しかできません。
複数のテキストボックスがある為に、、、、という所です。

 意味が良く解りません。
 できますけどね。

 Private Sub Calendar1_Click()
 Dim st As String
 st = Format(Calendar1.Value, "yyyy/m/d")
 TextBox1.Value = st
 TextBox2.Value = st
 TextBox3.Value = st
 End Sub
 BJ

 こういうことかな？
 カレンダーをクリックする際にカーソルのあるテキストボックスに日付が入ります。
 Option Explicit
     Dim INPUT_SW    As Integer

 Private Sub Calendar1_Click()
     Dim ST As String
     ST = Format(Calendar1.Value, "yyyy/mm/dd")
     Select Case INPUT_SW
         Case 1: TextBox1.Value = ST
         Case 2: TextBox2.Value = ST
         Case 3: TextBox3.Value = ST
     End Select
 End Sub

 Private Sub TextBox1_Enter()
     INPUT_SW = 1
 End Sub

 Private Sub TextBox2_Enter()
     INPUT_SW = 2
 End Sub

 Private Sub TextBox3_Enter()
     INPUT_SW = 3
 End Sub

 追記
 「Private Sub Calendar1_Click()」を下記のようにするとカレンダーをクリックするたびにテキストボックスを移動します。

 Private Sub Calendar1_Click()
     Dim ST As String
     ST = Format(Calendar1.Value, "yyyy/mm/dd")
     Select Case INPUT_SW
         Case 1
             TextBox1.Value = ST
             TextBox2.SetFocus
         Case 2
             TextBox2.Value = ST
             TextBox3.SetFocus
         Case 3
             TextBox3.Value = ST
             TextBox1.SetFocus
     End Select
 End Sub

 (独覚)

やはり順番を指定せずにテキストボックスから認識させて一つのカレンダーは難しいんですね。
参考になりました、ありがとうございます。

申し訳ないです。できました。
カーソルのあるボックスに日付があるというのがやりたかったんです。
どうも有難うございます。
もっと勉強します。

コメント返信：

[ 一覧(最新更新順) ]

[[20090604143715]] 『カレンダーコントロール』(aac） ページの最後に飛ぶ

[[20090604143715]]　『カレンダーコントロール』(aac）　ページの最後に飛ぶ