用vb编一个小程序

Question

想编一个一运行,屏目上就有一朵花让后两朵 三朵 最后满屏都是,然后按Esc键退出运行. 要带码 ,还要注解.跟怎么做. 特别想学,求高手指点.学会重分感谢.
别光让我加分啊,写代码啊,谢谢了.对不起啊。走的时候忘改了。抱歉 。

Answer 1

'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花
'画2个COMMAND按钮
Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像
Dim curX As Long, curY As Long '当前打印位置
Randomize '开始参数随机数
curX = Rnd() * Me.ScaleWidth
curY = Rnd() * Me.ScaleHeight
Me.PaintPicture Picture1.Picture, curX, curY '打印图片到窗体
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.ScaleMode = 3 '窗体以像素为单位
Command2.Cancel = True '按ESC时执行Command2_Click（退出运行）
End Sub

Answer 2

我有一段代码
版权关系 这里不直接发了 你站$%%内$%%短%$%信联///////////#%%^/////系我吧
原理是复制窗体 设置随机位置
============
我都说我的代码是别人有版权的 我不能在这随便发 之前叫你站内PM一下我又不P 现在我出差在外 也没办法回你代码了 回家再算吧

Answer 3

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6495
ClientLeft = 60
ClientTop = 450
ClientWidth = 8790
DrawWidth = 9
LinkTopic = "Form1"
ScaleHeight = 6495
ScaleWidth = 8790
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 1000
Left = 3840
Top = 3000
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then End
End Sub

Private Sub DrawFlowers()
Dim X, Y As Long
Randomize
X = (Rnd * 100) / 100 * Me.Width
Y = (Rnd * 100) / 100 * Me.Height
Me.PSet (X, Y), vbRed
Me.PSet (X + 130, Y), vbRed
Me.PSet (X - 130, Y), vbRed
Me.PSet (X, Y + 150), vbRed
Me.PSet (X, Y - 150), vbRed
End Sub

Sub Delay(Seconds)
t = Timer
Delay
DoEvents
If Timer < t + Seconds Then GoTo Delay
End Sub

Private Sub Timer1_Timer()
DrawFlowers
End Sub

Answer 4

+QQ663772546 注明 VB知道
否则不加

Answer 5

几个月前我就发过源码在VB论坛中，想不到还有人在这里要。
http://bbs.bccn.net/viewthread.php?tid=146421&extra=page%3D1%26amp%3Bfilter%3Ddigest

Answer 6

我会C不会VB，不过你分也太少了，不好打发呀，