Dtpicker是否可以去掉下拉箭头，变成只可输入的形式！

[xx800329]

Dtpicker是否可以去掉下拉箭头，变成只可输入的形式！
就像textbox似的，年月日用“-”分隔开，进行输入的形式！

[chinaboyzyq]

不可以,直接用文本框加限制不就得了.

[NHGIGGS]

1楼的朋友。
请问怎样对文本框加限制，使其输入的数据呈日期格式，如2009-08-15。

[chinaboyzyq]

[Quote=引用 3 楼 nhgiggs 的回复:]
1楼的朋友。
请问怎样对文本框加限制，使其输入的数据呈日期格式，如2009-08-15。
[/Quote]

Private Sub Form_Load()
Text1.MaxLength = 10
End Sub

Private Sub Text1_Change()

Select Case Len(Text1)
Case 0
Case 5, 8
If Right(Text1, 1) <> "-" Then
Text1 = Left(Text1, Len(Text1) - 1)
MsgBox "日期格式为2009-04-05"
Text1.SelStart = Len(Text1.Text)
End If
Case Else
ileft = Asc(Right(Text1, 1))
If ileft < 48 Or ileft > 57 Then
If Len(Text1) = 1 Then
Text1 = ""
MsgBox "日期格式为2009-04-05"
Text1.SelStart = Len(Text1.Text)
Else
Text1 = Left(Text1, Len(Text1) - 1)
MsgBox "日期格式为2009-04-05"
Text1.SelStart = Len(Text1.Text)
End If
End If
End Select

End Sub

[NHGIGGS]

谢谢!!

[古今多少事]

使用MaskEDBox，设置屏蔽和格式即可。

[Tiger_Zhao]

可以设置 UpDown 属性为 True，这样下来拉箭头就变成调整数字的双箭头。

[jhone99]

[Quote=引用 4 楼 chinaboyzyq 的回复:]
引用 3 楼 nhgiggs 的回复:
1楼的朋友。
请问怎样对文本框加限制，使其输入的数据呈日期格式，如2009-08-15。


Private Sub Form_Load()
 Text1.MaxLength = 10
End Sub

Private Sub Text1_Change()

  Select Case Len(Text1)
      Case 0
      Case 5, 8
            If Right(Text1, 1) <> "-" Then
              Text1 = Left(Text1, Len(Text1) - 1)
                MsgBox "日期格式为2009-04-05"
                Text1.SelStart = Len(Text1.Text)
            End If
      Case Else
            ileft = Asc(Right(Text1, 1))
            If ileft < 48 Or ileft > 57 Then
              If Len(Text1) = 1 Then
                  Text1 = ""
                  MsgBox "日期格式为2009-04-05"
                  Text1.SelStart = Len(Text1.Text)
              Else
                  Text1 = Left(Text1, Len(Text1) - 1)
                  MsgBox "日期格式为2009-04-05"
                  Text1.SelStart = Len(Text1.Text)
              End If
            End If
  End Select
   
End Sub
[/Quote]

干吗这么费事？直接用2楼的控件就可以了，脱裤子放屁

[xx800329]

我用的是2楼的建议，MaskEDBox ，但出现了一个问题，当焦点一离开MaskEDBox之后，MaskEDBox里显示的就不一样了，如我输入的日期为：2009-01-01 ，当焦点一离开MaskEDBox后就变成3-98-14了，这是为什么呢！我对MaskEDBox的设置如下：
format为####-##-##
mask为####-##-##
promptchar设为空格
这是为什么呢~！

[xx800329]

我用的是2楼的建议，MaskEDBox ，但出现了一个问题，当焦点一离开MaskEDBox之后，MaskEDBox里显示的就不一样了，如我输入的日期为：2009-01-01 ，当焦点一离开MaskEDBox后就变成3-98-14了，这是为什么呢！我对MaskEDBox的设置如下：
format为####-##-##
mask为####-##-##
promptchar设为空格
这是为什么呢~！

[古今多少事]

mask为0000-00-00吧，属性窗口后面不是有“…”吗？

[chinaboyzyq]

[Quote=引用 7 楼 jhone99 的回复:]

干吗这么费事？直接用2楼的控件就可以了，脱裤子放屁
[/Quote]
你TMD装什么蛋,我不用那鸟控件不是也实现他的要求,再说了,我只是回3楼的一问,关你屁事.

[chinaboyzyq]

[Quote=引用 6 楼 tiger_zhao 的回复:]
可以设置 UpDown 属性为 True，这样下来拉箭头就变成调整数字的双箭头。
[/Quote]
谁不知道有这属性?你TMD不是一样在这脱裤子放屁,而且你还排第二位,#$!@#$!@$%!#

[chinaboyzyq]

[Quote=引用 12 楼 chinaboyzyq 的回复:]
引用 6 楼 的回复:
可以设置 UpDown 属性为 True，这样下来拉箭头就变成调整数字的双箭头。

谁不知道有这属性?你TMD不是一样在这脱裤子放屁,而且你还排第二位,#$!@#$!@$%!#
[/Quote]
向tiger_zhao道歉,气得看差行了~~~~~~不好意思~~~~~~