VB中如何让选择的多个复选框在一个文本框中分行显示?

有14个复选框,选择其中几个,让所选的复选框的Caption属性在一个Text中显示出来,没选的则不在文本框中出现。并且,文本框中,所选的每一个复选框的Caption属性... 有14个复选框,选择其中几个,让所选的复选框的Caption属性在一个Text中显示出来,没选的则不在文本框中出现。并且,文本框中,所选的每一个复选框的Caption属性占一行。
我是新手,查阅了以前类似的提问,可答案不能用,找了一晚上了没找到合适的答案,望高手把代码写详细些,送20分
展开
 我来答
做一个快乐的茶农
高粉答主

2019-07-03 · 每个回答都超有意思的
知道答主
回答量:1396
采纳率:100%
帮助的人:35万
展开全部

1、打开VB软件,在窗体上面添加一个文本框。

2、点击文本框,在右侧的属性窗口中,设置名称和数值,将文本内容清空。

3、在窗体上面,再添加一个水平滚动条。

4、点击水平滚动条,设置名称和数值,将Min设置为0,Max设置为100。(文本框中的输入的数范围为0-100)。将largechange设置为5,Smallchange设置为2。

5、双击文本框,弹出页面,开始编辑代码。

6、运行程序,在文本框中输入不同的数值(0-100以内的数值),观察滚动条的滚动框位置。即可在一个文本框通过滚动条分行显示。

sbj518
推荐于2017-09-30 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5299万
展开全部

1、打开Visual Basic 6.0软件,新建一个标准exe工程,在新建的工程窗体设计器上添加一个有10个元素的Check数组控件和一个Text控件;

2、设置Text1的Multiline属性为true;

3、窗体上单击右键,选择查看代码,代码编辑如下:

Private Sub Check1_Click(Index As Integer)
    Dim i As Integer
    Dim str As String
    str = ""
    For i = 0 To 9
        If Check1(i).Value = 1 Then
            str = str & Check1(i).Caption & vbCrLf
        End If
    Next i
    Text1.Text = str
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
    Check1(i).Caption = i
Next i
End Sub

4、单击运行按钮,或者按下F5按钮,运行该工程,勾选Check控件,可以使多选框在文本框中分行显示。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
青松踏雪
推荐于2017-10-06 · 超过23用户采纳过TA的回答
知道答主
回答量:99
采纳率:0%
帮助的人:72.4万
展开全部
不好意思,楼上代码没有问题,可是功能不能按提问者实现。
这个题的考点在“所选的每一个复选框的Caption属性占一行”
所以,首先需将文本框的MultiLine属性设为True,如果需加滚动条,可以设置文框的ScrollBars属性,之后再创建复选框数组,最后代码:
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then text1 = text1 & Check1(Index).Caption & vbCrLf
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
在世贸天阶灌篮的高飞燕草
2009-07-17 · TA获得超过2378个赞
知道大有可为答主
回答量:2070
采纳率:0%
帮助的人:2023万
展开全部
添加复选框数组(index 0-13)
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then text1 = text1 & Check1(Index).Caption & vbCrLf
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式