happy_sea(开心海) 老师请进

Question

那个帖子不知道为什么不能结贴。
http://community.csdn.net/Expert/topic/5061/5061931.xml?temp=.8816339我想到用 Listbox 控件数组的方法，每一个里只装入30000条，
装满后再动态增加一个Listbox 控件数组，直到装完为止不知可行。
谢谢！

Answer 1

Option ExplicitDim X As Long, Y As LongPrivate Function cMn(ByVal M As Integer, ByVal N As Integer) As String
 Dim A() As String, Temp As String
 Dim I As Long
   
   ReDim A(1 To M)
       
       For I = 1 To M
               A(I) = Format(I, "00  ")
       Next
       
       If M = 3 Then
               If N = 1 Then cMn = "01  " & vbCrLf & "02  " & vbCrLf & "03  "
               If N = 2 Then cMn = "01,02  " & vbCrLf & "01,03  " & vbCrLf & "02,03  "
               If N = 3 Then cMn = "01,02,03  "
       ElseIf M > 3 Then
               If N = 1 Then cMn = Join(A, vbCrLf)
               If N = M Then cMn = Join(A, ",  ")
               If N > 1 And N < M Then
                       Temp = cMn(M - 1, N - 1)
                       Temp = Replace(Temp, vbCrLf, ",  " & Format(M, "00  ") & vbCrLf) & ",  " & Format(M, "00  ")
                       cMn = cMn(M - 1, N) & vbCrLf & Temp
                       DoEvents
               End If
       End IfEnd Function
 
Private Sub Command1_Click()
 Dim S As String, P() As String
 Dim L As Long
        
   S = cMn(33, 6)
   P() = Split(S, vbCrLf)
       
   X = 0
   Y = 0
    For L = 0 To UBound(P)
        P(L) = Replace(P(L), ",  ", "    ")
        X = X + 1
        List1(Y).AddItem P(L)
        If X = 30000 Then
           X = 0
           Y = Y + 1
           Load List1(Y)
           List1(Y).Left = List1(0).Left
           List1(Y).Top = List1(0).Top
           List1(Y).Height = List1(0).Height
           List1(Y).Width = List1(0).Width
        End If
        DoEvents
    Next L
                 
End SubPrivate Sub Form_Unload(Cancel As Integer)
 Dim XY As Long
 
Cancel = -1 For XY = Y To 1 Step -1
    Unload List1(XY)
 NextCancel = 0Unload Me
EndEnd Sub

Answer 2

可别喊老师哈，惶恐得很，其实我也是抱着学习的态度来到CSDN的。
用listbox的控件数组当然可行，而且因为事先就知道了需要4个ListBox，所以直接在窗体上放好就可以了，而无需动态添加。
另外，其实也可以放在一个RichTextBox中的。

Answer 3

这是代码下载地址；
http://my.9612.org/upload/dl.asp?user=guest&type=file&fname=全部号码组合.rar--------------------------------------------------------------------------------
但是在 ListBox 里显示的是这样的，不知应该如何改过来；
01      02      03      04      05      06  
01      02      03      04      05      07  
01      02      03      04      06      07  
01,02,03      05      06      07  
01,02      04      05      06      07  
01,03      04      05      06      07  
-----------------------------------------------------
这是双色球大赢家的全部号码组合的数据格式；
01 02 03 04 05 06
01 02 03 04 05 07
01 02 03 04 05 08
01 02 03 04 05 09
01 02 03 04 05 10
01 02 03 04 05 11
01 02 03 04 05 12
01 02 03 04 05 13
01 02 03 04 05 14
01 02 03 04 05 15
01 02 03 04 05 16
01 02 03 04 05 17
01 02 03 04 05 18
01 02 03 04 05 19
01 02 03 04 05 20
01 02 03 04 05 21
01 02 03 04 05 22
01 02 03 04 05 23
01 02 03 04 05 24
01 02 03 04 05 25
01 02 03 04 05 26
01 02 03 04 05 27
01 02 03 04 05 28
01 02 03 04 05 29
01 02 03 04 05 30
01 02 03 04 05 31
01 02 03 04 05 32
01 02 03 04 05 33
01 02 03 04 06 07
01 02 03 04 06 08
----------------------------------------------------------
装入全部数据是需要能进行快速的运算；

Answer 4

上面的下载文件损坏；这个行；
这是代码下载地址；
http://89sj.sh.pdidc.com/files/200610552766173.rar

Answer 5

这是文件上传网址；
http://89sj.sh.pdidc.com/

Answer 6

你再看看我在你的前一个帖子中的代码：
http://community.csdn.net/Expert/topic/5061/5061931.xml?temp=.3701441
cmn函数中的代码不要改，如果想调整两个数字之间的空格数，只须改
p(l) = Replace(p(l), ",", " ")
这一句即可，比如改成p(l) = Replace(p(l), ",", "    ")

Answer 7

真诚的感谢 happy_sea(开心海) ！！！！！
全部搞定！laviewpbt(人一定要靠自己) ；唉，想中500W啊
真是不好意思，俺想钱想疯了