求一个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).
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
