Question

vb实现在电脑右下角弹出像广告的窗口

Answer 1

现在没用电脑，先说思路吧：先要获取任务栏的高（百度“Vb怎么获取任务栏的高度”），然后将窗体置于右下角（窗体的Left也就是Screen.weight - me.weight，窗体的Top则为Screen.height + me.height），然后，窗体的Top依次减少（减少任务栏的高度加上窗体的高度），当减少量达到那个值，Timer为0。如果需要，改天贴代码。

追问

需要代码，改天就麻烦您贴代码吧。

追答

恩，好的。估计明天可以贴上。

追问

好的谢谢

追答

'www.norksoft.cn
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Function TaskbarHeight() As Integer
'获取任务栏高度
    Dim lRes As Long
    Dim rectVal As RECT
    lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
    TaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX
End Function
Private Sub Form_Load()
'一加载窗体就让窗体置于屏幕外
    Me.Move Screen.Width - Me.Width, Screen.Height + Me.Height
End Sub
Private Sub Timer1_Timer()
    If Me.Top >= Screen.Height - Me.Height - TaskbarHeight Then
         Me.Top = Me.Top - 100
    Else
         Me.Top = Screen.Height - Me.Height - TaskbarHeight
         Timer1.Enabled = False
    End If
End Sub