1,451
社区成员
发帖
与我相关
我的任务
分享第二次问这个问题！！！！ 大侠们要帮下忙啊！！！！
用VB的一个updown控件和一个文本框实现：
windows任务栏上那个调整小时，分钟，秒的程序。大侠们应该明白我的意思的吧。
（我问了2个月薪3500的深圳程序员，他们都说一下搞不定。不知道你们有没有什么好的办法）
分子不是问题，先谢谢大家了。
windows任务栏上那个调整小时，分钟，秒的程序。大侠们应该明白我的意思的吧。
（我问了2个月薪3500的深圳程序员，他们都说一下搞不定。不知道你们有没有什么好的办法）
分子不是问题，先谢谢大家了。
...全文
请发表友善的回复…
发表回复
northwolves 2004-04-07
- 打赏
- 举报
ALL RIGHT：
Private Sub Form_Load()
DTPicker1.UpDown = True
DTPicker1.Format = dtpTime
DTPicker1.Value = Time
End Sub
Private Sub Form_Load()
DTPicker1.UpDown = True
DTPicker1.Format = dtpTime
DTPicker1.Value = Time
End Sub
flyingZFX 2004-04-07
- 打赏
- 举报
同意楼上的意见，可以自己做一个控件嘛!!
TanXF008 2004-04-07
- 打赏
- 举报
你非要用一个文本框吗,不能用三个文本框吗!
用三个文本框是很好解决这个问题的吧!!
用三个文本框是很好解决这个问题的吧!!
sysmaster 2004-04-07
- 打赏
- 举报
用picturebox 做容器,里面放三个textbox两个label
pigsanddogs 2004-04-07
- 打赏
- 举报
:)
TechnoFantasy 2004-04-05
- 打赏
- 举报
这样啊，那明月的方法正确。
andyfr1210 2004-04-05
- 打赏
- 举报
明月高楼的方法值得一试。谢谢你多次帮我！
不过我现在不能试，因为我现在在网吧
没VB。 ：）
不过我现在不能试，因为我现在在网吧
没VB。 ：）
andyfr1210 2004-04-05
- 打赏
- 举报
楼上五个星的大哥， 误会我的意思了。
我的意思是说双击任务栏上显示的那个时间， 会弹出一个对话框，那里有一个updown按钮和一个文本框，点击updown按钮，可以调整小时分钟钞钟，我想用vb的updown控件和一个文本框控件来模拟
这个功能。现在我应该是说清楚了吧。 呵呵。。。。。。。。。
我的意思是说双击任务栏上显示的那个时间， 会弹出一个对话框，那里有一个updown按钮和一个文本框，点击updown按钮，可以调整小时分钟钞钟，我想用vb的updown控件和一个文本框控件来模拟
这个功能。现在我应该是说清楚了吧。 呵呵。。。。。。。。。
TechnoFantasy 2004-04-05
- 打赏
- 举报
上面的程序更改系统时间，也就同时更改了任务栏上显示的时间。
TechnoFantasy 2004-04-05
- 打赏
- 举报
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub
wumy_ld 2004-04-05
- 打赏
- 举报
如果只是想调整小时，分钟，秒钟，需要把DTPicker控件的Format属性设为dtpTime
wumy_ld 2004-04-05
- 打赏
- 举报
最简单的办法：
“工程”－》“部件”，选中“Microsoft Windows Common Controls-2 6.0”。
DTPicker控件可以解决楼主的问题，把DTPicker控件的UpDown属性设为True即可。
“工程”－》“部件”，选中“Microsoft Windows Common Controls-2 6.0”。
DTPicker控件可以解决楼主的问题，把DTPicker控件的UpDown属性设为True即可。
andyfr1210 2004-04-05
- 打赏
- 举报
大家就帮帮我吧。
一定有人知道的呀。
一定有人知道的呀。
andyfr1210 2004-04-05
- 打赏
- 举报
Private Sub Form_Load()
Text1.Text = Format(Time, "hh:mm:ss")
End Sub
Private Sub UpDown1_DownClick()
pos = Text1.SelStart
lens = Text1.SelLength
temp = Val(Text1.SelText)
Text1.Text = Format(DateAdd(Switch(pos = 0, "h", pos = 3, "n", pos = 6, "s"), -1, Text1), "hh:mm:ss")
Text1.SelStart = pos
Text1.SelLength = lens
End Sub
Private Sub UpDown1_UpClick()
pos = Text1.SelStart
lens = Text1.SelLength
temp = Val(Text1.SelText)
Text1.Text = Format(DateAdd(Switch(pos = 0, "h", pos = 3, "n", pos = 6, "s"), 1, Text1), "hh:mm:ss")
Text1.SelStart = pos
Text1.SelLength = lens
End Sub
这个源代码可以实现一部分功能， 但是离windows自带那个程序的功能还差得很远。
大家参考一下这个程序，帮我想想。
这个代码也是CSDN上的朋友告诉我的。
Text1.Text = Format(Time, "hh:mm:ss")
End Sub
Private Sub UpDown1_DownClick()
pos = Text1.SelStart
lens = Text1.SelLength
temp = Val(Text1.SelText)
Text1.Text = Format(DateAdd(Switch(pos = 0, "h", pos = 3, "n", pos = 6, "s"), -1, Text1), "hh:mm:ss")
Text1.SelStart = pos
Text1.SelLength = lens
End Sub
Private Sub UpDown1_UpClick()
pos = Text1.SelStart
lens = Text1.SelLength
temp = Val(Text1.SelText)
Text1.Text = Format(DateAdd(Switch(pos = 0, "h", pos = 3, "n", pos = 6, "s"), 1, Text1), "hh:mm:ss")
Text1.SelStart = pos
Text1.SelLength = lens
End Sub
这个源代码可以实现一部分功能， 但是离windows自带那个程序的功能还差得很远。
大家参考一下这个程序，帮我想想。
这个代码也是CSDN上的朋友告诉我的。
