|
目前，去一些网站里看看，有很多的朋友都开始学习一些最基础的编程软件，VB就是其中之一。那么我们就来说说，如何编写自已的OICQ外壳。
我们先新建一个Form。然后再上面，建两个Picture，其主要的作用是起到是区分MICQ与HELP里显示的东东。接着，我们新建N个Command按钮。如我的好友、陌生人、MICQ、HELP、查找。在VB里画好这些控件后，我们只要设置一下这些控件的属性就可以了。特别注意Picture控件：由于Picture1为MICQ面板、Picture2为HELP面板，我们在运行程序时，一定要隐藏HELP里的面板。总不能两面板同时显示在同一屏幕里吧，这样程序可能会出错的……
以下就是，MICQ的表面
左图为 MICQ 右图为HELP
 以下一些最基本的代码，可以让些程序外壳正常的运行，那我们就来给大家讲解一下那些代码的原理吧。
Dim a,b As
Integer //定义A，B两个变量
Private
Sub Command1_Click()
Picture2.Visible = False
//运行程序时HELP隐藏
Picture1.Visible = True
//运行程序时MICQ显示
End Sub
Private Sub
Command2_Click()
Picture1.Visible = False
//当按下HEIP时，MICQ隐藏
Picture2.Visible = True //HELP显示
End
Sub
Private Sub Command3_Click()
If a = 0
Then
//以下这一段码,就是为了实现,我的好友\陌生人\黑名单里的上下移动功能
Command9.Top = 360
a = 1
End
If
End Sub
Private Sub Command8_Click()
If b = 0 And a = 1
Then
Command8.Top = 720
b = 1
Else
If b = 1
Then
Command8.Top = 3720
b = 0
End If
End If
End
Sub
Private Sub Command9_Click()
If a = 0 Then
Command9.Top
= 360
a = 1
Else
If a = 1 And b = 0 Then
Command9.Top =
3360
a = 0
End If
End If
End Sub
Private Sub
Form_Load()
End Sub
Private Sub Picture2_Click()
End
Sub
VB最大的特点.就是可视化编程,这样最好的发处,也就是编写出来的程序都会十分的漂亮。 【我要发言】
|
