vb百例经典代码总结

百例总结

一、变量的默认数值型是：Variant 数据类型
  通用变量体类型Variant，能够在运行期间动态的改变类型。变体类型能支持所有简单的数据类型，如整型、浮点、字符串、布尔型、日期时间、货币及OLE自动化对象等，不能够表达Object Pascal对象。

二、VB中如何实现图像一直从上到下移动：

Private Sub Timer1_Timer()

    If Image1.Top <= Me.Height Then
        Image1.Top = Image1.Top + 800
    Else
        Image1.Top = 0

    End If

End Sub

三、VB中一个工程必须包含的文件类型是哪几个：

.vbp,.frm,*,frx.
(.frx) 是窗体的二进制数据文件 ，它含有窗体上控件的属性数据。对含有二进制属性（例如图片或图标）的任何 .frm 文件都是不可编辑的，这些文件都是自动产生的.
Visual Basic 将二进制数据文件与窗体保存到相同的目录中。这个二进制文件和窗体同名，而以 .frx 为扩展名。当加载窗体时，Visual Basic 读此二进制数据文件。当 Visual Basic 加载它时，二进制数据文件 (.frx) 必须是对窗体可用的。当与其它使用二进制数据文件的应用程序共享窗体时，则必须确保同时提供二进制数据文件 (.frx) 和窗体文件 (.frm)。
但是vb中一个工程必须包含的文件类型是vbp vbw 和 frm 。frx是不一定有的，如果窗体中没有出现使用二进制的属性那么就不会出现frx文件的。

四、vb绘制圆形

  绘制圆、椭圆和扇形，其语法格式如下：

object.Circle [Step] (x,y), radius,[color,start,end,aspect]

  start和end指的是起始和终止的角度，范围：-2π~2π

  起点的默认值是0；终点默认值是2π

  当角度是正值时，画圆弧，负值时画扇形。

五、API函数

API（Application Programming Interface，应用程序接口）函数是一些预先定义的函数。操作系统除了协调应用程序的执行、内存分配、系统资源管理外，同时也是一个很大的服务中心，调用这个服务中心的各种服务（每一种服务是一个函数），可以帮助应用程序达到开启视窗、描绘图形、使用周边设备的目的。
API概述
应用程序接口为：“‘电脑操作系统（Operating system）’或‘程序库’提供给应用程序调用使用的代码”。其主要目的是让应用程序开发人员得以调用一组例程功能，而无须考虑其底层的源代码为何、或理解其内部工作机制的细节。API本身是抽象的，它仅定义了一个接口，而不涉及应用程序在实际实现过程中的具体操作。
例如，图形库中的一组API定义了绘制指针的方式，可于图形输出设备上显示指针。当应用程序需要指针功能时，可在引用、编译时链接到这组API，而运行时就会调用此API的实现（库）来显示指针。
应用程序接口是一组数量上千、极其复杂的函数和副程序，可让程序员做很多任务作，譬如“读取文件”、“显示菜单”、“在视窗中显示网页”等等。操作系统的API可用来分配存储器或读取文件。许多系统应用程序借由API接口来实现，像是图形系统、数据库、网络Web服务，甚至是在线游戏。
应用程序接口有诸多不同设计。用于快速执行的接口通常包括函数、常量、变量与数据结构。也有其它方式，如通过解释器，或是提供抽象层以屏蔽同API实现相关的信息，确保使用API的代码无需更改而适应实现变化。

六、在VB中实现循环显示文件夹中的所有图片：

  第一种方式：定义变量

Private Sub Timer1_Timer()
Static i As Integer     '设置i为静态变量

	i = Int(Rnd() * 33 + 1)
    pic1.Picture = LoadPicture(App.Path & "\头像\" & i & ".jpeg")
    
End Sub

  第二种方法：

Private Sub Timer1_Timer()

	pic1.Picture = LoadPicture("D:\VB98\演练\0.点击选老婆\头像\" & Int(Rnd() * 33 + 1) & ".jpeg")
	
End Sub

  注意：文件夹的地址后要加“\”

七、msgbox函数

  msgbox函数中的title

八、九九乘法表

Private Sub Command1_Click()
Dim i As Integer,j As Integer,s As String
For i 1 To 9
	For j=1 To i
	s=" " & i & "x" & j & "=" & i & * j & String(5," ")
	If  j >1 And i * j<10 Then s =s+String(1,"")
	Label1.Caption= Label1.Caption +s
	Next
	Label1.Caption = Label1.Caption & vbCrLf +""
Next
End Sub