本文目录一览：
- 1、告诉我一些简单的vb编程代码
- 2、常用vb的编程代码
- 3、VB编程入门
- 4、我要学VB。
告诉我一些简单的vb编程代码
给几个写的模块给你看看
Public Function LoadData(strSQL As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
If Not rst.EOF Then
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
If fld.Name = ctl.Name Then
ctl = rst(fld.Name)
Exit For
End If
Next
End If
Next
End If
rst.Close
Set rst = Nothing
End Function
Public Function AddData(TableName As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
Set rst = CurrentDb.OpenRecordset(TableName, , dbReadOnly)
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
If fld.Name = ctl.Name Then
ctl = fld.DefaultValue
Exit For
End If
Next
End If
Next
rst.Close
Set rst = Nothing
End Function
Public Function SaveData(strSQL As String)
' On Error GoTo Err_SaveData
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示!!!") = vbOK Then
If AddTag = True Then
Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
rst.AddNew
Else
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.Edit
End If
For Each ctl In ctlFormName
'Debug.Print ctl.Name
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
'Debug.Print fld.Name
If fld.Name = ctl.Name Then
rst(fld.Name) = ctl
Exit For
End If
Next
End If
Next
rst.Update
rst.Close
Set rst = Nothing
MsgBox "数据保存成功!", vbInformation, "提示!!!"
End If
Exit_SaveData:
Set rst = Nothing
Exit Function
Err_SaveData:
If Err = 3022 Then
MsgBox "同一节点下不能存在相同的子节点，请修改后再点保存！", vbCritical, "警告!!!"
Else
MsgBox Err.Source " #" Err vbCrLf vbCrLf Err.Description, vbCritical
On Error Resume Next
End If
Resume Exit_SaveData
End Function
Public Function DelSource(Form As Form)
Dim ctl As Control
Form.RecordSource = ""
For Each ctl In Form
If Not (TypeOf ctl Is Label) Then
ctl.ControlSource = ""
End If
Next
End Function
Public Function DelData(strSQL As String)
Dim rst As New ADODB.Recordset
Dim i As Long
If MsgBox("你确定要删除当前记录吗？", vbOKCancel + vbQuestion, "删除!!!") = vbOK Then
' Debug.Print strSQL
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rst.RecordCount 0 Then
For i = 1 To rst.RecordCount
rst.Delete
rst.Update
rst.MoveNext
Next
End If
rst.Close
Set rst = Nothing
End If
End Function
常用vb的编程代码
先在程序中加一个Label,名字应该符合VB程序控件命名规范:
lbl名称
再加一个Timer控件,名字也要符合命名规范
在窗体代码对话框中打入
Private Sub Form_Load()
On Error Resume Next
Me.Font = "Arial"
Me.FontSize = 24
Me.FontBold = True
Timer控件名.Enabled = True
Timer控件名.Interval = 1000
End Sub
'下列函数只能二选其一
'是时间显示
Private Sub Timer控件名_Timer()
On Error Resume Next
Label控件名.Caption = Time
End Sub
'是日期与时间显示
Private Sub Timer控件名_Timer()
On Error Resume Next
Label控件名.Caption = Now
End Sub
VB编程入门
至于VB语言.
你可以先从编些简单的解析数学的程序
例如加减乘除方程,
教你个简单的小程序!
一、单击“求解一元二次方程”的按钮后，输入方程的系数后a、b、c，输出方程解的情况。程序界面如下：
vb代码如下：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("请输入一元二次方程的系数a")
b = InputBox("请输入一元二次方程的系数b")
c = InputBox("请输入一元二次方程的系数c")
If a = 0 Then
a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a")
End If
d = b * b - 4 * a * c
If d = 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x1
Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2
Else
Print "此方程在实数范围内无解"
End If
End Sub
二、输入方程的三个系数后，单击“求一元二次方程”按钮后，输出方程解的情况。程序界面如下：
vb代码如下：
一、按钮“求一元二次方程”的vb代码如下：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If d = 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = X1
Label5.Caption = X2
Else
Label4.Caption = "在实数范围内无解"
End If
End Sub
二、按钮“重置”的vb代码如下：
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub
三、按钮“退出”的vb代码如下：
Private Sub Command3_Click()
End
End Sub
特殊例子（指定系数c的值为5）：
在窗体“Form1.frm”的“Command1_click“事件中编写代码（请不要随便更改其它代码），使之能够实现如下功能：在Text1输入整数a、、Text2输入b，判断一元二次方程ax2+bx+5=0有无实数根。并在Text3文本框中显示判断结果，即有实数根则在Text3文本框中输出“有”，否则输出“无”。
VB程序代码如下：
Private Sub Command1_Click()
dim a as single,b as single
a = Text1.Text
b = Text2.Text
d = b * b - 4 * a * 5
If d = 0 Then
Text3.Text="有"
Else
Text3.Text="无"
End If
End Sub
如果不用dim定义变量，则上面的输入部分语句改为下面的语句，这样可以把字符变量类型转化为数值类型：
a =val(Text1.Text)
b =val(Text2.Text)
我要学VB。
VB编程工具
Visual Basic 6.0简体中文版 Visual Basic 6.0绿色精简版 MSDN VB6精简版
VB入门教程
VB程序设计系列教程 VB 趣味例程 VB6实例教程
中文VB6傻瓜书 VB最简单入门教程 VB 6.0中文版范例入门与提高
VB初哥教学 VB编程标准 看实例学VB 6.0
VB.NET学习教程 VB.NET控件时尚编程百例 VB 中文版实用培训教程
VB经典编程 VB6循序渐进教程 VB 6.0 中文版教程
VB_NET实例解析与应用编程 VB.NET中高级篇 VB精彩编程200例
VB超级教程 VB API函数大全 Visual Basic 6.0实例教程
VB 6.0数据库开发学习教程 VB.NET数据库编程从入门到精通 VB6.0入门提高
21天学通Visual Basic.NET Visual Basic.NET实用全书 Visual Basic.NET学习范本
Visual Basic.NET培训教程 Visual Basic实用编程标准 VB学习教程
VB的控件的学习
VB编程开发技术
COM+与VB6分布式应用程序设计 Visual Basic 插件开发人员指南 VB.NET高级开发指南
VB.Net高级编程 VB.NET 面向对象可重用组件开发 Visual Basic精彩编程200例
VB.Net多媒体编程 VB.NET高级程序员指南 Visual Basic.NET GDI+技术教程
VB.Net控件应用编程实例教程 VB.NET XML Web开发人员指南 VB和SQL Server编程指南
用VB.NET开始Asp.NET1.1的开发 VB 游戏编程学习系统 Visual Basic.NET 编码技术
VB.NET面向对象CLASS的实现 VB.NET应用集锦例程 VB.NET实例解析应用编程
Visual Basic.Net与动态网页技术 VB6开发宝典 VB系统资源
VB 例程序讲解 VB.NET数据库开发实例 VB.NET与数据库开发教程
VB语言程序设计 VB.NET面向对象的实现 Visual Basic 6.0应用编程150例
Visual Basic.NET项目开发实践 Visual Basic 6.0 开发宝典 Visual Basic 6.0网络编程
Visual Basic6.0企业级应用程序开发 Visual Basic6.0数据库程序设计 Visual Basic .NET程序设计基础
Visual Basic.NET数据库开发教程 Visual Basic 6 循序渐进教程 VB游戏编程21天自学通
Visual Basic.NET进销存程序设计 Visual Basic程序设计导学 Visual Basic.NET技术内幕
VB.NET和SOL Server 2000高级编程 利用VB设计打印复杂报表 Visual Basic.NET编程基础
Visual Basic6.0元件程序开发指南 VB.Net网络数据库整合应用 Visual Basic或C#创建WS
Visual Basic.NET程序设计与应用
VB开发手册与指南
VB.Net与ASP.Net代码手册 VB 6.0中文版语言参考手册 VB编程经验手册
VB API 函数使用手册 VBA高级开发手册 VB速查手册之技巧篇
VB.NET Remoting 技术手册 VB.Net调试技术手册 Visual Basic 6.0 组件工具指南
VB.Net字符串和正则表达式参考手册 VBScript语言参考 VB6程序设计参考手册
VB技巧问答10000例 VB5 开发WEB数据库指南 VBscript英文帮助手册
VB6控件参考手册 VB6语言参考手册 VB6程序员指南
VB5开发WEB数据库指南 VBA 高级开发指南 VB中文版实用参考手册
VB编程经验手册 VB6组件工具指南 Visual Basic API函数参考手册
Visual Basic 6.0实用参考手册 Vsual Basic 6.0 控件参考手册 Visual Basic.NET类设计手册
Visual Basic.NET 语言参考手册 Visual Basic.net 反射参考手册 Visual Basic.net线程参考手册
Visual Basic编程经验手册 Visual Basic.Net专家指南 Visuai Basic.NET编程培训教程
VB速查手册之技巧篇 VBscript英文帮助手册
VB其它相关资源
VBSCRIPT函数方法速查 Visual Basic 第三方控件大全 Visual Basic 语言参考-函数速查
Access 2003 VBA 程序员参考书 VB、C快速进阶 V3.0 VB系统资源
VB Script语言参考 VB编程技巧集 VBScript 教程及语言参考
VBScript与JScript实例教程 VB精华文摘 Visual Basic 术语解释
VB常用函数 VBScript学习 VB学习一点通
VB Script基础 VBScript 帮助手册 Visual Basic 常用数值算法集
VB视频相关
VB编程与应用(电大)29讲 编程经典Visual Basic 用多媒体学Visual Basic
电子科大--- VB程序设计 VB.net多媒体教学