怎么能实现对窗体的条件性隐藏

明天の太遥远！

案例：有一个数据输入窗体，里面有好几个文本框及复选框。
问题：1.根据前一个选项的值来判断是否隐藏这个输入窗体中一个文本框。如下图，根据去向判断科室是否可写入（或者隐藏），只有去向为“拉回本院”时才可以输入文字（或文本框显示出来）。
          2.怎么能获取当前系统时间，而且只显示出当前的小时和分钟（秒不需要）。


先谢谢各位大侠，麻烦你们指招！
出警信息.zip (13.39 KB, 下载次数: 12)

2013-5-2 09:34 上传

点击文件名下载附件
案例

鱼明启

now()表示当前系统时间

明天の太遥远！

鱼明启 发表于 2013-5-2 14:00
now()表示当前系统时间

now() 出来的是 hh：mm：ss （16:25:38）格式的时间，我仅需要它显示 hh：mm（16:25）格式。

明天の太遥远！

grf1973 发表于 2013-5-4 20:59
Private Sub 去向_Change()
   If 去向.Value = "拉回本院" Then
        Label11.Visible = True

谢谢你了，，很好！

grf1973

用＂去向＂复选框的change事件，如果为＂拉回本院＂，后面Textbox的visible为True，否则为False

明天の太遥远！

谢谢你，，能否在稍微具体点，，我这个还初学者，不太明白，我这样写还是不行的。
Private Sub 去向_Change()
   If 去向.List = "拉回本院" Then 科室.TextBox Visible = True
   Else: 科室.TextBox Visible = False
End Sub

明天の太遥远！

grf1973 发表于 2013-5-3 19:56
用＂去向＂复选框的change事件，如果为＂拉回本院＂，后面Textbox的visible为True，否则为False

谢谢你，，能否在稍微具体点，，我这个还初学者，不太明白，我这样写还是不行的。
Private Sub 去向_Change()
   If 去向.List = "拉回本院" Then 科室.TextBox Visible = True
   Else: 科室.TextBox Visible = False
End Sub

grf1973

Private Sub 去向_Change()
   If 去向.Value = "拉回本院" Then
        Label11.Visible = True
        科室.Visible = True
   Else
        Me.Label11.Visible = False
        科室.Visible = False
  End If

End Sub



另外，在Private Sub UserForm_Initialize()中加入：
Me.Label11.Visible = False
    科室.Visible = False