1. 显示/隐藏文本框 ' 当点击按钮时，切换文本框的可见性 Private Sub Command1_Click() ' 假设Command1是“显示”按钮 Text1.Visible = True ' 显示文本框 End Sub Private Sub Command2_Click() ' 假设Command2是“隐藏”按钮 Text1.Visible = False ' 隐藏文本框 End Sub 2. 根据文本框内容更新标签 ' 当点击按钮时，将文本框的内容与固定字符串结合，并设置为标签的标题 Private Sub Command1_Click() Label1.Caption = "祝" & Text1.Text & "同学金榜提名！" ' 假设Text1是用户输入姓名的文本框 End Sub 3. 控制定时器和按钮的启用状态 ' 通过按钮控制定时器的启用/禁用，并相应地改变按钮的启用状态 Private Sub Command1_Click() ' 启动定时器并禁用自身，启用Command2 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() ' 停止定时器并启用Command1，禁用自身 Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False End Sub ' 定时器事件处理程序，更新标签显示当前时间 Private Sub Timer1_Timer() Label2.Caption = Time ' 假设Label2用于显示时间 End Sub 4. 更改文本字体样式（简化版） ' 通过复选框切换文本框中文本的加粗状态 Private Sub Check1_Click() Text1.FontBold = Not Text1.FontBold ' 切换加粗状态 End Sub ' 通过单选按钮更改文本框的字体名称（这里只展示了宋体） Private Sub Option1_Click() Text1.FontName = "宋体" End Sub ' 假设Option2是另一个单选按钮，用于选择黑体 Private Sub Option2_Click() Text1.FontName = "黑体" End Sub 5. 数据验证与提示 vb复制代码 ' 当用户离开文本框时，检查输入是否为空 Private Sub Text1_Exit(Cancel As Integer) If Trim(Text1.Text) = "" Then MsgBox "请输入必要的信息！", vbExclamation Text1.SetFocus ' 将焦点重新设置在文本框上 Cancel = True ' 取消退出事件，让用户继续输入 End If End Sub 6. 列表框选择操作 vb复制代码 ' 当用户选择一个列表框中的项目时，更新另一个控件（如文本框）的内容 Private Sub List1_Click() If List1.ListIndex <> -1 Then ' 确保有项目被选中 Text1.Text = List1.List(List1.ListIndex) ' 将选中的项目内容显示在文本框中 End If End Sub 7. 使用循环处理数据 vb复制代码 ' 假设我们有一个数组，需要遍历并处理每个元素 Dim numbers() As Integer = {1, 2, 3, 4, 5} ' 示例数组 Dim i As Integer For i = LBound(numbers) To UBound(numbers) ' 从数组的第一个元素遍历到最后一个元素 ' 处理每个元素，这里只是简单地打印出来 Debug.Print numbers(i) Next i 8. 条件判断 vb复制代码 ' 根据用户输入的内容改变背景色 Private Sub Text1_Change() If InStr(1, Text1.Text, "错误", vbTextCompare) > 0 Then Form1.BackColor = vbRed ' 如果文本中包含“错误”，则将表单背景色设置为红色 Else Form1.BackColor = vbWhite ' 否则，将表单背景色设置为白色 End If End Sub 9. 调用外部函数或过程 vb复制代码 ' 假设我们有一个计算两个数之和的函数 Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer AddNumbers = num1 + num2 End Function ' 在某个事件中调用这个函数 Private Sub Command1_Click() Dim sum As Integer sum = AddNumbers(5, 10) ' 调用函数并传递参数 MsgBox "和是: " & sum, vbInformation End Sub 10. 文件操作（简化版） vb复制代码 ' 打开并读取一个文本文件的内容 Private Sub Command1_Click() Dim filePath As String Dim fileContent As String filePath = "C:\example.txt" ' 文件路径 ' 使用Open语句打开文件（注意：这里只是伪代码，VB.NET中使用不同的方法） ' Open filePath For Input As #1 ' fileContent = Input(LOF(1), 1) ' 假设LOF和Input是有效的函数（在VB.NET中不是这样） ' Close #1 ' 在VB.NET中，你可能会使用System.IO命名空间下的类，如File.ReadAllText fileContent = System.IO.File.ReadAllText(filePath) ' 显示文件内容 MsgBox fileContent, vbInformation End Sub 注意：第10个示例中的文件操作部分使用了伪代码和VB.NET的混合，因为VB6（原始VB）和VB.NET在文件处理方面有很大的不同。在VB.NET中，你通常会使用System.IO命名空间下的类来处理文件。在VB6中，你会使用 11. 使用集合（如List） vb复制代码 ' 创建一个List集合来存储整数 Dim numbers As New List(Of Integer) ' 向集合中添加元素 numbers.Add(1) numbers.Add(2) numbers.Add(3) ' 遍历集合并打印每个元素 For Each num As Integer In numbers Console.WriteLine(num) Next 12. 异常处理 vb复制代码 Try ' 尝试执行可能引发异常的代码 Dim result As Integer = 10 / 0 ' 这将引发一个DivideByZeroException Catch ex As DivideByZeroException ' 处理除以零的异常 Console.WriteLine("不能除以零！") Catch ex As Exception ' 处理其他类型的异常 Console.WriteLine("发生了一个错误：" & ex.Message) Finally ' 无论是否发生异常，都会执行的代码 Console.WriteLine("操作完成。") End Try 13. 使用委托和事件 vb复制代码 ' 定义一个委托 Public Delegate Sub MyDelegate(ByVal message As String) ' 定义一个类，该类有一个事件 Public Class MyClassWithEvent ' 声明事件 Public Event MyEvent As MyDelegate ' 触发事件的方法 Protected Sub OnMyEvent(ByVal message As String) RaiseEvent MyEvent(message) End Sub End Class ' 在另一个类中处理事件 Public Class EventHandlerClass Public Sub HandleMyEvent(ByVal sender As Object, ByVal e As MyDelegateEventArgs) ' 注意：这里通常使用EventArgs或其派生类，但为了简化，我们直接使用委托类型 Console.WriteLine("事件被触发：" & e.Method.Invoke("Hello, Event!")) ' 假设e有一个Method属性，这里只是为了演示 End Sub End Class ' 注意：上面的EventHandlerClass示例并不完全符合标准事件处理模式，因为通常事件处理器不会直接接收委托类型作为参数。 ' 正确的做法是将事件处理器附加到MyClassWithEvent的MyEvent事件上，如下所示： ' 假设我们有一个MyClassWithEvent的实例和一个正确的事件处理器 Dim myClass As New MyClassWithEvent() AddHandler myClass.MyEvent, AddressOf MyEventHandler ' 假设MyEventHandler是正确的事件处理器方法 ' 触发事件 myClass.OnMyEvent("Hello, World!") ' 注意：MyEventHandler方法需要匹配MyDelegate的签名。 注意：上面的EventHandlerClass和事件处理器的示例并不完全符合VB.NET中处理事件的常规方式。在VB.NET中，事件处理器通常具有特定的签名，并且不直接接收委托类型作为参数。此外，MyDelegateEventArgs类在上面的示例中并不存在，我只是用它来模拟一个可能包含额外信息的类（在标准事件处理中，通常会使用EventArgs或其派生类）。 14. 使用Lambda表达式 vb复制代码 ' 使用Lambda表达式作为委托的实例 Dim myDelegate As MyDelegate = Sub(message) Console.WriteLine(message) End Sub ' 触发委托 myDelegate.Invoke("Hello, Lambda!") 在这个例子中，我们定义了一个名为myDelegate的MyDelegate类型的变量，并使用Lambda表达式为其赋值。然后，我们调用了该委托的Invoke方法来执行它。Lambda表达式提供了一种简洁的方式来定义匿名方法。 1. Private SubCommand1_Click() Text1.Visible = True End Sub Private SubCommand2_Click() Text1.Visible = False End Sub 2. Private SubCommand1_Click() Label1.Caption = "祝" & Text1.Text & "同学金榜提名！" End Sub 3. Private SubCommand1_Click() Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private SubCommand2_Click() Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False End Sub Private SubTimer1_Timer() Label2.Caption = Time End Sub 4. Private SubCheck1_Click() Text1.FontBold = Not Text1.FontBold End Sub Private SubOption1_Click() Text1.FontName = "宋体" End Sub Private SubOption2_Click() Text1.FontName = "黑体" End Sub 5. Private Sub HScroll1_Change() Command1.Width = HScroll1.Value End Sub Private SubHScroll1_Scroll() Command1.Width = HScroll1.Value End Sub Private SubVScroll1_Change() Command1.Height = VScroll1.Value End Sub Private SubVScroll1_Scroll() Command1.Height = VScroll1.Value End Sub 6. Private SubCommand1_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Command1.Enabled = False End Sub Private SubCommand2_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Command2.Enabled = False End Sub Private SubForm_Load() List2.AddItem "李晓乐" List2.AddItem "张清" List2.AddItem "王称职" List2.AddItem "陈一专" End Sub Private SubList1_Click() Command2.Enabled = True End Sub Private SubList2_Click() Command1.Enabled = True End Sub 7. Private SubCommand1_Click() Timer1.Enabled = True End Sub Private SubCommand2_Click() End End Sub Private SubHScroll1_Change() Timer1.Interval = HScroll1.Value Label1.Caption = "时间间隔：" & HScroll1.Value ' Label1.Caption = "时间间隔：" & Timer1.Interval End Sub Private SubTimer1_Timer() Label1.Left = Label1.Left + 100 End Sub 8. Private SubCmd1_Click() L1.FontSize = L1.FontSize + 2 L1.Left = (Frm1.Width - L1.Width) / 2 End Sub Private SubCmd2_Click() L1.FontSize = L1.FontSize - 2 L1.Left = (Frm1.Width - L1.Width) / 2 End Sub 9. Private SubList1_Click() Frame1.Enabled = True End Sub Private Sub Option1_Click(IndexAs Integer) Label3.Caption = Text1.Text & "：" & List1.Text & "，" & Option1(Index).Caption End Sub Private SubText1_Change() List1.Enabled = True End Sub 10. Private SubCheck1_Click() Timer1.Enabled = Not Timer1.Enabled End Sub Private SubCombo1_Click() Text1.FontName = Combo1.Text End Sub Private SubCommand1_Click() End End Sub Private SubForm_Load() Combo1.AddItem "宋体" Combo1.AddItem "黑体" Combo1.AddItem "隶书" End Sub Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub Private SubOption1_Click(Index As Integer) Text1.ForeColor = Option1(Index).ForeColor End Sub Private SubOption2_Click(Index As Integer) Text1.Alignment = Index End Sub Private Sub Timer1_Timer() Text1.FontBold = Not Text1.FontBold End Sub