
这是我以前编数据库时用到的。
定义
Private txtField() As TextBox
创建
ReDim txtField(0 To intSelectFieldCount - 1)
For I = 0 To intSelectFieldCount - 1
'创建新的控件
Set txtField(I) = ControlsAdd("VBTextBox", "TextBox_" & I)
'设置控件的容器、位置、宽、高
Set txtField(I)Container = fraEdit
txtField(I)Move 1600, 120 + I 400, lngFieldWidth, 300
' 创建时,所有的控件都是不可见的
txtField(I)Visible = True
txtField(I)Enabled = True
Next I
引用
txtField(I)Text = "100"
PS:
你只要把定义改为 Dim Private () As Shape
创建新的控件 改为 Set sh(i) = ControlsAdd("VBShape", "Shape_" & i)
用法如:sh(1)Visible = True
Public Sub GenerateDynamiceButton()
'建立 坐标位置的变数, 方便一会儿安排 自动生产的button 的位置
Dim y As Integer = 15
Dim x As Integer = 0
' 用for loop 来建立 这些button 做 18只button
For ButtonIndex As Integer = 0 To 17
' 建造新的 button
Dim MyButton As New Button
'设定这新的button 的阔度
MyButtonWidth = 80
'设定这新的button 的高度
MyButtonHeight = 20
'我们暂定每行有4个BUTTON, 当每行有多个4个BUTTON 时重设行距, 令到下一行的和这一行的距离有10 个PIXEL
' 和重设x 坐标` = 0, 令到位置由头开始
If ButtonIndex Mod 4 = 0 Then
'设定 TOP 的 坐标位置令他可以和上一排的有10个PIXEL 的距离
y += MyButtonHeight + 10
x = 0
End If
'设定文字 和 位置
' Set the text and set its top and left based on its dimensions and count
MyButtonText = "My Button" & ButtonIndex
'设定 TOP 的 坐标位置
MyButtonTop = y
'下面的CODE 可以令到这个BUTTON 和另一个BUTTON 有5个PIXEL 的距离
MyButtonLeft = 26 + (x (MyButtonWidth + 5))
x += 1
'设定 BUTTON CLICK EVENT
AddHandler MyButtonClick, AddressOf MyButton_Click
'把button 加到 form 中
MeControlsAdd(MyButton)
Next
End Sub
'处理 button click event
Private Sub MyButton_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs)
Dim btn As Button = sender
'pop up 一个自己button 的字的message
MsgBox(btnText)
1、计算机在教育中的应用
计算机网络的出现,提供了一种全新的教育手段,使真正意义上的没有“围墙”的学校成为现实。当然,有“围墙”的学校并没有因此而消亡,传统的学校集体教育的形式仍然是必需的,而且是无可替代的。
借助计算机的多媒体教学必然会对传统的学校课堂教学,对传统的教育产生强而有力的影响,并且,无论你是否愿意,这种影响已经产生,而且将不断扩大和增强。
2、计算机在家庭中的应用
随着个人计算机的普及,可以通过计算机听音乐,使我们能够陶醉在音乐之中;可以看**,把**院搬到了自己家中;可以看新闻,看股票,看一些自己关心的东西;如此种种,无不给生活带来了便利。
3、计算机在工业,农业和商业上的应用
如机械工程师在计算机上绘制的产品设计图,在屏幕上进行3D的仿真演示;另外机械组装,金属焊接,汽车喷漆,拆除爆炸物及不明化学药品的侦测等工作,都可用计算机控制的机械手臂来完成。
在农业上,以计算机为主导的现代农业技术正在蓬勃的发展着,这不仅能够提高农作物的产量。
在商业上,以企业为例,销售,财务,会计,文书,人事,工资等信息管理,运用“办公自动化”的信息系统,能协助企业快速的达成企业的工作目标。再配合企业的内部网络,将各个部门资源共享,掌握正确的信息,可以达到大幅度降低成本,资源共享即提高效率的目的。还可以通过网络技术进行视频会议,这大大降低了出差的成本,以及节省了宝贵的时间,提高了工作效率。
扩展资料:
计算机发展趋势
1、计算机技术发展趋势:高性能化、网络化、大众化、智能化、人性化、功能综合化等。
2、未来计算机的发展趋势:微处理器速度提升;先进的数据存储技术;外设高性能、网络化和集成化且易携带;输入技术智能化、人性化等。
3、软件技术的发展趋势:技术对象化、系统构件化、产品领域化、开发过程化、生产规模化、竞争国际化、平台网络化等。
编写简单的2D游戏只需要控件和组合,然后加入游戏规则代码,这个网上找找很多,如扫雷等;如果要编写3D游戏,就必须会调用DX接口,使用各种算法,如冒泡法等;要编写网络游戏就必须要会访问数据库,并且加密等;视频即使有,看个一年半载没书没基础几乎不可能看懂。况且没有这种视频。那不是三五行代码解决的,是上百,上百万行代码的问题喔。
以上就是关于基于java jsp asp php vb安卓系统毕业设计与实现论文源码下载全部的内容,包括:基于java jsp asp php vb安卓系统毕业设计与实现论文源码下载、windows是用什么语言开发的、vb如何实现在程序中一次生成大批控件等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)