vb制作表白小程序（用vb做一个表白程序）

本篇文章给大家谈谈vb制作表白小程序，以及用vb做一个表白程序对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、各位大神帮帮忙用VB编一个表白程序，最好能带点惊喜的
• 2、各位大神，我想用VB编写一个程序来表白，希望可以帮我，成人之美功德无量呀，谢啦！！！
• 3、可以让玫瑰花一朵朵出现围成一个桃心的VB程序
• 4、如何用vb编写个表白程序
• 5、帮我编一个vb程序 用来表白的

各位大神帮帮忙用VB编一个表白程序，最好能带点惊喜的

这个题 实话说没有难度，只是做个程序，编译成EXE，加入开机运行，就可以了。

各位大神，我想用VB编写一个程序来表白，希望可以帮我，成人之美功德无量呀，谢啦！！！

方法：

先将要轮流显示的图片编辑好，建议图片尺寸设置为一致！并转换为BMP格式的图片！

打开VB,新建工程,单击窗体中【外接程序】=【外接程序管理器】=选择【VB 资源管理器】，并加载它！

将图片添加进VB 资源管理器里面，文件的ID依次是 101 102 103 .... ...

在工程项目中添加两个窗体,分别为 Form1 Form2

在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:

  Private Sub Command1_Click()

      Form2.Show

  End Sub

在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:

Dim i As Integer

Private Sub Form_Load()

 Timer1.Interval = 2000   '延时2000ms

  i = 1

End Sub

Private Sub Timer1_Timer()

  Picture1.Picture = LoadResPicture(100 + i, vbResBitmap)

  i = i + 1

  If i = 6 Then i = 1    ' 数字6是代表有6张图片

End Sub

这样就按照你的要求做出一个每两秒钟就自动循环更换图片的程序了!

可以让玫瑰花一朵朵出现围成一个桃心的VB程序

首先你要准备一个玫瑰花图片文件，要小一点。

然后在窗体上放12个Image控件，组成一个控件数组，摆成心形，Picture属性设置为你的玫瑰花。Visibel属性全部设置为False。

在窗体上放一个Timer控件。Interval属性设置为1000，每秒显示一朵玫瑰花。

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

    Image1(i).Picture = LoadPicture(App.Path + "\西安绿博园七彩玫瑰.jpg")

Next

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    Image1(i).Visible = True

    i = i + 1

    If i = Image1.Count Then

        Label1.Visible = True

        Timer1.Enabled = False

    End If

End Sub

如何用vb编写个表白程序

简单啊~

打开VB新建一个exe工程；

按下F7打开代码窗体；

写入以下代码并生成exe发送给对方即可。

Private Sub Form_Load()

    MsgBox "I love you~"

    MsgBox "真的！"

    MsgBox "..."

End Sub

MsgBox请自由更改以及添加，想说多少加多少。

帮我编一个vb程序 用来表白的

应室友要求,改了一点点,顺便再发上来:

在窗体上放一个label1,然后把原来所有的代码删掉,复制这里代码进去就可以了.嘿嘿,你要先试一下效果喔

错误?!不是说我的吧....你有没有先在窗口上放一个label1?

Private Sub Form_Load()

Dim i, k

Dim m() As Byte

Dim prew As Long, preh As Long, pret As Long

Dim h As Long, w As Long

ScreenDC = GetWindowDC(0)

ScreenW = Screen.Width / Screen.TwipsPerPixelX

ScreenH = Screen.Height / Screen.TwipsPerPixelY

ReDim m(ScreenW / 3, ScreenH / 3)

Label1.Visible = False

Me.ScaleMode = 3

Me.Show

pret = Me.Top: prew = Me.Width: preh = Me.Height

Me.Move Me.Left, Screen.Height * 2, Screen.Width / 3, Screen.Height / 3

DoEvents

Me.AutoRedraw = True

Label1.AutoSize = True

Label1 = YourWord

Label1.Font.Size = 100

Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScale

Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScale

Me.FontName = Label1.FontName

Me.FontSize = Label1.FontSize

Me.ForeColor = 0

CurrentX = (Me.ScaleWidth - Label1.Width) / 2

CurrentY = (Me.ScaleHeight - Label1.Height) / 2

Print Label1

For h = 1 To ScreenH / 3

For w = 1 To ScreenW / 3

If Point(w, h) = 0 Then

m(w, h) = 1

End If

Next w

Next h

Cls

SNOW_MAX = ScreenW * ScreenH \ SnowScale

ReDim Snow(SNOW_MAX, 1), Last(SNOW_MAX)

Randomize

For i = 0 To SNOW_MAX

NewSnow i

Snow(i, 1) = -Rnd * ScreenH

Next

Me.Move Me.Left, pret, prew, preh

Me.WindowState = 1

On Error Resume Next

Do

For i = 0 To SNOW_MAX

SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), Last(i)

Snow(i, 0) = Snow(i, 0) + Rnd * FALL_SPEED - FALL_SPEED / 2

Snow(i, 1) = Snow(i, 1) + Rnd * FALL_SPEED

If Snow(i, 0) 0 Or Snow(i, 0) ScreenW Or Snow(i, 1) ScreenH Then

NewSnow i

Else

k = Last(i)

Last(i) = GetPixel(ScreenDC, Snow(i, 0), Snow(i, 1))

SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), SnowColor

If m(Snow(i, 0) / 3, Snow(i, 1) / 3) Then

If Rnd SpotSpeed Then

If Rnd 0.5 Then Last(i) = WordColor1 Else Last(i) = WordColor2

End If

End If

End If

Next

Sleep FALL_Interval

DoEvents

If myend Then Exit Sub

Loop

End Sub

Private Sub NewSnow(i)

Snow(i, 0) = Rnd * ScreenW

Snow(i, 1) = 0

Last(i) = GetPixel(ScreenDC, Snow(i, 0), 0)

End Sub

Private Function ColorDec(ByVal Color1, ByVal Color2) As Long

Dim R1%, G1%, B1%

Dim R2%, G2%, B2%

GetRGB Color1, R1, G1, B1

GetRGB Color2, R2, G2, B2

ColorDec = Abs(R1 - R2) + Abs(G1 - G2) + Abs(B1 - B2)

End Function

Private Sub GetRGB(ByVal Color, ByRef r%, ByRef g%, ByRef b%)

r = (Color Mod 256)

b = (Int(Color \ 65536))

g = ((Color - (b * 65536) - r) \ 256)

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

myend = True

DoEvents

DoEvents

End

End Sub

vb制作表白小程序的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb做一个表白程序、vb制作表白小程序的信息别忘了在本站进行查找喔。