例37：爱好选择

最新推荐文章于 2024-10-18 12:27:51 发布

曾小猫

最新推荐文章于 2024-10-18 12:27:51 发布

阅读量307

点赞数 2

分类专栏： Visual Free Basic例解教程文章标签： java 服务器前端

本文链接：https://blog.csdn.net/u010763140/article/details/136092872

版权

Visual Free Basic例解教程专栏收录该内容

62 篇文章

订阅专栏

本文详细描述了如何在Windows程序中使用VisualBasic编程创建一个包含单选按钮和复选框的EXE工程，展示了四个事件处理子程序，当用户点击这些控件时更新Text1.Text显示相应的caption文本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

建立一个新的EXE工程，放两个单选，两个复选框如图33。

图33

输入代码：

Sub Form1_Check1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   Text1.Text = ""

   If Check1.Value Then

         Text1.Text="你喜欢"  & Check1.Caption

   End If

   If Check2.Value Then

      Text1.Text= Text1.Text & "你喜欢" & Check2.Caption

   End If

End Sub



Sub Form1_Check2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   Text1.Text = ""

    If Check2.Value Then

         Text1.Text="你喜欢"  & Check2.Caption

   End If

   If Check1.Value Then

      Text1.Text=Text1.Text & "你喜欢" & Check1.Caption

   End If



End Sub



Sub Form1_genda1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   If genda1.Value Then

      Text1.Text="你的性别为" & genda1.Caption

   End If

End Sub

Sub Form1_genda2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

      If genda2.Value Then

      Text1.Text="你的性别为" & genda2.Caption

   End If

End Sub