首页 \ 问答 \ 标题标题为旋钮值(Label caption to spinbutton value)

标题标题为旋钮值(Label caption to spinbutton value)

我有一个问题,从标签标题加载值到旋转按钮值和返回。 我有一些来自报告的数据,但我只需要6-8小时的报告,所以我做了表格,我想设置开始时间和结束时间(yyyy,mm,dd hh:mm)然后我要删除行,哪里不是我的时间,所以我加载年,月,日,小时和分钟为Now()到标题,然后我需要加载标签的标题到旋钮的值,然后我需要更改标题值,如有数值调节钮。 感谢您的帖子,对不起我的英语;)这是我的代码:

    Sub spust()

formtime.lblrok1.Caption = Format(Now, "yyyy")
formtime.lblmes1.Caption = Format(Now, "mm")
formtime.lblden1.Caption = Format(Now, "dd")
formtime.lblhod1.Caption = Format(Now, "hh")
formtime.lblmin1.Caption = Minute(Now)

If Len(formtime.lblmin1.Caption) = 1 Then
    formtime.lblmin1.Caption = "0" & Minute(Now)
End If

formtime.lblrok2.Caption = Format(Now, "yyyy")
formtime.lblmes2.Caption = Format(Now, "mm")
formtime.lblden2.Caption = Format(Now, "dd")
formtime.lblhod2.Caption = Format(Now, "hh")
formtime.lblmin2.Caption = Minute(Now)

If Len(formtime.lblmin2.Caption) = 1 Then
    formtime.lblmin2.Caption = "0" & Minute(Now)
End If

With formtime.spbutrok1
    'my problem -> .Value = CInt(formtime.lblrok1.Caption)
    .Min = 2010
    .Max = 2030

End With

formtime.lblrok1.Caption = CStr(formtime.spbutrok1.Value)

formtime.Show
End Sub

I have a problem with loading of value from label caption to spinbutton value and back. I have some data from report, but I need only 6-8 hours from the report, so I made form, where i want to set start time and end time (yyyy,mm,dd hh:mm) and then I want to delete rows, where is not my time, so I am loading year, month, day, hour and minute as Now() to captions, then I need load caption of label to value of spinbutton and then I need change caption to value, like has spinbutton. Thanks for your posts and sorry for my English ;) Here is my code:

    Sub spust()

formtime.lblrok1.Caption = Format(Now, "yyyy")
formtime.lblmes1.Caption = Format(Now, "mm")
formtime.lblden1.Caption = Format(Now, "dd")
formtime.lblhod1.Caption = Format(Now, "hh")
formtime.lblmin1.Caption = Minute(Now)

If Len(formtime.lblmin1.Caption) = 1 Then
    formtime.lblmin1.Caption = "0" & Minute(Now)
End If

formtime.lblrok2.Caption = Format(Now, "yyyy")
formtime.lblmes2.Caption = Format(Now, "mm")
formtime.lblden2.Caption = Format(Now, "dd")
formtime.lblhod2.Caption = Format(Now, "hh")
formtime.lblmin2.Caption = Minute(Now)

If Len(formtime.lblmin2.Caption) = 1 Then
    formtime.lblmin2.Caption = "0" & Minute(Now)
End If

With formtime.spbutrok1
    'my problem -> .Value = CInt(formtime.lblrok1.Caption)
    .Min = 2010
    .Max = 2030

End With

formtime.lblrok1.Caption = CStr(formtime.spbutrok1.Value)

formtime.Show
End Sub

原文:https://stackoverflow.com/questions/39143285
更新时间:2023-05-07 13:05

最满意答案

rewritecond %{http_host} ^domain.com [nc]
rewriterule ^(.*)$ http://www.domain.com/$1 [r=301,nc]

rewritecond %{http_host} ^domain.com [nc]
rewriterule ^(.*)$ http://www.domain.com/$1 [r=301,nc]

相关问答

更多

相关文章

更多

最新问答

更多
  • h2元素推动其他h2和div。(h2 element pushing other h2 and div down. two divs, two headers, and they're wrapped within a parent div)
  • 创建一个功能(Create a function)
  • 我投了份简历,是电脑编程方面的学徒,面试时说要培训三个月,前面
  • PDO语句不显示获取的结果(PDOstatement not displaying fetched results)
  • Qt冻结循环的原因?(Qt freezing cause of the loop?)
  • TableView重复youtube-api结果(TableView Repeating youtube-api result)
  • 如何使用自由职业者帐户登录我的php网站?(How can I login into my php website using freelancer account? [closed])
  • SQL Server 2014版本支持的最大数据库数(Maximum number of databases supported by SQL Server 2014 editions)
  • 我如何获得DynamicJasper 3.1.2(或更高版本)的Maven仓库?(How do I get the maven repository for DynamicJasper 3.1.2 (or higher)?)
  • 以编程方式创建UITableView(Creating a UITableView Programmatically)
  • 如何打破按钮上的生命周期循环(How to break do-while loop on button)
  • C#使用EF访问MVC上的部分类的自定义属性(C# access custom attributes of a partial class on MVC with EF)
  • 如何获得facebook app的publish_stream权限?(How to get publish_stream permissions for facebook app?)
  • 如何防止调用冗余函数的postgres视图(how to prevent postgres views calling redundant functions)
  • Sql Server在欧洲获取当前日期时间(Sql Server get current date time in Europe)
  • 设置kotlin扩展名(Setting a kotlin extension)
  • 如何并排放置两个元件?(How to position two elements side by side?)
  • 如何在vim中启用python3?(How to enable python3 in vim?)
  • 在MySQL和/或多列中使用多个表用于Rails应用程序(Using multiple tables in MySQL and/or multiple columns for a Rails application)
  • 如何隐藏谷歌地图上的登录按钮?(How to hide the Sign in button from Google maps?)
  • Mysql左连接旋转90°表(Mysql Left join rotate 90° table)
  • dedecms如何安装?
  • 在哪儿学计算机最好?
  • 学php哪个的书 最好,本人菜鸟
  • 触摸时不要突出显示表格视图行(Do not highlight table view row when touched)
  • 如何覆盖错误堆栈getter(How to override Error stack getter)
  • 带有ImageMagick和许多图像的GIF动画(GIF animation with ImageMagick and many images)
  • USSD INTERFACE - > java web应用程序通信(USSD INTERFACE -> java web app communication)
  • 电脑高中毕业学习去哪里培训
  • 正则表达式验证SMTP响应(Regex to validate SMTP Responses)