| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 593 人关注过本帖
标题:求助帖 程序运行不出来
只看楼主 加入收藏
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
结帖率:28.57%
收藏
已结贴  问题点数:20 回复次数:10 
求助帖 程序运行不出来
本人初学VB6.0  在书上有个例子 可输进去不对 找不出错误 对了也没输入错误 就是运行不出来 高手帮帮忙吧
Private Sub Command1_Click(Index As Integer)
  Select Case Index        '将选择的列表项从list移到list2
    Case 1
      If List1.ListCount = 0 Then
        Exit Sub
      End If
      If List1.ListIndex = -1 Then
        List1.SetFocus
        List1.Selected(0) = True
      End If
      DoEvents       '如果list1中没有选中的列表项则选择第一个列表项
      List2.AddItem List1.Text          '将选择的列表项从list1移到list2;将list1的所有列表项移到list2中
      List1.RemoveItem List1.ListIndex
    Case 2
      If List1.ListCount = 0 Then
        Exit Sub
      If List1.ListIndex = -1 Then
        List1.SetFocus
        List1.Selected(0) = True
      End If
      DoEvents           '如果list1中没有选中的列表项则选择第一个列表项
      For i = (List1.ListCount - 1) To 0 Step -1
        List2.AddItem List1.List(i)
        DoEvents
      Next i              '讲list1中的所有列表项添加到list2中
      List1.Clear         '删除list1中的所有列表项;将选择列表项list2移到list1
    Case 3
      If List2.ListCount = 0 Then
        Exit Sub
      End If
      If List2.ListIndex = -1 Then
        List2.SetFocus
        List2.Selected(0) = True
      End If
      List1.AddItem List2.Text
      List2.RemoveItem List2.ListIndex
    Case 4
      If List2.ListCount = 0 Then
        Exit Sub
      End If
      If List2.ListIndex = -1 Then
        List2.SetFocus
        List2.Selected(0) = True
      End If
      For i = (List2.ListCount - 1) To 0 Step -1
        List1.AddItem List2.List(i)
        DoEvents
      Next i
      List2.Clear
  End Select
End Sub

Private Sub Form_Load()
  List1.AddItem "信息系统概论", 0
  List1.AddItem "组织行为学", 1
  List1.AddItem "会计学", 2
  List1.AddItem "货币银行学", 3
  List1.AddItem "西方经济学", 4
  List1.AddItem "公共关系学", 5
  List1.AddItem "博弈论", 6
End Sub
2012-05-13 20:14
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
收藏
得分:0 
高手帮帮我啊   谢谢啦
2012-05-13 20:14
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:7 
如果代码正确的话

Form1: Control

Command1(1) +  Command1(2) +  Command1(3) +  Command1(4) + List1 + List2

有设置正确吗?

不要選我當版主
2012-05-13 21:04
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
收藏
得分:0 
高手你说的设置是哪个哈   list设置没有动  Command1的也没有动
2012-05-14 15:27
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
收藏
得分:0 
效果图是这样
图片附件: 游客没有浏览图片的权限,请 登录注册
2012-05-14 15:29
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
1、你的 command1 控件的下标是从 0 开始的,还是从 1 开始的??
如果是从 0 开始的 , 这行改成这样的
  Select Case Index + 1      '将选择的列表项从list移到list2   

2、这里 少了一个 End If,需要补上
    Case 2
      If List1.ListCount = 0 Then
        Exit Sub
      If List1.ListIndex = -1 Then

3、存在变量未定义的情况(建议补上)
在 Private Sub Command1_Click(Index As Integer) 后面加一行
Dim i As Long

更正以上三个问题后,测试通过。

授人于鱼,不如授人于渔
早已停用QQ了
2012-05-14 16:54
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
不该断行的地方你断行
程序代码:
Option Explicit

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
    
    Select Case (Index)        '将选择的列表项从list移到list2
        Case 1
            If List1.ListCount = 0 Then
                Exit Sub
            End If
            If List1.ListIndex = -1 Then
                List1.SetFocus
                List1.Selected(0) = True
            End If
            DoEvents       '如果list1中没有选中的列表项则选择第一个列表项
            List2.AddItem List1.Text          '将选择的列表项从list1移到list2;将list1的所有列表项移到list2中
            List1.RemoveItem List1.ListIndex
        Case 2
            If List1.ListCount = 0 Then Exit Sub    '<--------
            If List1.ListIndex = -1 Then
                List1.SetFocus
                List1.Selected(0) = True
            End If
            DoEvents           '如果list1中没有选中的列表项则选择第一个列表项
            For i = (List1.ListCount - 1) To 0 Step -1
                List2.AddItem List1.List(i)
                DoEvents
            Next i              '讲list1中的所有列表项添加到list2中
            List1.Clear         '删除list1中的所有列表项;将选择列表项list2移到list1
        Case 3
            If List2.ListCount = 0 Then
                Exit Sub
            End If
            If List2.ListIndex = -1 Then
                List2.SetFocus
                List2.Selected(0) = True
            End If
            List1.AddItem List2.Text
            List2.RemoveItem List2.ListIndex
        Case 4
            If List2.ListCount = 0 Then
                Exit Sub
            End If
            If List2.ListIndex = -1 Then
                List2.SetFocus
                List2.Selected(0) = True
            End If
            For i = (List2.ListCount - 1) To 0 Step -1
                List1.AddItem List2.List(i)
                DoEvents
            Next i
            List2.Clear
    End Select
    
End Sub

Private Sub Form_Load()
  List1.AddItem "信息系统概论", 0
  List1.AddItem "组织行为学", 1
  List1.AddItem "会计学", 2
  List1.AddItem "货币银行学", 3
  List1.AddItem "西方经济学", 4
  List1.AddItem "公共关系学", 5
  List1.AddItem "博弈论", 6
End Sub

不要選我當版主
2012-05-14 17:13
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
以下是引用风吹过b在2012-5-14 16:54:36的发言:

1、你的 command1 控件的下标是从 0 开始的,还是从 1 开始的??
如果是从 0 开始的 , 这行改成这样的
  Select Case Index + 1      '将选择的列表项从list移到list2   

2、这里 少了一个 End If,需要补上
    Case 2
      If List1.ListCount = 0 Then
        Exit Sub
      If List1.ListIndex = -1 Then

3、存在变量未定义的情况(建议补上)
在 Private Sub Command1_Click(Index As Integer) 后面加一行
Dim i As Long

更正以上三个问题后,测试通过。

无知
2012-05-15 00:28
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
收藏
得分:0 
谢谢各位啦  我先试试
2012-05-15 11:55
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
收藏
得分:0 
前段时间忙着考试 没时间看   请问下下标是什么?  是TabIndex吗?  改了 报错啊
2012-05-22 16:32
快速回复:求助帖 程序运行不出来
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.063334 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved