VB

原创 2012年03月26日 18:30:27
首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下;
Dim g As Boolean
Dim x As Long
再双击开始运动按钮,编写程序语言,语言如下:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
再双击窗体,编写程序语言,语言如下:
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
再双击闹钟,编写程序语言,语言如下:
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then
g = Not g
End If
Shape1.Move x
End Sub
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

C#基础与VB基础比较

在看C#视频的时候,感觉这老师讲的很乱,还好前面有VB作为基础。只要还记得我们去年讨论的VB总结,那么在看C#视频的时候,就会感觉到很熟悉。看完视频之后,就特别有一种欲望,将C#和VB进行比较。  ...

小写金额转换为大写金额(vb2010)

'-------------------------------------------------------------     '功能:小写金额转换为大写金额     '参数:   &...

vb.net版机房重构--充值记录查询

前言        vb.net和VB两种的差距并不是非常大,但是使用起来还是有一些不同的,拿机房的充值记录查询功能实现来具体说明。使用 vs就比使用VB要简单很多,省去了很多人工的操作。 操作说明 ...

几种经典的二值化方法及其vb.net实现

几种经典的二值化方法及其vb.net实现 图像二值化的目的是最大限度的将图象中感兴趣的部分保留下来,在很多情况下,也是进行图像分析、特征提取与模式识别之前的必要的图像预处理过程。这个看似简单的问...

vb.net版机房收费——助你学会七层架构(一)

机房收费系统,手把手教你构建七层架构,一学就会。

VB.NET机房个人重构版-磨刀篇(一)

原创作品,允许转载,转载时请务必以超链接形式标明文章原始出处 :http://blog.csdn.net/lantingxv_jing/article/details/8980101   【阶...

VB 写的文件分割工具,还蛮好用的。附上源码

VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"Begin VB.Form frm...

存储过程进阶(vb.net+SQL Server2008环境)

写过一篇存储过程入门的博客,那仅仅是入门,下面和大家一起深入学习存储过程(也许以后还会有更深入^_^) 以经典的注册为例子,篇幅有限只写了核心部分,其他略过。   无参数无返...

Vb.net在窗体上而非textbox控件上捕捉键盘上按下的键

之前一直苦苦纠结怎么实现这个问题,今天无意间发现了 窗体上有 keypriview这个属性 后经过查找相关资料,了解它是用于窗体捕捉键盘上按下的键只要新建一个窗体,将此属性设置为true,便可以...

VB中求Val("&H ffff")的返回值

这是徒弟问的百例上的问题,在师哥师姐的帮助下,终于拿下了     例题已经给出了答案,是-1,可是为什么     首先回顾一下知识,     VB中的Val函数含义是返回包含于字符串内的数字,字符串是...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)