VB单选按钮怎么显示标题呀

caption 写了 visible 也改为ture了还是没有是什么问题呀

第1个回答  2013-01-08
你把这个单选按钮控件的宽度属性width,改大一点??????追问

Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label1.FontItalic = Check2.Value
End Sub

Private Sub Check3_Click()
Label1.FontUnderline = Check3.Value
End Sub

这个运行时提示

怎么回事呀

追答

要求对象?
那很简单,你的窗体上就4个对象(控件),
现在,你的代码里用到的4个对象名分别是:
Check1

Check2

Check3

Label1

那你一一选中,看看名称符合吗?

本回答被提问者采纳

VB实现点击命令按钮将对单选(复选)按钮的选择状态显示在文本框中_百...
两个单选按钮将自动成为一个组,只有一个可以是选择状态(这个和“复选”按钮是不同的),但VB没有对这个“组”的管理,所以你需要遍历这两个单选按钮(多个选项也是同样处理),假设两个单选按钮名字为:opt1,opt2 If opt1.Value = vbChecked then Text1.Text = "你选择了第一个选项"Elseif o...

在VB中,怎么的代码设计会让我在单击一个单选按钮时,下面的TEXT出现check...
'先双击一个checkbox 再双击一个textbox 再添加一个Optionbutton这样checkbox就在下面不显示了 如果想要显示 代码如下:Private Sub Option1_Click()Check1.ZOrder 0 End Sub

VB常用属性
(1)Caption属性 设置显示标题,说明单选按钮的功能。默认状态下显示在单选按钮的右方,也可以用Alignment属性改变Caption的位置。 (2)Alignment属性 设置文字的对齐方式,其取值如下: 0(默认值):靠左对齐,即圆形按钮位于控件的左边,文字显示在右边。 1:靠右对齐,圆形按钮位于控件的右边,文字显示在左边。 (3)Value属性 ...

VB里面添加的单选按钮
两种方法,一种是在资源编辑器里点击一下要设置默认的单选按钮,再在属性栏里把Value属性改为True,另一种就是在form_load或form_active事件里加上 单选按钮名称.value=1

VB。NET的一个新手问题
radiobutton是单选按钮,各个按钮应该是互拆(也就是同一时刻只能选中一个)的,但需要通过分组来设置哪此radiobutton之间互拆。这就需要设置Group属性,将需要互拆的同一组radiobutton的Group属性设置为相同的数字即可。另外,groupbox本身具有分组的特性,所以,放在groupbox中的radiobutton就默认分在同一组;...

vb里用一个单选按钮怎么使文本框中字体变
Private Sub Option1_Click()Text1.FontName = "宋体"End Sub Private Sub Option2_Click()Text1.FontName = "黑体"End Sub Private Sub Option3_Click()Text1.FontName = "楷体"End Sub

VB 利用框架、单选按钮和复选框控件在文本框中显示不同的字体格式。程序...
如果你那程序各种选择都要在按下确定按钮后才有效果,则所有的选单按钮与复选择按钮都不要与文本框关联,另外编过程吧。If Option1.Value = True Then '表示选中它 Option1.Value = False '表示没有选中它 Text1.FontName = Option1.Caption '文本框的字体名称 End If If OptionName(0).Value ...

VB程序设计中,如果在单选按钮(option)上显示图形文件应设置单选按钮的什...
要设置两个属性:style=1 picture 选择文件

VB中,如何使单选钮初期不选中?
只要将这一组中的按钮Tabindex属性设置不要在最前面,比如说有文本框的话,把文本框的这属性设置为0即可.

VB如何设置弹出对话框
先把控件添加 caption属性设置好 如果你要每个单选按钮单机都会弹出这个对话框的话 这样写 弹出的内容可以根据自己需要修改 Private Sub Option1_Click()MsgBox "答对一半,5分",,"bingo!"End Sub Private Sub Option2_Click()MsgBox "答对一半,5分",,"bingo!"End Sub Private Sub Option3_Click()...

相似回答