Vb代码大全合集

介绍

VB是Visual Basic的缩写，是一种基于COM（Component Object Model）的事件驱动的编程语言，为Windows程序设计提供了广泛的视窗操作对象，流程控制语句，选择和循环结构以及简单的OOP支持，它的插入操作非常容易，也很容易性能优化。VB语言是学习起来相对较容易的语言之一，适合新手入门。

VB代码示例

计算器

VB代码示例中可以看到，它创建了一个带有数字键和操作符键的计算器。操作符键被设置为可以执行对数值的加法、减法、乘法和除法运算的按钮。其中Add_Click、Substract_click、Multiply_click和 Divide_click分别是四个操作符的按钮。```Private Sub cmdClear_Click() txtDisplay.Text = \"\"End SubPrivate Sub cmdBack_Click() Dim Text_Length As Integer Text_Length = Len(txtDisplay.Text) If Text_Length > 0 Then txtDisplay.Text = Mid(txtDisplay.Text, 1, Text_Length - 1) End IfEnd SubPrivate Sub cmdAdd_Click() Op = \"+\" num = txtDisplay.Text txtDisplay.Text = \"\"End SubPrivate Sub cmdSubstract_Click() Op = \"-\" num = txtDisplay.Text txtDisplay.Text = \"\"End SubPrivate Sub cmdMultiply_Click() Op = \"*\" num = txtDisplay.Text txtDisplay.Text = \"\"End SubPrivate Sub cmdDivide_Click() Op = \"/\" num = txtDisplay.Text txtDisplay.Text = \"\"End SubPrivate Sub cmdEqual_Click() num2 = txtDisplay.Text If Op = \"+\" Then txtDisplay.Text = num + num2 ElseIf Op = \"-\" Then txtDisplay.Text = num - num2 ElseIf Op = \"*\" Then txtDisplay.Text = num * num2 ElseIf Op = \"/\" Then txtDisplay.Text = num / num2 End IfEnd SubPrivate Sub Num_Click() txtDisplay.Text = txtDisplay.Text + Trim(Str(Val(Me.Tag)))End Sub```

多窗口和控件的使用

VB代码示例中创建多个窗口，使用各种控件，包括ComboBox控件、文本框、按钮和菜单项控件等。```Dim Form1 As FormPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim btn As New Button() btn.Width = 70 btn.Height = 30 btn.Top = 5 + Form1.Panel2.Controls.Count() * 40 btn.Left = 5 btn.Text = \"Button \" & (Form1.Panel2.Controls.Count() + 1).ToString() AddHandler btn.Click, AddressOf DynamicButton_Click Form1.Panel2.Controls.Add(btn)End SubPrivate Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Select Case ComboBox1.Text Case \"Red\" Me.BackColor = Color.Red Case \"Blue\" Me.BackColor = Color.Blue Case \"Green\" Me.BackColor = Color.Green End SelectEnd SubPrivate Sub DynamicButton_Click(sender As Object, e As EventArgs) MessageBox.Show(sender.Text & \" was clicked!\")End Sub...Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click If MessageBox.Show(\"Do you really want to exit?\", \"Exit\", MessageBoxButtons.YesNo) = DialogResult.Yes Then Application.Exit() End IfEnd Sub```

常用控件和函数的简单使用

VB代码示例中包括一些常用控件和函数的使用，比如文本框、列表框、单选按钮、复选按钮、Label控件等以及一些常用函数，比如MsgBox函数、InputBox函数等等。```Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = \"Hello\" Then ListBox1.Items.Add(\"Hello\") Else ListBox1.Items.Add(TextBox1.Text) End IfEnd SubPrivate Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged Label1.Text = \"You choose \" & RadioButton1.TextEnd SubPrivate Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Label1.Text = \"You choose \" & CheckBox1.Text End IfEnd Sub...Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim strName As String strName = InputBox(\"Please enter your name\", \"Name\", \"Your name here\") MsgBox(\"Hello, \" & strName & \"!\")End Sub```

本篇文章介绍了一些基本的VB代码示例，包括计算器、多窗口和控件的使用以及常用控件和函数的简单使用，VB语言是学习起来相对较容易的语言之一，建议有兴趣的新手可以去了解一下。

参考文献

- Visual Basic 6.0 Developer's Handbook- MSDN Library就是Vb代码大全合集的介绍。