论坛: 编程破解 标题: vb的一个简单的问题!!? 复制本贴地址    
作者: zhb7769 [zhb7769]    论坛用户   登录
Dim r As String
r = InputBox("输入数据", "输入")
If r = "一二三" Then MsgBox "输入正确", "111" Else: MsgBox "输入错误"
上面这些代码经过调试,那个inputbox里输入一二三的时候,会出现我看不懂的几个文字出现,这是怎么回事,还有,那个if语句不能换行,一换行就出错,说是else没有IF语句,我用的是VB6.0的,请知道的帮我一下

地主 发表时间: 04-01-13 18:48

回复: zhb7769 [zhb7769]   论坛用户   登录
帮忙人去哪了?顶

B1层 发表时间: 04-01-13 21:53

回复: wuhuan [wuhuan]   论坛用户   登录
Dim r As String
r = InputBox("输入数据", "输入")
If r = "一二三" Then
MsgBox "输入正确", "111"
Else
MsgBox "输入错误"
End If
VB6。0 WIN98下通过 VB只能这种格式


B2层 发表时间: 04-01-13 22:45

回复: jhkdiy [jhkdiy]   版主   登录
基础

[此贴被 jhkdiy(jhkdiy) 在 01月14日01时25分 编辑过]

B3层 发表时间: 04-01-14 01:21

回复: 286 [unique]   版主   登录
楼主,你的程序没有错呀.
我运行一切正常,
不过建议再写程序向玉蝴蝶那样,规范些,对自己绝对是好习惯.

B4层 发表时间: 04-01-14 09:11

回复: zhb7769 [zhb7769]   论坛用户   登录
我知道了,我就是因为写得不规范啊,呵呵,已经解决了,谢谢三楼的兄弟了,也谢谢286兄了,现在我又有了一个问题(和上面的没关系的):
Option Explicit

Private Sub Command1_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dim r As VbMsgBoxResult
On Error GoTo aa
Dir1.Path = Drive1.Drive
Exit Sub
aa:
  If Err.Number = 68 Then
    r = MsgBox("请插入磁盘!", vbRetryCancel + vbCritical, "出错了")
    If r = vbRetry Then
        Resume
    Else
        Drive1.Drive = "d:"
        Resume Next
    End If
End If
  End Sub

Private Sub File1_Click()
If option2.Value = True Then Exit Sub
Dim x As String
If Right(Dir1.Path, 1) = "\" Then
  x = Dir1.Path + File1.FileName
Else
  x = Dir1.Path + "\" + File1.FileName
End If
  Image1.Picture = LoadPicture(x)
  Text1.Text = File1.FileName
End Sub

Private Sub File1_DblClick()
If Option1.Value = True Then Exit Sub
Dim x As String
If Right(Dir1.Path, 1) = "\" Then
  x = Dir1.Path + File1.FileName
Else
  x = Dir1.Path + "\" + File1.FileName
End If
  Image1.Picture = LoadPicture(x)
  Text1.Text = File1.FileName
End Sub


为什么Private Sub File1_Click()
If option2.Value = True Then Exit Sub
Dim x As String
If Right(Dir1.Path, 1) = "\" Then
  x = Dir1.Path + File1.FileName
Else
  x = Dir1.Path + "\" + File1.FileName
End If
  Image1.Picture = LoadPicture(x)
  Text1.Text = File1.FileName
End Sub
里的option2.value会出错,说是变量未定义,奇怪?
因为我不知道怎么上传图片!不好意思,能看懂的解释一下啦
这个是我自己做的图片浏览工具


[此贴被 zhb7769(zhb7769) 在 01月14日14时18分 编辑过]

B5层 发表时间: 04-01-14 14:17

回复: jwm3336 [jwm3336]   论坛用户   登录
那你看看那个if有没有配对?
就是有有if,是不是应该有endif呢?

B6层 发表时间: 04-01-14 16:54

回复: zhb7769 [zhb7769]   论坛用户   登录
我的第一个问题已经解决了,我现在要解决的是那个图片浏览器中的代码啊,就是我出错了,变量未定义,我不能理解,如果谁有条件的请帮我测试一下,因为这里上传文件最大也只有500KB,我的那个抓下来的有556KB,所以没有办法上传啊!!,第一个问题已经得到解决,请大家帮我解决一下第二个问题!!在这先谢谢了

B7层 发表时间: 04-01-14 18:50

回复: wuhuan [wuhuan]   论坛用户   登录
我用你的代码调试怎么没有问题啊不过
Private Sub File1_Click()
If option2.Value = True Then
Exit Sub
End If '应该得这样
你说的Option2.Value没定义是不是你根本没有添加那个控件啊 你看下你那控件名称是否为Option2 不过我看了半天还没弄明白Option1,Option2有什么实际作用




B8层 发表时间: 04-01-14 19:50

回复: zhb7769 [zhb7769]   论坛用户   登录
我添加了,要不是这里不能有图片上传工能,我早上传 了,那你也不会这样说了,看了代码的意思就是说一个是通过单击来浏览图片的,一个是通过双击来浏览图片的,option就是那个单选按钮的名字啊!!?

B9层 发表时间: 04-01-14 20:26

回复: zhb7769 [zhb7769]   论坛用户   登录
If Option2.Value = True Then Exit Sub
是用来判断第一个单先按钮有没有选中,如果选中,就跳出啊!


[此贴被 zhb7769(zhb7769) 在 01月14日20时31分 编辑过]

B10层 发表时间: 04-01-14 20:30

回复: zhb7769 [zhb7769]   论坛用户   登录
问题已经得到解决了,原来,我把option1改成option1(0)就行了,option2也改一下就行了,可是我不知道为什么要改!

B11层 发表时间: 04-01-14 22:15

回复: crs502 [crs502]   论坛用户   登录
这应该是你的加的控件不是从工具箱内点加进去的~。
你是是用复制的吧(想想你是不是做过这个操作)。
这样就会产生控件数组(这玩意就像数组,有时方便极了:P)
名字就会如:
option1(0)
option1(1)
option1(2)
。。。
这样才可以正常调用!

B12层 发表时间: 04-01-15 02:16

回复: zhb7769 [zhb7769]   论坛用户   登录
我是复制过去的,一个,你的意思是不是说,如果不是复制的,就不会产生这样的错误?

B13层 发表时间: 04-01-15 11:46

回复: windflower [windflower]   论坛用户   登录
你这是选择了控件数组。
当然要个下标了。

B14层 发表时间: 04-01-15 15:36

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号