我做了一个textbox跟25个checkbox 然後设为控制项阵列 每勾一个选项就显示数字 例如勾1就显示1 勾10就显示10 但是每行的总长度不能超过28字元(包含逗号) 显示方式是 1,2,3, ..... 超过第28字元之後就换行 然後接着显示第29个字元 第28个字可以是字元或是逗号 但如果是十位数 像12(十二)是不能被拆开显示的 字元与逗号之间没空格 Dim s1 As Integer Dim s2, s3 As String Dim a() As String Dim i, j, x, y As Integer (以上有些变数好像没用到) For Index = 0 To 24 If chkwafno(Index).Value = 1 Then If Str(Index) <> "" Then s2 = s2 & "," & (Index + 1) Else s2 = (Index + 1) End If End If Next x = Len(s2) ReDim arr1(x) As String For y = 1 To x a(y) = Mid(s2, y, 1) If y < 28 Then s3 = s3 & a(y) Else If (y Mod 28 = 0 Or y Mod 28 = 1) Then If (y Mod 28 = 0 And a(y - 1) = ",") Then s3 = s3 & vbCrLf 'ElseIf (y Mod 28 = 1 And a(y) = ",") Then 's3 = s3 & a(y - 2) '& vbCrLf ElseIf (y Mod 28 = 1 And a(y) = ",") Then s3 = s3 & a(y - 1) & vbCrLf Else If (y Mod 28 = 0 And a(y) <> ",") Then s3 = vbCrLf s3 = s3 & a(y) End If End If s3 = s3 & a(y) End If Next Text1.Text = s3 现在问题是字串长度一直不固定 换行也有问题 发现的BUG1是换行之後第28个字跟第29个字出现的字串不正确 例如勾了1 - 13 显示 1,2, ... 11,12, 133 无论怎麽修改就是抓不准换行之後的第28跟29字元 第2个BUG是如果将25个选项勾满了之後再去取消1 - 9其中两个 这样第一行字串的长度就爆掉了 麻烦请各位大大替小弟看一下好吗 拜托拜托 我想了五天了 >< --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.47.225.241 ※ 编辑: misifit 来自: 114.47.225.241 (11/06 01:02) ※ 编辑: misifit 来自: 114.47.225.241 (11/06 01:18)