| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 576 人关注过本帖
标题:关于单选和复选控件
只看楼主 加入收藏
lkuy001
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2009-10-15
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:3 
关于单选和复选控件
图片附件: 游客没有浏览图片的权限,请 登录注册

我是刚学VB的,上面的一个小程序。如果先选单选控件后选复选控件运行程序时错误。先选复选控件后先单选控件程序就能够运行。想问一下大家单选控件和复选控件选择有先后顺序吗?
搜索更多相关主题的帖子: 控件 复选 
2009-11-08 18:55
Jian_X
Rank: 4
等 级:业余侠客
威 望:1
帖 子:51
专家分:212
注 册:2009-10-23
收藏
得分:3 
要看你的源程序,单选和复选是没有先后顺序的
2009-11-08 20:51
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:3 
程序代码:
Option Explicit

Private Sub Command1_Click()
    Select Case True
    Case Option1.Value
        '...
    Case Option2.Value
        '...
    Case Option3.Value
        '...
    End Select
    
    If Check1.Value = 1 Then
        '...
    End If
    If Check2.Value = 1 Then
        '...
    End If
    If Check3.Value = 1 Then
        '...
    End If
End Sub

2009-11-08 21:29
msgj
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:190
专家分:914
注 册:2009-10-3
收藏
得分:3 
左侧的字体可以赋右侧的三种字体属性,程序的结构也没有错误,就看你的字体属性赋值代码了:

    Case Option1.Value
        Text1.Font.Name = "Arial"
    Case Option2.Value
        Text1.Font.Name = "Modern"
    Case Option3.Value
        Text1.Font.Name = "Times New Roman"
    End Select

    If Check1.Value = 1 Then
        Text1.Font.Bold = True
    End If
    If Check2.Value = 1 Then
        Text1.Font.Italic = True
    End If
    If Check3.Value = 1 Then
        Text1.Font.Underline = True
    End If
2009-11-08 22:06
快速回复:关于单选和复选控件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047596 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved