用VB制作类似QQ宠物的程序
来源:百度知道 编辑:UC知道 时间:2024/05/15 03:58:06
希望各位高手能给我尽量全的代码,谢谢!
我也在做和你一样的仿qq宠物,满足你的3个要求
--Form1.frm
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9d.ocx"
Begin VB.Form Form1
BackColor = &H00FF00FF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2595
ClientLeft = 0
ClientTop = 0
ClientWidth = 2085
LinkTopic = "Form1"
ScaleHeight = 2595
ScaleWidth = 2085
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 5000
Left = 1320
Top = 2040
End
Begin VB.CommandButton Command1
Caption = "X"
Height = 375
Left = 120
TabIndex = 1
Top