vb编程代码大全含注解,vb的注释语句
VB代码求注释
Option Explicit '如果变量不被定义，在该模块中禁止使用！
Dim COL As Integer, CTCO As Integer '定义变量
Dim CTS As Integer '定义变量
'可以这样写: dim COL ,CTCO ,CTS as integer
Private Sub Form_Activate() '当窗口激活时
SUCCESS = sndPlaySound(App.Path + "\sound\start.WAV", H1) '把 SUCCESS 作为返回值 ，并执行 sndPlaySound 子程序或自定义函数
End Sub
Private Sub Form_Load() '当窗口读取时
Load FrmSna '读取FRMSNA
CTS = 1 '赋值1到CTS
FrmSna.Timer1.Enabled = False '禁用窗体frmSNA的TIMER1
Label1.Top = Picture1.Top + Picture1.Height '标签LABEL1与窗体顶的距离 = PICTURE1的顶的距离+ PICTURE1的高度
CTCO = 2 '把2赋值到CTCP
COL = 0 '同理
Me.Picture = LoadPicture("") '设置窗体的图像
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '当鼠标在窗体上移动时
Shape1.Visible = False 'shape1不可见
End Sub
Private Sub Label1_Click() '当鼠标点击label1的时候
Timer1.Enabled = False '禁用timer1
Picture1.Visible = False '同理,禁用Picture1
End Sub
Private Sub OP1_Click() '当鼠标点击OP1的时候
Me.Hide '隐藏"我"
FrmSna.Timer1.Enabled = True 'frmSNA的timer1控件不可用
FrmSna.Show 'frmSna显示
End Sub
Private Sub OP1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '当鼠标在OP1上移动时
Shape1.Visible = True 'shape1可见
Shape1.Top = 960 'shape1与顶的距离为960
End Sub
Private Sub OP2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '当鼠标在OP2上移动时
Shape1.Visible = True 'shape1可见
Shape1.Top = 1440 'shape1与顶的距离为1440
End Sub
Private Sub OP3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '当鼠标在OP3上移动时
Shape1.Visible = True 'shape1可见
Shape1.Top = 1920 'shape1与顶的距离为1920
End Sub
Private Sub OP2_Click() '单机OP2的时候
Label1.Top = Picture1.Top + Picture1.Height 'LABEL1与窗体顶的距离 = PICTURE1的顶的距离+ PICTURE1的高度
Picture1.Visible = True 'PICTURE1为可见
Timer1.Enabled = True 'timer1为可见
Label1.Caption = Space(10) "贪吃蛇" Space(16) "贪吃蛇小游戏!" Chr(13) "操作说明：方向键控制方向、Escape暂停" Chr(13) "ZYX" 'label1的caption属性值为 = ..
'space(10) 、Space(16)为输出空格。chr(13)也表空格
'
'
End Sub
Private Sub Picture1_Click() '当点击PCITURE1时
Timer1.Enabled = False 'Timer1不可用
Picture1.Visible = False 'picture1不可见
End Sub
Private Sub Timer1_Timer() '触发timer1 执行的代码
Label1.Top = Label1.Top - 10 'label1往下移十个单位
If S.Left + S.Width Me.ScaleLeft + Me.Width Then CTS = 2 '如果s与顶的距离+S的宽度大于 "我"窗体的左水平坐标+"我"的宽则CTS =2
If S.Left Me.ScaleLeft Then CTS = 1 '如果s与容器左边的距离小于"我"的左水平坐标,则CTS =1
If CTS = 1 Then S.Left = S.Left + 50 '如果CTS =1则S向左移50个单位
If CTS = 2 Then S.Left = S.Left - 50 '如果CTS =2则S向右移50个单位
End Sub
Private Sub Timer2_Timer() '当触发Timer2的时候
'标题的淡出淡入
If CTCO = 1 Then COL = COL - 5 '如果CTCO=1 则COL减5
If CTCO = 2 Then COL = COL + 5 '如果CTCO=2 则COL加5
If COL 240 Then CTCO = 1 '如果COL大于240 CTCO则等于1
If COL 10 Then CTCO = 2 '如果COL小于10 CTCO则等于2
TXT.ForeColor = RGB(COL, COL, COL) 'txt的文本色或者图片背景色为RGB(col,col,col)
End Sub
VB代码解释
Dim income As Single '定义一个变量，用来统计租片费
Adodc1.RecordSource = "lendrecord" '指定一张表
Adodc1.Refresh '刷新
Adodc1.Recordset.MoveFirst '将指针移到Recordset首条记录
If Option10.Value = True Then '如果Option10被选定统计某一天租片总费用
Do While Not Adodc1.Recordset.EOF '循环,一直到Recordset记录最后一行
If Adodc1.Recordset.Fields("租片日期") = MonthView2.Value Then '如果日期=MonthView2指定日期则相加
income = income + Adodc1.Recordset.Fields("租片收费")
End If
Adodc1.Recordset.MoveNext '移到下一行
Loop
Label16.Caption = MonthView2.Value "总收入为" income "元" '将指定日期费用汇总显示在Label16标签上
ElseIf Option11.Value = True Then '按月份统计 下同
Do While Not Adodc1.Recordset.EOF
If Year(Adodc1.Recordset.Fields("租片日期")) = Year(MonthView2.Value) And Month(Adodc1.Recordset.Fields("租片日期")) = Month(MonthView2.Value) Then
income = income + Adodc1.Recordset.Fields("租片收费")
End If
Adodc1.Recordset.MoveNext
Loop
Label16.Caption = Year(MonthView2.Value) "年" Month(MonthView2.Value) "月总收为" income "元"
ElseIf Option12.Value = True Then '按年份统计
Do While Not Adodc1.Recordset.EOF
If Year(Adodc1.Recordset.Fields("租片日期")) = Year(MonthView2.Value) Then
income = income + Adodc1.Recordset.Fields("租片收费")
End If
Adodc1.Recordset.MoveNext
Loop
Label16.Caption = Year(MonthView2.Value) "年总收为" income "元"
End If
搞不懂，为什么不用SQL语句统计，而用这样费时的老方法统计呢？
VB常用代码
form
窗体的意思，像form和command这样的单词是控件的名称，名称是控件的属性之一，可以在屏幕右侧的属性列表中加以修改，找到name这一行，在右侧键入自己想要的名字即可，不必记忆，至于LostFocus..MouseUp是一些事件的名称，有必要记忆。下面写一些常用的。
lostfocus失去焦点
getfocus得到焦点
load装载
unload卸载
mousedown按下鼠标
mouseup松开鼠标
mousemove移动鼠标
dragover拖拽鼠标
dragdrop拖拽后松开鼠标
click单击
dblclick双击
keydown键盘按下
keyup键盘松开
keypress按键盘顶敞侈缎侬等畴劝川滑
change变换
key的那三个的区别你以后会学的。
建议你去买本书看看吧
那个比较专业一点
vb代码解释
朋友，你可以确定这段代码是VB的吗？
我可以肯定，这不是VB代码。
这个应该是Windows脚本。
我也不懂，不过跟VBS脚本有点相似，试着解释一下。不保证正确。希望能帮到你。
WScript 对象,提供对 Windows 脚本宿主对象模型根对象的访问。
说明：WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象。它从不需要在调用其属性和方法之前进行实例化，并且始终可在任何脚本文件中使用。
Option explicit 《强制显式声明模块中的所有变量》
dim wshShell 《定义wshShell变量》
set wshShell=Wscript.CreateObject("Wscript.Shell") 《将创建的对象的编程标识符Wscript.Shell赋值给wshShell变量》
wshShell.run"runas /noprofile /user:noe\_mamin ""c:\winnt\system32\net.exe localgroup administrators noe\bepacke_c_be /add"""
《执行命令（参数太多，不太懂了）》
WScript.Sleep 100 《暂停100ms》
'wshShell.AppActivate "Runas"
'Replace the string -- yourpassword~ below with
'the password used on your system. Include tilde "~"
wshShell.Sendkeys "mamin009~" 《进行模拟键盘输入》
Wscript.Quit 《退出Wscript脚本》