tyzw.net
当前位置:首页 >> 怎么用vB做一个简单的程序 >>

怎么用vB做一个简单的程序

给你做一个,自己看。

Private Sub Command1_Click() '文本框Text3的内容等于Text1的数值减去Text2的数值 '其中Val 函数用来返回字串表达式的数值 Me.Text3.Text = Val(Me.Text1.Text) - Val(Me.Text2.Text) End Sub

加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load() Me.结束.Visibl...

朋友给段代码给你,这个代码不要任何控件,你只需要把以下代码复制到你的窗体代码中就行了,代码很简单,相信你能看懂!仅仅用了一个结构(ShenTi)一个数组(ZhuangTai(23, 23) As Long) 一个变量(GFangXiang) 代码中自动生成了Timer1,Label...

在桌面上,鼠标左键双击程序,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数,如下图所示。 接着,用同样的方法,在Form1窗口上绘制出第二数,并且在左...

VB6成熟代码 实现功能:直线圆矩形等几何绘制,可修改已画好几何图形颜色、线宽、大小,可删除图形等简单CAD绘图功能;

打开VB6.0 在“工程”菜单 选择 “部件” 控件列表最下面 有一个 “Windows Media Player” 勾选 确定 把控件放入form中 Private Sub Form_Load() WindowsMediaPlayer1.URL = "F:\音乐\晴天.mp3" End Sub 运行就可以播放了。

Private Sub Command1_Click()Print "Hello World!"End Sub

Dim sec, min, h Private Sub Command1_Click() Timer1.Enabled = True h = Text1.Text min = Text2.Text sec = Text3.Text Timer2.Enabled = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Form1.BackColor...

新建一个窗体,画2个文本框 Text1和Text2,代码放在窗体里面... Option Explicit Dim arrPY Private Sub Form_Load() Text1.Text = "" Text1.MaxLength = 2 Text2.Text = "" Text2.Locked = True arrPY = Array("ling", "yi", "er", "san", "si", ...

网站首页 | 网站地图
All rights reserved Powered by www.tyzw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com