vb实例教程vb编程实例

求几个简单的VB实例

Private Sub Command1_Click() If Command1.Caption = "显示" Then Text1.Text = "这是我的第一个VB程序" Command1.Caption = "继续" ElseIf Command1.Caption = "继续" Then Text1.Text = "请你赐教，谢谢!" Command1.Caption = "显示" Command2.Enabled = True End If End Sub Private Sub Command2_Click() End End Sub 网址： 自己可以去看．

求vb实例，

给你一个增加按钮的例子吧！ Option Explicit Private WithEvents NewButton As CommandButton Private Sub Command1_Click() If NewButton Is Nothing Then Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Form1) NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top NewButton.Caption = "动态添加的按钮" NewButton.Visible = True End If End Sub Private Sub Command2_Click() If NewButton Is Nothing Then Exit Sub Else Controls.Remove NewButton Set NewButton = Nothing End If End Sub Private Sub NewButton_click() MsgBox "这是动态增加的按钮，你可以单击“删除控件”按钮删除它", vbDefaultButton1, "Click" End Sub

vb编程实例

去百度文库，查看完整内容> 内容来自用户:可爱的小滨滨3 用VB编写一个密码解锁界面 我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。

下面是我看了两天书后编写的一个小程序： 功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。

当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。

中间有错误提示和误操作提示。

①先建立一个小窗口，如下图： 帐号一的“textbox”编号为“text1”，后面一次类推mand指令为1。

②程序的编写 Text1： 初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。

2、text2 mand1 初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。

mand2 跳往第二个界面，隐藏第一界面。

5、初始指令 6、全局变量 全局变量本界面可以修改、其它界面可以调用的变量。

②建立第二个窗口 Text的序号从上到下依次顺序排列mand的命令一次从左到右排列 ③第二个窗口的程序编写 1、Text1： Private Sub Text1_LostFocus() Dim b As Integer Dim pw_1 As String, pw_2 As String pw_2 = Form1.m pw_1 = Text1.Text If pw_1 > pw_2 Then b = MsgBox("