⑴ VB里的“Private Sub Command1_Click()”是什么意思
意思就是:当你用鼠标点击名为Command1的按钮时,就执行这一行下面的多行代码,直到遇到End Sub结束。
那个下划线(也就是“横”)左边的是控件名(Command1),右边的是事件(Click),括号里包含的是参数(空白就表示没有参数)。
常用的vb语言代码
abs(num): 返回绝对值
sgn(num): num〉0 1; num=0 0; num〈0 -1;判断数值正负
hex(num): 返回十六进制值 直接表示:&Hxx 最大8位
oct(num): 返回八进制值 直接表示:&Oxx 最大8位
sqr(num): 返回平方根 num〉0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位
mid(str,起始字符,[读取长度]):截取字符串中间子字符串
left(str,nlen):从左边起截取nlen长度子字符串
right(str,nlen):从右边起截取nlen长度子字符串
InStr([起始字符,]str,查找字符串[,比较方法]):检测是否包含子字符串 可选参数需同时选 返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法]):反向检测是否包含子字符串 返回起始位置 space(n):构造n个空格的字符串
string(n,str):构造由n个str第一个字符组成的字符串 StrReverse(str):反转字符串
split(str,分割字符串[,次数][,比较方法]):以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选
⑵ Visual Basic 6.0的命令按钮能接收哪些事件,最常编写的命令按钮事件过程是什么
BeforeDragOver 控件拖放操作事件
BeforeDropOrPaste 控件添加事件
Change 控件更改事件
Click 控件单击事件
DblClick 控件双击事件
DropButtonClick 下拉列表事件
Error 控件错误事件
GotPocus 控件获取焦点事件
KeyDown 键盘按下触发事件
KeyPress ANSII键触发事件
KeyUp 键盘松开触发事件
LostFocus 控件失去焦点事件
MouseMove 鼠标按下事件
MouseUp 鼠标松开事件
最常编写的命令按钮事件过程是Click 控件单击事件
⑶ 在VFP中,当用户使用鼠标单击命令按钮时,会触发命令按钮的什么事件
按下鼠标时发生MouseDown事件
释放鼠标键时发生MouseUp事件
按下并释放鼠标按钮时发生Click事件
执行顺序为MouseDown-->MouseUp-->Click
⑷ 如何在Excel中加入一个命令按钮,并执行单击,双击事件
'单击事件:
PrivateSubCommandButton1_Click()
'执行代码
EndSub
'双击事件:
PrivateSubCommandButton1_DblClick(ByValCancelAsMSForms.ReturnBoolean)
'执行代码
EndSub
⑸ vb程序设计 计算器
先建立一个新的项目文件,里面包含一个Form1的窗体。然后,添加控件,包括一个Text框(Text1),和17个按钮,这17个按钮使用的名称都是Command1,只是Index属性不同,就好象一个数组,创立一组按钮的方法是,先在窗体上建立一个按钮(Command1),然后在Command1上击鼠标右键,选择复制(Copy),然后在窗体上任意部位击右键,选择粘贴(Paste),系统会提示是否创建控件组,选择“是”,重复上面步骤,直至创立17个按钮为止。各控件属性如下表:
Text1:
BackColor=&H00C0FFFF&
Text=“0.”
Command1:
Index0――16
Index0――9Caption=“0”-“9”
Index10Caption=“.”
Index11Caption=“=”
Index12Caption=“+”
Index13Caption=“-”
Index14Caption=“×”
Index15Caption=“÷”
Index16Caption=“清除”
程序如下:
DimNum1,Num2AsSingle
DimStrNum1,StrNum2AsString
DimFirstNumAsBoolean'判断是否是数字开头
DimPointFlagAsBoolean'判断是否已有小数点
DimRunsignAsInteger'储存运算符号
DimSignFlagAsBoolean'判断是否已有运算符号
SubClearData()
Num1=0
Num2=0
StrNum1=""
StrNum2=""
FirstNum=True
PointFlag=False
Runsign=0
SignFlag=False
Text1.Text="0."
EndSub
SubRun()
Num1=Val(StrNum2)
Num2=Val(StrNum1)
SelectCaseRunsign
Case1
equal=Num1+Num2
Case2
equal=Num1-Num2
Case3
equal=Num1*Num2
Case4
equal=Num1/Num2
EndSelect
StrNum2=Str(equal)
StrNum1=StrNum2
Text1.Text=StrNum2
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0To9
IfFirstNumThen
StrNum1=Str(Index)
FirstNum=False
Else
StrNum1=StrNum1+Str(Index)
EndIf
Text1.Text=StrNum1
Case10
IfNotPointFlagThen
IfFirstNumThen
StrNum1="0."
FirstNum=False
Else
StrNum1=StrNum1+"."
EndIf
Else
ExitSub
EndIf
PointFlag=True
Text1.Text=StrNum1
Case12To15
FirstNum=True
PointFlag=False
'还原标记值
IfSignFlagThen
CallRun
Else
SignFlag=True
StrNum2=StrNum1
StrNum1=""
EndIf
Runsign=Index-11
Case11
IfNotSignFlagThen
Text1.Text=StrNum1
equal=Val(StrNum1)
FirstNum=True
PointFlag=False
Else
CallRun
SignFlag=False
EndIf
CaseElse
CallClearData
EndSelect
EndSub
PrivateSubForm_Load()
CallClearData
EndSub
⑹ 窗体Form1上有一个名称为command1的命令按钮,对应的窗体单击事件的事件...
默认设定吧。
⑺ 在visual foxpro表单中,当用户使用鼠标单击命令按钮时,会触发命令按钮的是什么事件
首先触发 gotfocus事件
然后是click事件