如何实现在屏幕右下脚弹出窗口!

Question

就是有提示时,在右下角一点点升起个窗口!
我可以实现,但是无法获得位置的具体信息!
因为用户的分辨率是不同的!
而且有可能有的用户隐藏任务栏,有的不隐藏!
怎么解决,自动适应左面的弹出窗口功能!

Answer 1

模仿MSN Messenger的新邮件提示窗 http://www.21code.com/codebase/?pos=down&id=1990

Answer 2

用form.left=screen.width-form.width
form.top=screen.height-form.height?

Answer 3

用form.left=screen.width-form.width
form.top=screen.height-form.height?

Answer 4

我记得
http://www.5ivb.net
上有的,你找找看

Answer 5

分辨率可以用
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
得到

Answer 6

Option ExplicitPrivate Sub Command1_Click()
    Dim i As Long
    Me.Move Screen.Width - Me.Width, Screen.Height
    While i < Me.Height + 500
        DoEvents
        i = i + 10
        Me.Move Screen.Width - Me.Width, Screen.Height - i
    Wend
End Sub

Answer 7

'form1
Private Sub Command1_Click()
    Form2.Left = Screen.Width - Form2.Width
    Form2.Top = Screen.Height
    Form2.Show
End Sub'form2
Private Sub Form_Load()
    Timer1.Interval = 1
End SubPrivate Sub Timer1_Timer()
    If Me.Top < Screen.Height - Me.Height Then
        Timer1.Enabled = False
    Else
        Me.Top = Me.Top - 30
    End If
End Sub

Answer 8

Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height