| |
おはようございます。解決後ですが・・・。
ユーザーフォームのモジュールに
'========================================
Option Explicit
Private actrl As msforms.Control
'=================================================================
Private Sub MonthView1_Click()
If TypeName(actrl) = "TextBox" Then
actrl.Text = Format(MonthView1.Value, "yyyy/mm/dd")
End If
End Sub
'========================================================================
Private Sub MonthView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If TypeName(ActiveControl) <> "MonthView" Then Set actrl = ActiveControl
End Sub
なんてすると、テキストボックスが増減しても、コード変更なしでいけそうですが、
試してみてください。
|
|
ichinose
- 09/6/5(金) 5:56 -
