[VB6 ] 勾選CheckBox然後顯示浮動字串
我做了一個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)
推
11/06 15:19, , 1F
11/06 15:19, 1F