vb編程如何在label中顯示checkbox數組中的多個選中內容

再添加壹個命令按鈕 Command1，下面是點擊按鈕後，在Label1中顯示CheckBox控件數組選中的內容

Private Sub Command1_Click()

Dim i As Integer

Dim strText As String

For i = 0 To Check1.UBound

If Check1(i).Value <> 0 Then

strText = strText & Check1(i).Caption & vbCrLf 'vbCrLf 是回車

End If

Next

Label1.Caption = strText

End Sub

上一篇:如何將Vmware Esxi下虛擬機數據遷移到另外壹個ESXi主機

下一篇:mastercam2020怎樣設置驗證起差顏色