UC知道这个是控件吗
来源：百度知道 编辑：UC知道 时间：2024/05/29 05:34:29
showtitle
showdata
VB刚学，在程序里找了半天不知道这俩个是什么，是控件吗？大家告我声，谢谢了，最好在哪，和干什么用的一起说了，谢了！~~
Public Sub showtitle()
With MSF
.Rows = 2
.Cols = 2
.TextMatrix(0, 0) = "部门编号"
.TextMatrix(0, 1) = "部门名称"
End With
End Sub
Public Sub showdata()
Dim i As Integer
Adodc1.RecordSource = "select * from department"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
MSF.TextMatrix(1, 0) = Adodc1.Recordset.Fields(0)
MSF.TextMatrix(1, 1) = Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
For i = 2 To Adodc1.Recordset.RecordCount
With Adodc1.Recordset
MSF.AddItem .Fields(0) & vbTab & .Fields(1)
.MoveNext
End With
Next i
End If
Adodc1.Recordset.Close
End Sub
showdata
VB刚学，在程序里找了半天不知道这俩个是什么，是控件吗？大家告我声，谢谢了，最好在哪，和干什么用的一起说了，谢了！~~
Public Sub showtitle()
With MSF
.Rows = 2
.Cols = 2
.TextMatrix(0, 0) = "部门编号"
.TextMatrix(0, 1) = "部门名称"
End With
End Sub
Public Sub showdata()
Dim i As Integer
Adodc1.RecordSource = "select * from department"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
MSF.TextMatrix(1, 0) = Adodc1.Recordset.Fields(0)
MSF.TextMatrix(1, 1) = Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
For i = 2 To Adodc1.Recordset.RecordCount
With Adodc1.Recordset
MSF.AddItem .Fields(0) & vbTab & .Fields(1)
.MoveNext
End With
Next i
End If
Adodc1.Recordset.Close
End Sub
这个啊，前者是“显示标题”，后者是“显示状态”。
显然，这不是控件，也不是系统变量。
答案补充：
哈哈哈，刚才没有看这边。
从过程的头部来看，这些不能放在“通用”里。因为通用是窗体级别的变量和过程以及函数。
这里的声明的“Public”，所以，应该放在模块里。但里面的代码运行可能会出错：没有控件。这两个过程设计的控件名称都应该带上前缀表示其在那个窗体上。
你在哪看到的这2个？贴出代码来
呵呵 这2个只是 自定义的过程名而已~
你可以直接调用 比如
Private Sub Command1_Click()
showdata
End Sub
来实现该过程运行的结果
比如自己写个过程 然后调用
Private Sub Command1_Click()
showprint
End Sub
sub showprint()
print "测试打印"
end sub