例37:爱好选择

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

图33

  1. 输入代码:

    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

相关推荐
顾北川_野2 分钟前
Android 手机设备的OEM-unlock解锁 和 adb push文件
android·java
江深竹静,一苇以航4 分钟前
springboot3项目整合Mybatis-plus启动项目报错:Invalid bean definition with name ‘xxxMapper‘
java·spring boot
GIS程序媛—椰子17 分钟前
【Vue 全家桶】7、Vue UI组件库(更新中)
前端·vue.js
weixin_4426434220 分钟前
推荐FileLink数据跨网摆渡系统 — 安全、高效的数据传输解决方案
服务器·网络·安全·filelink数据摆渡系统
confiself20 分钟前
大模型系列——LLAMA-O1 复刻代码解读
java·开发语言
DogEgg_00123 分钟前
前端八股文(一)HTML 持续更新中。。。
前端·html
Wlq041525 分钟前
J2EE平台
java·java-ee
ZL不懂前端26 分钟前
Content Security Policy (CSP)
前端·javascript·面试
木舟100930 分钟前
ffmpeg重复回听音频流,时长叠加问题
前端
XiaoLeisj32 分钟前
【JavaEE初阶 — 多线程】Thread类的方法&线程生命周期
java·开发语言·java-ee