我爱电脑技术论坛 » 编程语言 » 想制作出QQ的抖动窗口效果吗？come on ~follow me..

酷漫礼品专卖 发表于 2008-8-11 14:28

想制作出QQ的抖动窗口效果吗？come on ~follow me..

根本没一点技术的帖子。。
只给菜鸟看。。
老鸟飘。。

vb2005写的。。 复制内容到剪贴板 代码:
Public Class Form1

    *** Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim G, Z, a, b, c
        G = Me.Top
        Z = Me.Left
        For a = 1 To Val(cs.Text)                          'cs.text即是次数
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2     'fw.text即是范围
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top + b
            Me.Left = Me.Left + c
        Next
        For a = 1 To Val(cs.Text)
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top - b
            Me.Left = Me.Left - c
        Next
        Me.Top = G
        Me.Left = Z
    End Sub
End Class一个按钮，二个text..
源程序就不传了吧。。只有几行代码而已。。呵呵
老鸟看看就好。。别打击偶
Public Class Form1

    *** Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim G, Z, a, b, c
        G = Me.Top
        Z = Me.Left
        For a = 1 To Val(cs.Text)                          'cs.text即是次数
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2     'fw.text即是范围
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top + b
            Me.Left = Me.Left + c
        Next
        For a = 1 To Val(cs.Text)
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top - b
            Me.Left = Me.Left - c
        Next
        Me.Top = G
        Me.Left = Z
    End Sub

noktxtboy 发表于 2008-8-13 19:35

顶

[size=2]路过，顺便强势插入[/size]
[url=http://www.wh88.org.cn/gupiao/view/id-142]开放式基金[/url]

yangqin901220 发表于 2008-8-15 23:10

怎么用啊？？？？

查看完整版本: 想制作出QQ的抖动窗口效果吗？come on ~follow me..