99问答网
所有问题
当前搜索:
vb数组控件使用方法
VB控件数组
做多窗体
答:
'Form1窗体代码:Private WithEvents frm2 As Form2 Private cj_value() As Single Private Sub Command1_Click()If frm2 Is Nothing Then Set frm2 = New Form2 End If frm2.Show End Sub Private Sub Form_Load()Command1.Caption = "输入成绩"Command2.Caption = "计算成绩"Command3....
VB控件数组
索引号在哪里设置
答:
VB6.0
控件数组
索引号是在空间的属性窗口的Index 属性处设置。Index 属性(控件数组),返回或设置唯一地标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。虽然缺省状态下 Visual Basic 分配下一个可用的整数作为控件数组中新的控件的 Index 的值,但也可以改变该分配值并跳过一些数。
VB
生成一个
控件数组
答:
Public Function 创建
控件数组
(控件名 As Object, 源控件Index As Integer, 创建数量 As Long, 间距 As Integer, Optional 偏移 As Integer = 1) As Boolean Dim I As Integer, ID As Integer On Error GoTo 创建失败 ID = 控件名.UBound For I = 1 To 创建数量 Load 控件名(ID + I)With...
vb中
什么是
数组
?有哪几种类型?有何作用?请举几个例子
答:
第一种,是变量数组。作用就是用来储存一个系列变量的值。例如,某班50名学生,数学成绩为:dim shuxuechengji(1 to 50)as single 在例如,该班七门课的成绩:dim chengji(1 to 50,1 to 7)as single 第二种,就是
控件数组
。作用就是把很多性质作用相类的统一类型
控件使用
统一名称后,用下标...
vb中
什么是
数组
?有哪几种类型?有何作用?请举几个例子
答:
第一种,是 变量 数组。作用就是用来储存一个系列变量的值。例如,某班 50名学生,数学成绩为:dim shuxuechengji(1 to 50)as single 在例如,该班七门课的成绩:dim chengji(1 to 50,1 to 7)as single 第二种,就是
控件数组
。作用就是把很多 性质 作用相类的统一 类型
控件使用
统一...
vb中
能用
控件数组
作为函数的参数吗?比如我建立了image()控件数组...
答:
可以的,但
控件
变量类型为Object,应当是function test(img() as Object)。
如何给
VB数组
赋值?
答:
答案补充:这个
方法
只适用于一维
数组
,多维数组只能一个一个分别赋值,没有简便方法。=== 代码如下。=== Dim a As Variant Private Sub Form_Load()a =
Array
(1, 5, 2, 43, 222)End Sub
VB
+Access的一个程序
数组控件
变量给SQL语句赋值
答:
可以利用当前 txtFileds(i) .Text 内容与被调用的 DataGrid 中相应字段内容进行比较得出是否修改的决定。3、你的更新SQL语句,我觉得有些别扭,更新的SQL应该如下:SQL="Update ms Set 字段名='"+ Trim(txtFields(i))+"' Where 车牌号='"+txtFields(0)+"'"才对。你的
数组
变量在字符串定义中...
VB
ComboBox
控件数组
问题
答:
1.建个模块 modSave Private cboIdxVal(0 To 23) As Long Public Sub savecboIdxVal(cboObj As ComboBox, Optional idx As Long = -1)If idx = -1 Then For i = 0 To 23 cboIdxVal(i) = cboObj(i).listInde Next i Else cboIdxVal(idx) = cboObj(idx).listInde End If End ...
vb
如何执行变量
答:
这样调用是不行的。可以定义
控件数组
,通过其Index属性实现调用 如command1为控件数组,有3个同名控件,其index分别为0,1,2 其点击事件可以这样:Private Sub Command1_Click(Index As Integer)If Index = 1 Then MsgBox "1"If Index = 2 Then MsgBox "2"End Sub sub call_com()dim i for ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜