一个简单的vb相册程序（女女过生日时送她）

最新推荐文章于 2022-06-16 14:27:14 发布

原创最新推荐文章于 2022-06-16 14:27:14 发布 · 1.9k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb #label #object

本文介绍了一个动态界面设计案例，通过事件处理（单击、双击、加载、调整大小、定时器触发等）实现界面元素的动态交互与布局调整，包括背景图片切换、文本显示变化及定时文本滚动效果，展示了界面设计中的动态性和用户体验的重要性。

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