如何使用VB编写一个简单的小程序？

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，兆岁在Form1窗口上，绘制出悔猜腊一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，d出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做碧滑了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件

Dim a(1 To 9) As Boolean

Dim win As Boolean, begin As Boolean, haveload As Boolean, start As BooleanPrivate Sub Command1_Click()

start = True: begin = False

For i = 1 To 9

a(i) = False

Next i

Form_Load

End SubPrivate Sub Form_Load()

a(9) = True

Label1(0).Visible = False

Me.Height = 4400

Me.Width = 4000

Scale (0, 0)-(3, 3.3)

If haveload = False Then

haveload = True: start = True

Command1.Top = 3: Command1.Left = 2

Command1.Width = 1: Command1.Height = 0.3

Command1.Caption = "开始"

For i = 1 To 9

Load Label1(i)

Next i

End If

For i = 1 To 9

Label1(i).Height = 1

Label1(i).Width = 1

Label1(i).Visible = True

Label1(i).Top = (i - 1) \ 3

Label1(i).Left = (i - 1) Mod 3

Label1(i).Caption = Str(i)

Label1(i).BackColor = QBColor(i)

Label1(i).FontBold = True

Label1(i).FontSize = 40

Next i

Label1(9).Caption = "": Label1(9).BackColor = vbWhite

Randomize

For i = 1 To 500

r% = Int(9 * Rnd) + 1

Call Label1_Click(r)

Next i

begin = True

End SubPrivate Sub Label1_Click(index As Integer)

Dim x1 As Integer, y1 As Integer

If start = True Then

If a(index) = False Then

x1 = (index - 1) Mod 3: y1 = (index - 1) \ 3

If x1 - 1 >-0.2 Then

If a(x1 + y1 * 3) = True Then Call yidong(x1 + y1 * 3, index)

End If

If x1 + 1 <2.2 Then

If a(x1 + y1 * 3 + 2) = True Then Call yidong(x1 + y1 * 3 + 2, index)

End If

If y1 - 1 >-0.2 Then

If a(x1 + 1 + (y1 - 1) * 3) = True Then Call yidong(x1 + (y1 - 1) * 3 + 1, index)

End If

If y1 + 1 <2.2 Then

If a(x1 + 1 + (y1 + 1) * 3) = True Then Call yidong(x1 + 1 + (y1 + 1) * 3, index)

End If

End If

win = True

For i = 1 To 8

If Val(Label1(i).Caption) <>i Then win = False

Next i

If win = True And begin = True Then MsgBox ("恭喜你成功了"): begin = False: start = False

End If

End Sub

Sub yidong(x, index)

Label1(0).Caption = Label1(index).Caption

Label1(index).Caption = Label1(x).Caption

Label1(x).Caption = Label1(0).Caption

a(index) = True: a(x) = False

Label1(0).BackColor = Label1(index).BackColor

Label1(index).BackColor = Label1(x).BackColor

Label1(x).BackColor = Label1(0).BackColor

End Sub

VB制作奇形怪状的窗体

普通的窗体都是方明差方的，使用API函数可以做出一些奇怪的形状。比如，窗体是圆角矩形，在中间挖一个椭圆形的洞。

先要理解一个重要行槐芦的概念：区域。区域是描述设备场景中某一块的GDI对象，每个区域都有一个句柄。一个区域可以是矩形，也档带可以是复杂的多边形，甚至是几个区域组织在一起。窗体默认的区域就是我们看到的矩形，当然它并非一定要用这个默认的区域

现在开始，首先在窗体上做一个圆角矩形区域，这是窗体的大致轮廓。在圆角矩形里再确定一个椭圆形的区域，然后把这两个区域组织成一个区域，并设置窗体的区域为这个组织出来的区域。

CreateRoundRectRgn函数用于创建一个圆角矩形区域；CreateEllipticRgn用于创建一个椭圆区域；CombineRgn函数用于将两个区域组合为一个新区域；SetWindowRgn函数允许您改变窗口的区域。使用其他的函数还可以做出其他更奇怪的窗体。

源代码如下：

OptionExplicit

'API函数声明

PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLong

PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionCombineRgnLib"gdi32"(ByValhDestRgnAsLong,ByValhSrcRgn1AsLong,ByValhSrcRgn2AsLong,ByValnCombineModeAsLong)AsLong

PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong

'常数声明

PrivateConstRGN_DIFF=4

'目标区域被设置为两个区域不相交的部分

'模块级变量声明

PrivateOutRgnAsLong

'外边的圆角矩形区域

PrivateInRgnAsLong

'里边的椭圆区域

PrivateMyRgnAsLong

'圆角区域剪切掉椭圆区域后的区域，也是窗体最终的形状

PrivateSubForm_Click()

IfOutRgn<>0AndInRgn<>0AndMyRgn<>0ThenExitSub

DimwAsLong,hAsLong

w=ScaleX(Form1.Width,vbTwips,vbPixels)

h=ScaleY(Form1.Height,vbTwips,vbPixels)

MyRgn=CreateRectRgn(0,0,0,0)

OutRgn=CreateRoundRectRgn(30,30,w-30,h-30,100,100)

InRgn=CreateEllipticRgn(100,100,w-100,h-100)

CallCombineRgn(MyRgn,OutRgn,InRgn,RGN_DIFF)

CallSetWindowRgn(Form1.hWnd,MyRgn,True)

Form1.BackColor=QBColor(4)

EndSub

PrivateSubForm_DblClick()

UnloadForm1

EndSub

PrivateSubForm_Load()

OutRgn=0

InRgn=0

MyRgn=0

Form1.Width=7800

Form1.Height=6000

EndSub

PrivateSubForm_Unload(CancelAsInteger)

IfMyRgn<>0ThenDeleteObjectMyRgn

IfOutRgn<>0ThenDeleteObjectOutRgn

IfInRgn<>0ThenDeleteObjectInRgn

EndSub

这个程序运行后，在窗体上单击，窗体就会变形，双击窗体程序结束。要注意的是，在卸载窗体时，用DeleteObject函数删除已定义的区域。

---