求一个vb程序 - VB / 非技术类
代码要求在100行多一点 稍微简单一点 能够实现有趣的功能 有点小问题不要紧 重要的是能运行 代码可以打包发到邮箱 244313749@qq.com
这种软件有啥用啊
以下的代码 复制。粘贴。运行。即可
VB code:
Private Type xy
X As Single
Y As Single
End Type
Dim a(100) As xy
Private WithEvents Timer1 As Timer
Private Sub Form_Activate()
v = "鼠标在窗口随便点击一下，然后再拖动鼠标，就出现效果了哈！"
Form1.CurrentX = Screen.Width / 4
Form1.CurrentY = Screen.Height / 2.5
Randomize
For i = 1 To Len(v)
Form1.FontSize = 10 + 15 * Rnd
Form1.ForeColor = &HFFFFFF * Rnd
Print Mid(v, i, 1);
Next i
End Sub
Private Sub Form_Load()
Set Timer1 = Form1.Controls.Add("VB.timer", "t")
Form1.Move 0, 0, Screen.Width, Screen.Height
Timer1.Enabled = False
Timer1.Interval = 10
Form1.BackColor = 0
Form1.AutoRedraw = True
Form1.DrawWidth = 10
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
For i = 1 To 100
a(i).X = X
a(i).Y = a(i - 1).Y
Next i
Timer1.Enabled = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, r As Double
Static b As Double
b = b + 1
Cls
For i = 1 To 100
a(i).X = a(i).X + ((a(i - 1).X - a(i).
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
现在小弟在用vb6.0编写程序，遇到异步的问题，具体如下：
点击按钮A时，调用外部的dll(C++)，此dll是同步返回数据。此时如果远程未响应，我的程序界面就会卡死。因此我想到用timer来实现异步 ，但是不清楚具体的实� ......
