189 8069 5689
具体的步骤要看你有没有其他的软件编程基础了，C，C#，VB6.0之类的。。。学程序最重要的是学习编程思想。。。如果有一定的编程基础，能读懂程序，那就找几十个编程实例看看，然后自己找本vb2013的教程大体翻翻就行，现用现查，自己编过三个软件或者大程序之后就熟悉了。。。
创新互联致力于成都网站建设、成都网站制作,成都网站设计,集团网站建设等服务标准化，推过标准化降低中小企业的建站的成本，并持续提升建站的定制化服务水平进行质量交付，让企业网站从市场竞争中脱颖而出。 选择创新互联，就选择了安全、稳定、美观的网站建设服务！
如果没有任何编程基础，找本教材，教材内容一定要有以下几个内容的：数据类型，内置函数，自定义函数，数组与动态数组，常用控件及其属性，菜单栏，事件，控制结构（循环，判断等）这些内容，边看书边自己做书上的案例。先看案例，学案例，然后根据案例要求，尝试自己编写。最后弄明白这些了，再回过头来看我上面那一段说的，找几十个编程实例看看，学习一下常用的编程思路。当然这些思路都是比较基础的，比如排序，查找等，至于后面更新的思想，就要靠你自己去思索或者与别人交流了。
我是VB.Net 2010，你看看能行不。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循环语句动态加入控件数组。
Dim FirstTextBox As New TextBox
'定义文本框对象
Me.Controls.Add(FirstTextBox)
'将一个文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'将文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默认文本。
Next
End Sub
End Class
Imports System.Runtime.InteropServices
DllImport("user32.dll")
Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean End Function
DllImport("user32.dll")
Private Shared Sub mouse_event(ByVal flags As MouseEventFlag, ByVal dx As Integer, ByVal dy As Integer, ByVal data As UInteger, ByVal extraInfo As UIntPtr) End Sub
Flags()
Private Enum MouseEventFlag As UInteger
Move = H1
LeftDown = H2
LeftUp = H4
RightDown = H8
RightUp = H10
MiddleDown = H20
MiddleUp = H40
XDown = H80
XUp = H100
Wheel = H800
VirtualDesk = H4000
Absolute = H8000
End Enum
SetCursorPos(intX, intY)mouse_event(MouseEventFlag.LeftDown, intX, intY, 0, UIntPtr.Zero)
mouse_event(MouseEventFlag.LeftUp, intX, intY, 0, UIntPtr.Zero)
添加一个模块，
然后把它复制粘贴到模块里，
然后在窗体级调用。