vb复选框数组怎么设置
答:数组在VB.NET中分为两种类型:定长数组和动态数组。定长数组在编译时就确定了其大小,而动态数组的大小可以在运行时动态改变。例如,你可以通过For Each循环在VB 6.0中遍历一个数组,或者使用For循环和数组的Length属性在VB.NET中逐个访问数组元素。下面是一个直观的示例,展示了如何在VB.NET中定义和...
答:建立一个Label()数组,比如是Label1()吧,在程序上建立一个Label1然后把它复制再粘贴就会提示是否建立数组,就点是,我建立了一个Label1数组,该数组中包含3个Label控件,按你说的代码是这样写的 第一种 用 Select Case 代码如下 Private Sub Label1_Click(Index As Integer)Select Case Index C...
答:在窗体上放一个复选框check1,把Index的值设置为0 动态加载:Dim i As Integer Dim num As Integer num = 10 'Num为你要加载的数 For i = 1 To num - 1 Load Me.Check1(i)Check1(i).Left = Check1(0).Left + Check1(0).Width * i Check1(i).Top = Check1(0).Top Chec...
答:If TypeName(obj) = "CheckBox" Then ' Debug.Print obj.Value If obj.Value = 1 Then xCount = xCount + 1 If xCount > 2 Then MsgBox "最多选两项"'在哪个check中检查设置哪个check为0 'heck4.Value = 0 End If End If End If Next 其实我比较建议用数组来实现。。。
答:Option Explicit Dim intCheck As Integer Private Sub Check1_Click(Index As Integer)If Check1(Index).Value = 1 Then If intCheck >= 5 Then MsgBox "已经选了5个了!", vbYesNo, "系统提示"Check1(Index).Value = 0 Exit Sub Else intCheck = intCheck + 1 End If Else intCheck ...
答:可以用复选框的Tag属性来储存这些数值,数字之间用空格或逗号隔开,使用的时候可以用Split函数分割为数组,也可以直接使用字符串。还有一种方法是把数字存到一个数组中,用法差不多。
答:Select Case来判断的应该是点击的Check的序号index,而不是Check(index)你写成了Check(Index),所以程序会默认使用Check(index)的Value来进行判断,Value值只有0和1两种情况,所以,只会执行Case 0 或者 Case 1。把Select Case Check(Index)改成 Select Case Index 应该就可以了。
答:在 Visual Basic 中有两种类型的数组:固定大小的数组— 它总是保持同样的大小,以及在运行时大小可以改变的动态数组。在本章后面的“动态数组”中将要详细讨论动态数组。声明固定大小的数组 有三种方法声明固定大小的数组,用哪一种方法取决于数组应有的有效范围:建立公用数组,在模块的声明段用 Public ...
答:a(j) = temp End If Next j Next i For i = 1 To 10 Text2.Text = Text2.Text & a(i) & " "Next iEnd Sub4、运行工程,单击Command按钮,可以看到通过Inputbox输入的原数组和排序后的数组。
答:Label1.FontBold = ture 改为 Label1.FontBold = True
网友评论:
杨矩17379515540:
VB6.0中 怎样在窗体中添加一个复选框数组(含N个复选框) -
19330谯聪
: 使用“复制/粘贴”复选框对象就可以了.先在窗体中插入一个复选框对象,紧接着CTRL+C复制,然后CTRL+V粘贴,“已有一个控件为'Check1',创建一个控件数组吗?“,要回答“是”.如果需要多个,就继续CTRL+V,直到够数为止.
杨矩17379515540:
vb中如何画一个复选框数组,内含三个复选框? -
19330谯聪
: 放一个复选框在窗体上,在放上的复选框上点右键,复制,然后粘贴,就提示是否创建控件数组
杨矩17379515540:
VB中如何让选择的多个复选框在一个文本框中分行显示? -
19330谯聪
: 1、打开VB软件,在窗体上面添加一个文本框.2、点击文本框,在右侧的属性窗口中,设置名称和数值,将文本内容清空.3、在窗体上面,再添加一个水平滚动条.4、点击水平滚动条,设置名称和数值,将Min设置为0,Max设置为100.(文本框中的输入的数范围为0-100).将largechange设置为5,Smallchange设置为2.5、双击文本框,弹出页面,开始编辑代码.6、运行程序,在文本框中输入不同的数值(0-100以内的数值),观察滚动条的滚动框位置.即可在一个文本框通过滚动条分行显示.
杨矩17379515540:
VB怎么设置复选框 -
19330谯聪
: Private Sub Command1_Click() If Check1.Value = 2 ThenCheck1.Value = 0 ElseIf Check1.Value = 1 ThenCheck1.Value = 2 ElseCheck1.Value = 1 End IfEnd Sub
杨矩17379515540:
VB 6 复选框怎么实现多个数字的赋值 -
19330谯聪
: Private Sub Check1_Click() Dim a() As String Dim i As Integer If Check1.Value Then For i = 10 To 50 Step 10 Text1.Text = Replace(Text1.Text, CStr(i), " ") Next Else For i = 10 To 50 Step 10 Text1.Text = Replace(Text1.Text, " ", Str(i), , 1) Next ...
杨矩17379515540:
vb6.0 编程 关于复选框多选 -
19330谯聪
: text1 ;:"", s As String s = InputBox(", ", 选控件数组.Text = Val(Text1(i), 然后复制添加 check1;输入数字.Value = 1 Then Text1(i), ;) For i = 0 To 4 If Check1(i), 粘贴, 在添加一个command1 Private Sub Command1_Click() Dim i As Integer
杨矩17379515540:
VB List 复选框 -
19330谯聪
: Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.Selected(i) = True Next End Sub
杨矩17379515540:
VB怎么设置一个checkbox数组可选择个数 -
19330谯聪
: Dim N As Long Private Sub Check1_Click(Index As Integer) Satic Num As Long '记录当前选中数目 Num = IIf(Check1(Index).Value, Num + 1, Num - 1) If Num > N Then '如果当前选中数目大于设定值后 将本次选择取消并提示. Check1(Index).Value = False MsgBox "最多选择 " & N & "项" End If End Sub Private Sub Form_Load() N = 3 '最多能选择的数目 End Sub
杨矩17379515540:
vb 我有30个复选框但可以从中选取任意两个或一个(不能超过3个),这30个复选框可以任意次数单击. -
19330谯聪
: 不好意思,楼上代码没有问题,可是功能不能按提问者实现.这个题的考点在“所选的每一个复选框的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 我可以帮助你,你先设置我最佳答案后,我百度Hii教你.你的串号我已经记下,采纳后我会帮你制作
杨矩17379515540:
VB中,如何在窗体中添加复选框控件? -
19330谯聪
: 在窗体设计界面,双击工具箱中的 CheckBox 控件;或把 CheckBox 控件 拖到窗体中.