单选按钮和复选框vb设计题
答:Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click()Text1.ForeColor = vbRed End Sub Private Sub Option3_Click()Text1.ForeColor = vbBlue End Sub
答:If Check2.Value = 1 Then Text1.Text = "您说向往的国家是:" & Check2.Caption End If If Check3.Value = 1 Then Text1.Text = "您说向往的国家是:" & Check3.Caption End If End Sub 就可以了。第二题的4个单选按纽的控件数组可以采用复制粘贴的方法获得 Private Sub Option1_Clic...
答:与复选框不同,单选按钮(也称作“选项按钮”)始终作为一个组的一部分工作。选中一个单选按钮会立即清空该组中所有其他单选按钮。定义单选按钮组将告诉用户:“这是一组选项,您可以从中选择一个而且只能选择一个。” 我们可以使用成组的 RadioButton 控件以使用户能在互斥的选项之间进行选择。例如,您...
答:1、标签(label)、文本框(textbox)、框架(frame)、单选按钮(option)、复选框(checkbox)、commandbutton(命令按钮)2、程序的设计也很简单:如果单选按钮和复选框不是控件数组,程序如下:Private Sub command1_click()Dim zc As String, ah As StringIf Check1.Value Then ah = Frame2.Caption & C...
答:假设文本框名称为Text1,单选按钮“宋体”名称为Option1,单选按钮“黑体”名称为Option2,复选框“下划线”名称为Check1,复选框“斜体”名称为Check2.按钮的单击代码如下:If Option1.Value=True Then Text1.Fontname=“宋体"else Text1.Fontname=“黑体"End If If Check1.Value=1 Then Text1....
答:Private Sub Button1_Click(ByVa l sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim aihao As String, Sex As String, zhengzhi As String aihao = "爱好:"Sex = "性别:"zhengzhi = "政治面貌:"If CheckBox1.Checked = True Then aihao = aihao + ...
答:'确定按钮 Private Sub Cmdok_Click()If Chksize.Value = 1 Then Txtshow.FontSize = 32 Else End If If Chkfont.Value = 1 Then Txtshow.FontName = "隶书"End If If Chkstyle.Value = 1 Then Txtshow.FontUnderline = True Else Txtshow.FontUnderline = False End If End Sub 以此类...
答:新建三个单选按钮,三个为一个控件数组(即同名)第一个是粗体,第二个是斜体,第三个是粗斜体 新建两个复选框,两个为一个数组,第一个是下划线,每二个是删除线 代码如下:Option Explicit Private Sub Check1_Click(Index As Integer)Text1.Font.Underline = Check1(0).Value Text1.Font....
答:Click()S = S & Command2.CaptionEnd SubPrivate Sub Command3_Click()S = S & Command3.CaptionEnd SubPrivate Sub Form_Click()ClsPrint SS = ""End SubPrivate Sub Form_Load()Command1.Caption = "周一"Command2.Caption = "开心"Command3.Caption = "伤心"End Sub如图所示 点击完按钮...
答:如果你那程序各种选择都要在按下确定按钮后才有效果,则所有的选单按钮与复选择按钮都不要与文本框关联,另外编过程吧。If Option1.Value = True Then '表示选中它 Option1.Value = False '表示没有选中它 Text1.FontName = Option1.Caption '文本框的字体名称 End If If OptionName(0).Value ...
网友评论:
鲁艳15212733928:
请帮我写点vb6.0代码,窗体包含一组单选按钮、一组复选框...题目接下、、、 -
13591步蒋
: 新建三个单选按钮,三个为一个控件数组(即同名)第一个是粗体,第二个是斜体,第三个是粗斜体 新建两个复选框,两个为一个数组,第一个是下划线,每二个是删除线 代码如下:Option Explicit Private Sub Check1_Click(Index As Integer) ...
鲁艳15212733928:
【VB题】在下列关于单选按钮和复选框的说法中,错误的是() -
13591步蒋
: A ,既然叫复选框,就是可以重复选取多个.所以不可能只能有一个处于选中状态
鲁艳15212733928:
VB中复选框跟单选按钮 -
13591步蒋
: dim str1,str2,str3 as str check1:if check1.value=1 then str1=check1.caption else str1="" end if command1:text1.text="xxx" & str option1:text1.backcolor=rgb(0,255,0)
鲁艳15212733928:
vb6.0判断其他窗口单选按钮和复选框的状态 -
13591步蒋
: 在前面加上落在的窗体name即可,如: form1.Label1.Caption=""
鲁艳15212733928:
vb题:设计一个窗体,利用单选和复选框控制字符串的显示结果,运行时如图 -
13591步蒋
: 这里很多人都太现实了,看你不送分,就懒得帮你,世态炎凉哦~~创建窗体,先放一个label标签,再放两个frame框架,往第一个框架里放三个checkbox复选框,往第二个框架里放三个optionbutton单选框,不需要做任何属性设置,程序会做处...
鲁艳15212733928:
求用VB编程编选择题 -
13591步蒋
: 点Frame按钮,创建Frame 框.在Frame 框里,再创建Label框编题目、创建单选按钮Option编选项选择框,在单选按钮Option编选项选择框后面继续用Label框编答案. 结合编程,设计、计算结果.记得要在模块里创建变量.
鲁艳15212733928:
VB编程题 关于单选按钮数组 -
13591步蒋
: 你要的程序代码来了,已经验证OK!!! Private Sub op1_Click(Index As Integer) Select Case Index Case 0 Text1.Text = "我坐飞机去" Case 1 Text1.Text = "我坐火车去" End Select End Sub 以后共同学习!!!
鲁艳15212733928:
vb编程题每单击命令按钮一次,就选中下一个单选按钮 -
13591步蒋
: 代码如下:Option Explicit Private Sub cmd1_Click() If opt1(0).Value = True Then opt1(1).Value = True ElseIf opt1(1).Value = True Then opt1(2).Value = True ElseIf opt1(2).Value = True Then opt1(3).Value = True ElseIf opt1(3).Value = True Then opt1...
鲁艳15212733928:
VB实现点击命令按钮将对单选(复选)按钮的选择状态显示在文本框中的代码 -
13591步蒋
: Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim fuxuan As CheckBox = New CheckBox Dim danxuan As RadioButton = New RadioButton fuxuan.Parent = Me danxuan.Parent = Me fuxuan.Location = New ...
鲁艳15212733928:
VB 应用单选按钮和复选框实现文字效果设置. 菜鸟一只,请高手指点 -
13591步蒋
: Text1.FontBold = True '加粗 Text1.FontItalic = True '斜体 Text1.FontSize = 18 '字号 Text1.ForeColor = RGB(0, 0, 0) '黑色字体