我做了一個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)