一个简单的vb相册程序(女女过生日时送她)
来源:互联网 发布:淘宝客服一直不回消息 编辑:程序博客网 时间:2024/06/11 19:44
Public Class Form1
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
End Sub
Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3.bmp")
Me.Text = "相恋时间:2013-5-20"
Timer1.Enabled = True
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Size = New Size(436 + 10, 302 + 30)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim p As New Point()
p.X = Label1.Location.X
p.Y = Label1.Location.Y + 10
Label1.Location = p
If Label1.Location.Y >= Me.Height Then
p.Y = 0
Label1.Location = p
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-3.bmp")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-4.bmp")
Label2.Text = "王庭仙子来"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-5.bmp")
Label3.Text = "雪中独佳人。"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-6.bmp")
Label4.Text = "雯女树下立,"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-7.bmp")
Label5.Text = "我欲语还羞。"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Me.Text = "爱情宣言"
MsgBox("一生一世!!")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-9.bmp")
Label6.Text = "爱惜如芝草,"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-11.bmp")
Label7.Text = "你心亦我心。"
End Sub
Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
MsgBox(Now.ToString() + "相恋时间:2013-5-20")
End Sub
End Class
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
End Sub
Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3.bmp")
Me.Text = "相恋时间:2013-5-20"
Timer1.Enabled = True
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Size = New Size(436 + 10, 302 + 30)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim p As New Point()
p.X = Label1.Location.X
p.Y = Label1.Location.Y + 10
Label1.Location = p
If Label1.Location.Y >= Me.Height Then
p.Y = 0
Label1.Location = p
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-3.bmp")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-4.bmp")
Label2.Text = "王庭仙子来"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-5.bmp")
Label3.Text = "雪中独佳人。"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-6.bmp")
Label4.Text = "雯女树下立,"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-7.bmp")
Label5.Text = "我欲语还羞。"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Me.Text = "爱情宣言"
MsgBox("一生一世!!")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-9.bmp")
Label6.Text = "爱惜如芝草,"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Me.Text = "小萍子"
Me.Size = New Size(436 + 10, 302 + 30)
Me.BackgroundImage = Image.FromFile("Lianxi3-11.bmp")
Label7.Text = "你心亦我心。"
End Sub
Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
MsgBox(Now.ToString() + "相恋时间:2013-5-20")
End Sub
End Class
- 一个简单的vb相册程序(女女过生日时送她)
- 一个女程序的梦境
- 一个女程序的奋斗史
- 身边的一个可爱女程序媛
- 一个大龄女程序猿的烦恼
- 女程序猿都长啥样的呢?
- 女程序媛的心声
- 女程序猿的出路
- [程序猿感悟] 一个女程序员的创业感想
- 一个女程序媛征男友的需求说明书
- 我要做一个安静的女程序猿
- 做一个温婉/儒雅的女汉子程序媛
- 一个女CIO的诞生
- 一个女CIO的诞生
- 一个迷茫的女程序员
- 一个女程序员的故事
- 一个女程序员的故事
- 一个女程序员的故事
- 单向散列函数
- 编写环境变量时需要注意的
- Android ListView在TalkBack下有些项无法选中
- Android 创建文件目录
- Linux编程错误处理函数
- 一个简单的vb相册程序(女女过生日时送她)
- 网易有道面试题集锦
- ubuntu下添加环境变量
- oracle 递归查询例子
- poj 2184 Cow Exhibition
- 判断一个数据序列是否是BST后序遍历的结果
- C++之能力查询
- Android 调用相机、打开相册、裁剪图片
- SSH问题汇集