易截截图软件、单文件、免安装、纯绿色、仅160KB

VB/VB.Net如何实现用Label在不同位置移动的效果？

还记得上微软网站更新系统补丁时，每当勾选一个升级项时，在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1，当取消勾选时以相反的方向从已选数量的位置上飞回并减1，这个效果动感有个性，现在我想在VB也想实现这种效果，请问用VB如何实现？用什么算法？

请各位大虾帮帮忙，VB6或VB.Net都可以！
直接用GDI函数对屏幕DC操作。
引用
直接用GDI函数对屏幕DC操作。

如何实现？
用shape控件模拟。但要注意：check控件只显示一个钩选框，其显示内容用另外的label实现。
引用
用shape控件模拟。但要注意：check控件只显示一个钩选框，其显示内容用另外的label实现。


不知怎样实现，能否给出示例代码吗？或思路、算法也可以！
GDI不懂，简单的用Move命令来实现，大致如下：
VB code:
Option Explicit
Dim lngL As Long
Dim lngT As Long
Dim lngW As Long
Dim lngH As Long
Private Sub Command1_Click()
Do
lngT = lngT + 2
lblMove.Move lngL, lngT
DoEvents
Loop Until lblMove.Top >= 3000
End Sub

Private Sub Form_Load()
With lblMove
.Left = 0
.Top = 0
lngL = .Left
lngT = .Top
lngW = .Width
lngH = .Height
End With
End Sub


要是移动效果平滑些，可在循环中加上Sleep函数，效果会更好
楼上的


相关问答：

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB與VB.NET區別

VB與VB.NET區別是什么？
除了语法差不多，几乎都是区别。

作用主要區別是什么呢?

用不用有 .net框架


引用
用不用有 .net框架


.net可否理解為Ł ......

问个VB中的一个算术表达式

pow(x+sqrt(x*x+1),1.0/3)  (x+sqrt(x*x+1))^1.0/3


上面这两个中哪个是对的啊还是都可以    还有其中的1.0是必须用1.0?  可不可以用1啊
sqr是函数，sqrt和pow想必是自定义函数，不� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号