VisualBasic是微软公司推出的可视化编程工具MSDN之一,是目前世界上使用最广泛的程序开发工具。
VB的语法的和QBASIB语言是基本相同的,也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境,我们可以象搭积木一样构建出程序的界面,而且VB提供了丰富的控件组,省去了我们自己写代码实现这些效果的麻烦,这样我们就能把更多的精力放在程序功能的实现上,所以VB学起来简单,用起来方便。
按功能键盘上的F5 运行就可以! 如果有错误,VB会出现新窗口,用汉字写出如何错误。在新窗口内点击调试,在代码窗口中出错的代码为**背景。 最后保存程序,单击“文件”菜单——选择“保存工程”。需要保存两个窗体,首先是frm的应用程序窗体,然后是vbp的工程文件。
变量定义面变量名x,y换别x1y1等
Dim
x1
As
Integer
Private
Sub
Command1_Click()'+按钮
x1
=
x1
+
1
MeCaption
=
x1
End
Sub
Private
Sub
Command2_Click()'-按钮
x1=
x1
-
1
MeCaption
=
x1
End
Sub
利用workwheet的change方法 Private Sub Worksheet_Change(ByVal Target As Range) '''' 代码中充分利用Target这个参数和这个参数的VALUE、ROW、COLOUME等属性,用于判断正在被编辑的单元格的位置 '''' 一般还会用到applicationWorksheetFunction这个对象,对象包括的成员就是EXCEL中的公式 ''''因为你没有提供具体数据,我也不好提供具体代码了 end sub
form1上放置Command1,Timer1,Picture1(装入一个)
Dim MoveStep As Integer
Private Sub Command1_Click()
Timer1Enabled = False
End Sub
Private Sub Form_Load()
MoveStep = 100
End Sub
Private Sub Timer1_Timer()
If Picture1Left + Picture1Width + 30 > Form1Width Then
MoveStep = -100
End If
If Picture1Left < 0 Then
MoveStep = 100
End If
Picture1Left = Picture1Left + MoveStep
End Sub
程序包含一个标签和一个间隔1秒的时间控件
Private xx(1 To 5) As String
Private i As Integer, f As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
f = MsgBox("你按了F1,继续吗?", vbYesNo + vbInformation, "提示")
If f = vbYes Then
Timer1Enabled = True
Else
Call Form_KeyDown(113, 0)
End If
ElseIf KeyCode = 113 Then
MsgBox "你按了F2键,结束应用程序!"
End
End If
End Sub
Private Sub Form_Load()
xx(1) = "aaaaaaaaaa"
xx(2) = "bbbbbbbbbb"
xx(3) = "cccccccccc"
xx(4) = "dddddddddd"
xx(5) = "请按F1、F2"
i = 1
End Sub
Private Sub Timer1_Timer()
Label1Caption = xx(i)
If xx(i) = "请按F1、F2" Then
Timer1Enabled = False
Call Form_KeyDown(112, 0)
End If
i = i + 1
If i > 5 Then i = 1
End Sub
你也可以手动按F1、F2 效果一样!
以上就是关于vb是什么 怎么用它来编写小程序啊、全部的内容,包括:vb是什么 怎么用它来编写小程序啊、、vb6.0 制作一个简单小程序、VB设计一个简单的小程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)