Question

vb 怎么实现自动换背景图片呢？

请问下，在VB中，怎么实现让它自动换背景图片呢。。？？
目录是指
比如 目录名字是bak 那么是不是 c:\bak\1.jpg 吗 ？？
是吗 ？

~~~~~~~~~~~
回 mosquitokobe 的话 如果不增加图片控件可以实现吗？

Answer 1

AlphaBlend函数的定义同普通的复制函数Bitblt很相似，只是最后的参数blendFunct定义为一个

  rBlendProps结构。那么为什么在函数定义中blendFunct 定义为Long类型呢？因为rBlendProps结构长度是4个字节。

  而Long类型变量的长度也是4个字节，那么我们就可以程序中通过API函数CopyMemory将一个rBlendProps结构拷贝到

  blendFunct 中。

  在Form1中添加两个PictureBox控件，其中Picture2为源，Picture1为拷贝目标，将两者的ScaleMode都设置为3-Pixel

  将两者的AutoRedraw属性都设置为True，然后分别添加图像。在加入一个Timer控件以及一个CommandButton控件，然后

  在Form1的代码窗口中添加如下代码：

  Dim lTime As Byte
  Sub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _
  ByVal nLevel As Byte)
  Dim LrProps As rBlendProps
  Dim LnBlendPtr As Long
  cDest.Cls
  LrProps.tBlendAmount = nLevel
  CopyMemory LnBlendPtr, LrProps, 4
  With cSrc
  AlphaBlend cDest.hDC, 0, 0, .ScaleWidth, .ScaleHeight, _
  .hDC, 0, 0, .ScaleWidth, .ScaleHeight, LnBlendPtr
  End With
  cDest.Refresh
  End Sub
  Private Sub Command1_Click()
  lTime = 0
  Timer1.Interval = 100
  Timer1.Enabled = True
  End Sub
  Private Sub Timer1_Timer()
  lTime = lTime + 1
  ShowTransparency Picture2, Picture1, lTime
  If lTime >= 255 Then
  Timer1.Enabled = False
  End If
  Me.Caption = Str(Int(lTime / 2.55)) + "%"
  End Sub

Answer 2

不是那样的。你要是想自动换背景图片，那是需要时钟控件的。双击时钟控件，编写它的脉冲变化事件，脉冲信号间隔时间随你定。

Answer 3

所谓随机就是随便找个图片,不过很多人都用数字作为图片名称来选择,这个也算是随机吧!不过有感觉要改名不正么好玩,我写有不需要改名就直接随机选图片的函数,不过你那20分太少了点点,所以如果你加点我就给你,完全随机,名字不限制

Answer 4

设置一个背景图片库
然后设置一个Rnd()函数
调用这个库
使Me.picture随机到的图片

Answer 5

背景图片放到同一个目录下，图片名字假设为X.jpg
Me.Picture = LoadPicture(App.Path + "\" + str(x) + ".jpg")

其中X必须为一个有序组合 如 1~10
那么采用一个TIMER事件
代码为下:
x=int(rnd()*10)+1
Me.Picture = LoadPicture(App.Path + "\" + str(x) + ".jpg")

App.Path + "\" + str(x) + ".jpg" 表示在你程序文件的同一个文件夹下以X命名的JPG图片