v = Adodc1.Recordset.AbsolutePosition
a = Text4.Text + Right(Text1.Text, 5)
If Text1.Text <> "" Thenv = MsgBox("确定要保存该图片吗?", 48 + 4, "提醒")
If v = vbNo Then
Text1.Text = ""
Call ShowPicture
Exit Sub
End If还是我没找到啊 应该也要有个 dim v dim a ??请教了vbNo?? 是什么意思呢。
a = Text4.Text + Right(Text1.Text, 5)
If Text1.Text <> "" Thenv = MsgBox("确定要保存该图片吗?", 48 + 4, "提醒")
If v = vbNo Then
Text1.Text = ""
Call ShowPicture
Exit Sub
End If还是我没找到啊 应该也要有个 dim v dim a ??请教了vbNo?? 是什么意思呢。
vbno就是message box弹出后用户选择了No
这断程序可以说毫无章法:
1、VB中可以不定义而使用一个变量,所以V和a不用定义,它们都是variant变量。
2、我说它毫无章法是因为:
v = Adodc1.Recordset.AbsolutePosition'这个v返回分页点,没有看见它使用就到下一个v了。
.
.
v = MsgBox("确定要保存该图片吗?", 48 + 4, "提醒")'这个v返回是msgbox的选择按钮,也就是说你选择了是返回vbYes(6),也就是v=6,选择了否返回vbNo(7),也就是v=7。vbNO是VB常量它等于7小心使用变量尽量不用同的变量名是有好处的。
变量不用英语也就罢了,关键是连汉语拼音都不用啊!我的娘啊,直接就a、b、c、s、p...或者双写他们aa、bb、cc、ss、pp...或者在后面加数字a1、b1、c1、s1、p1...
神啊
不能说不好
是过去一些大型项目使用的规范化定义,只不过需要建立个“数据变量字典”之类的文本
因为当时使用的是unix系统 中文输入相当困难 不可能向现在这样轻松的加上中文注释
所以老一辈程序员到了weindow系统 还是沿用了过去习惯的定义方法。
v,a可以不声明,但要提高周密性声明下也无妨
vbNo?你好象是做的VBWindows窗体
那应该是弹出的对话框,选了按键No