三九宝宝网宝宝成长宝宝手工

vb制作小闹钟程序代码求解读用于答辩 Dim Msgs As String

01月06日 编辑 39baobao.com

[如何用PPT制作闹钟动画]1、打开PPT,选择“插入”——“形状”——“圆形”(画圆的同时按住shift键)。 PPT中如何设置倒计时。 2、设置所画圆形的的填充背景色和边框(选择圆形,右键选择“设置形状格式”,...+阅读

Private Sub cmbDay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys"{tab}": KeyAscii = 0 '如果按了回车就模拟TAB按键(ASCII=13就是回车)

End Sub

Private SubcmbHour_KeyPress(KeyAscii As Integer) '如果按了回车就模拟TAB按键(ASCII=13就是回车)

If KeyAscii = 13 Then SendKeys"{tab}": KeyAscii = 0

End Sub

Private SubcmbMin_KeyPress(KeyAscii As Integer) '如果按了回车就模拟TAB按键(ASCII=13就是回车)

If KeyAscii = 13 Then SendKeys"{tab}": KeyAscii = 0

End Sub

Private SubcmbMonth_KeyPress(KeyAscii As Integer) '如果按了回车就模拟TAB按键(ASCII=13就是回车)

If KeyAscii = 13 Then SendKeys"{tab}": KeyAscii = 0

End Sub

Private Sub Command1_Click()

ReDim Preserve Msgs(Length),Times(Length), Passed(Length)'重新定义数组

Dim a As String

If Check1.Value = 0 Then'如果check1的值不为真,也就是钩钩去掉了

'给字符串变量a赋值 &是连接串用的 Left(CmbMonth.Text,2)是left函数,从''''左边第2位开始取CmbMonth.Text的值,后面的相同

a = "等待 " & Left(CmbMonth.Text, 2) & "-" &Left(CmbDay.Text, 2) & " " & Left(CmbHour.Text, 2) &":" & Left(CmbMin.Text, 2) & " 提示 " & Text1.Text

List1.AddItem a '然后向list1添加变量a的值

Passed (Length)= False'将变量置为false也就是否

Msgs(Length) = Text1.Text '赋值

'也是个赋值过程

Times(Length) = Left(CmbMonth.Text,2) & "-" & Left(CmbDay.Text, 2) & " " &Left(CmbHour.Text, 2) & ":" & Left(CmbMin.Text, 2)

Length = Length + 1

CmbMonth.SetFocus '控件获取焦点

Else'否则

''给字符串变量a赋值 &是连接串用的 Left(CmbHour.Text, 2)是left函数,从''''左边第2位开始取CmbMonth.Text的值,后面的相同

a = "等待 " & Left(CmbHour.Text, 2) & ":" &Left(CmbMin.Text, 2) & " 提示 " & Text1.Text

List1.AddItem a 向list1 添加变量a的值

Passed(Length) = False '给数组赋值

Msgs(Length) = Text1.Text '给数组赋值

'给字符串变量a赋值 &是连接串用的 Left(CmbHour.Text,2)是left函数,从''''左边第2位开始取CmbMonth.Text的值,后面的相同

Times(Length) = Left(CmbHour.Text,2) & ":" & Left(CmbMin.Text, 2)

Length

以下为关联文档:

制作一个好的答辩ppt有哪些技巧第一,PPT内容的表述应当遵循“能图不表,能表不字”的原则。 刚开始做PPT,最好采用改三版的步骤去做:第一版全是文字,第二版加上两张图一个表格,第三版文字已经很少了,大部分是图、...

科技项目申报怎样答辩按照目前来看的 一些科技答辩(软性项目、共性平台、国家高新企业)反馈情况来看,答辩需要做如下准备: 1 对自己申请书的内容十分清晰,尤其是财务数据(上年销售额、净利润、利税总额...

论文答辩ppt制作要求以及答辩流程和具体要求越详细越好一、答辩幻灯片制作流程 第一页(首页)主要包括: 一、论文题目 二、答辩人及单位 三、指导老师 四、答辩时间 第二页:论文汇报目录:主要包括: 一、提出问题(选题背景及国内外研究现...

大创答辩的ppt都应该写哪些内容ppt基础知识及使用技巧 PowerPoint软件是教师制作课件的主要工具之一。下面介绍了ppt的一些基础知识及使用技巧,仅供初学课件制作者参考 。 一、PPT的启动和退出 1、打开方法...

毕业论文答辩PPT如何制作关于内容: 1、一般概括性内容:课题标题、答辩人、课题履行时间、课题领导教师、课题的回属、致谢等。 2、课题研究内容:研究目标、计划设计(流程图)、运行进程、研究成果、创新性...

推荐阅读
图文推荐