关于一个时间控件如何用于四个日期文本框的再请教

愉快　发表于：2008-09-11 09:57:11 　

首先谢谢fuhongmin，上次他发到的示例是可行的。

也许本人技术不行，对于其方法还是没有领会，现在再请教，

这里的“0”是什么意思，able15是什么，如下图。

Private Sub Calendar1_Click()
If Label5.Caption = 1 Then
text1 = Calendar1
text1.SetFocus
Calendar1.Visible = False
End If
If Label5.Caption = 2 Then
Text2 = Calendar1
Text2.SetFocus
Calendar1.Visible = False
End If
If Label5.Caption = 3 Then
Text3 = Calendar1
Text3.SetFocus
Calendar1.Visible = False
End If
If Label5.Caption = 4 Then
Text4 = Calendar1
Text4.SetFocus
Calendar1.Visible = False
End If

Label5.Caption = 0
End Sub

Top

愉快发表于：2008-09-11 09:58:09

不好意思，是Label5

Top

小ビビ2UのB8 发表于：2008-09-11 11:03:46

可以参考一下这个：

http://www.accessoft.com/bbs/showtopic.asp?id=2188

Top

愉快发表于：2008-09-11 11:18:16

可以参考一下这个：

http://www.accessoft.com/bbs/showtopic.asp?id=2188

===============================

这好像是两回事。

Top

小ビビ2UのB8 发表于：2008-09-11 14:45:02

我觉得那里面那个日历的用法倒还是不错的啊，，，何必用你上面图片上显示的那种方法呢

个人觉得麻烦。。。

不过见仁见智的东西，，，呵呵，，，

Top

符鸿敏发表于：2008-09-11 21:11:55

Label5是用于赋值的,其被赋值后成为判断给哪个文本框加载日期控件的日期值的根据.

其不同的值是通过单击Command01---Command04命令按钮而赋于的,如单击Command01, Label5.Caption = 1日期控件Calendar1的值就被文本框text1 ......余类推.

其实,为便于使用者看懂,本人在窗体的控件命名上还是用了心思的呢.

Top

愉快发表于：2008-09-12 15:53:21

Label5是用于赋值的,其被赋值后成为判断给哪个文本框加载日期控件的日期值的根据.

其不同的值是通过单击Command01---Command04命令按钮而赋于的,如单击Command01, Label5.Caption = 1日期控件Calendar1的值就被文本框text1 ......余类推.

其实,为便于使用者看懂,本人在窗体的控件命名上还是用了心思的呢.

==========================

谢谢指教，也许我太笨了，还是没有搞懂。Label5在窗体上，是那个文本框或控件，是如何加上去的。

Top

愉快发表于：2008-09-12 15:58:52

另，我发现“0”的名称就是label5,那“0”是什么？

Top

符鸿敏发表于：2008-09-12 21:07:35

另，我发现“0”的名称就是label5,那“0”是什么？

回答:那是为了区别于其它赋值.

Top

愉快发表于：2008-09-13 13:03:33

另，我发现“0”的名称就是label5,那“0”是什么？

回答:那是为了区别于其它赋值.

===================

还是没有搞懂，“0”是如何添加的，它与日期控件、四个日期文本框都没有关系吗。

Top

黎红军发表于：2008-09-13 13:31:49

语句中有：Label5.Caption = 0

程序的意思是这样的：label5是用来标识获得窗体文本框的，如果是文本框1获得焦点，则label5显示的值为1，。。。如果是文本框4获得焦点，则label5显示的值为4，如果没有文本框获得焦点，则label5的值为0，这就是你看到的0即它标识的意思。

If Label5.Caption = 1 Then
text1 = Calendar1
text1.SetFocus
Calendar1.Visible = False

。。。
好好看看程序的控件名以及对应的值，以及要实现目的的思路。

Top

符鸿敏发表于：2008-09-19 19:49:04

楼主:本人原示例所提供的上述代码还可简化成如下的:

Private Sub Calendar1_Click()
If Label5.Caption = 1 Then
text1 = Calendar1
text1.SetFocus
End If
If Label5.Caption = 2 Then
Text2 = Calendar1
Text2.SetFocus
End If
If Label5.Caption = 3 Then
Text3 = Calendar1
Text3.SetFocus
End If
If Label5.Caption = 4 Then
Text4 = Calendar1
Text4.SetFocus
End If

Calendar1.Visible = False

Label5.Caption = 0
End Sub

这样就可以清楚地看到,Calendar1.Visible = False 是 Calendar1的单击事件中,使 Calendar1这个日期控件不可见,Label5.Caption = 0是使Label5这个标签控件的值 = 0

Top

愉快发表于：2008-09-22 16:20:21

不好意思，我按照说明做了，还是不行。

Top

风茶发表于：2008-09-22 22:56:09

学习中

Top

总记录：13篇页次：1/1 9 1 :

Access交流中心

关于一个时间控件如何用于四个日期文本框的再请教