易截截图软件、单文件、免安装、纯绿色、仅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函数，效果会更好
楼上的


相关问答：

VB與VB.NET區別

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

作用主要區別是什么呢?

用不用有 .net框架


引用
用不用有 .net框架


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

vb中可选参数的问题

function multi(a as integer,b as integer,optional third)
  dim n as integer
  n = a * b
if not ismissing (third) then
    n = n * thid
end if
multi = n
end fu ......

怎样保存VB的combobox的list值？

form1 中，我在Text1里输入1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

点Command1，就写到Combo1的 下拉菜单里去了 ......

VC下画图要用win32 GDI API VB下呢？

用什么？
VB自己好像有画图函数吧,另外VB也是可以用API的,而且很方便

引用
VB自己好像有画图函数吧,另外VB也是可以用API的,而且很方便

为什么vc没有自己的画图函数？

引用
引用 1 楼 wltg2001 � ......

VB如何阻止某程序运行。？

比如进程加载新的程序。

在其运行之前阻止。

然后允许后放行。


比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。

就是不知道程序文件路径。

设� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号