|
こんにちは。かみちゃん です。
>ユーザーファーム上にテキストボックスが沢山(15ヶ位)あります。
> その中のカーソルを当てているボックスに日付をMonthView
> から入力したいのですが、カーソル(フォーカス?)が当たっている
> テキストボックスを検出する方法
TextBoxが3個の場合であれば、以下のような感じになります。
Dim INPUT_SW As Integer
Private Sub MonthView1_Click()
Dim ST As String
ST = Format(MonthView1.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
|
|