|
 | 作者: 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号
论坛: 编程破解
标题: vb的一个简单的问题！！？