Question

VB怎么让图片慢慢显示

如题，让图片从看不到慢慢显示到透明度100%在VB使用图片在别的电脑上打开会不会出现找不到图片的问题，怎么做？

Answer 1

时钟控件1个,Pictuer控件一个'API声明部分Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'定义一个全局变量,用于装载透明度.Private N As Integer'窗体加载事件Private Sub Form_Load()
Timer1.Enabled = False '将时钟控件设置为关
Timer1.Interval = 50 '将时钟控件延迟设置大小为50
N = 255 '初始化N为255,不透明.(0为全透明不可见状态)'N=0 '初始化N为0,透明.
End Sub'Picture控件点击事件Private Sub Picture1_Click()
Timer1.Enabled = True '激活时钟控件
End Sub'时钟控件事件Private Sub Timer1_Timer()
Dim Ns As Long If N < 10 Then '判断透明度是否低于10'If N=255 then '判断透明度是否等于255
Shell App.Path & "\Main.exe Go" '低于10则执行其它操作,这里可以改成其它的,这个是演示启动根目录下的另一个PE程序.'Timer1.Enabled = False '如果等于255则停止时钟控件,接着其它想要的操作.
End '结束当前
End IfNs = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ns = Ns Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, NsN = N - 5N = N + 5
SetLayeredWindowAttributes Me.hwnd, 0, N, LWA_ALPHAEnd Sub

Answer 2

在VB使用图片在别的电脑上打开会不会出现找不到图片的问题有几种方式解决：一、发布时带你用的图片（要用相对路径）二、在窗体属性中用PICTURE属性设置

Answer 3

可以用时间函数和select case情况语句来配合使用即可实现你的功能。原理就是当程序每运行2秒(假设我设计了2秒)，图片就可以开始由看不到慢慢显示到透明度100%

Answer 4

可以这样做：将窗体borndstyle设无边框，放Image控件扑满窗体，使用窗体渐变。具体代码可以加我QQ