该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
刚写的渣代码......太冗余了....
Private Sub Check1斜体_Click()
If Check1斜体.Value = 1 Then
Text1.FontItalic = True
Else: Text1.FontItalic = False
End If
End Sub
Private Sub Check2粗体_Click()
If Check2粗体.Value = 1 Then
Text1.FontBold = True
Else: Text1.FontBold = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1红_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option2黄_Click()
Text1.ForeColor = vbYellow
End Sub
Private Sub Option318_Click()
Option318.Value = True
Text1.FontSize = 18
End Sub
Private Sub Option3蓝_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Option420_Click()
Option420.Value = True
Text1.FontSize = 20
End Sub
Private Sub Option4绿_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option512_Click()
Option512.Value = True
Text1.FontSize = 12
End Sub
Private Sub Option616_Click()
Option616.Value = True
Text1.FontSize = 16
End Sub

满意答案
RX7810
2013.05.24
采纳率：40%    等级：12
已帮助：10400人
首先设置text1的multiline属性设置为true(允许多行显示,这点非常重要)
然后在check1的click事件下写
if check1.value=1 then
text1.text="您好"
end if
再在"check2的click事件下写
if check2.value=1 then
text1.text=text1.text & vbcrlf & "谢谢"
end if
你究竟要达到什么效果呢，点一个check显示下一个check？
这样的话给你个示例，其他的照着弄就是了
在check1的click下写：
if check1.checked=true then
text1=check1.caption & vbcrlf & check2.caption]
建议你弄一个check的控件数组(选中一个，然后复制粘贴)
然后再check的click事件下写
if  index mod 2= 0 then'双号
text1=text1 & vbcrlf & check1(index).caption & vbcrlf & check1(index+1).caption
end if
找这种方法做就是了，自己在动脑经想想就能搞定了
10分享举报

从VB6到VB2010除了功能的强大，也可以看到Microsoft对于细节的重视，例如，不少控件的属性就做了细微的调整。
如:
1. Option的Value 属性更改为Checked，也就是说原来的
Option1.Value
在VB2010中，就应该写成
Option1.Checked
他们的值均是Boolean, 可以为True, 也可以为False, 但是很明显Checked更符合选中的意思。
2. Label的Caption属性更改为Text, 也就是说原来的
Label1.Caption
在VB2010中，就应该写成
Label1.Text
* 不过，这个更改个人到不是很赞成。因为原有的Caption类的属性都是不可以在运行状态更改的，而Text属性即是可以在运行状态修改的，二者有明显的区分。例如: Label1.Caption, Frame1.Caption和Text1.Text, Combo1.Text。

3. Me.Caption升级到Me.Text。
4. Me.hwnd 升级为Me.Handle 但是因为变量升级，所以要写成Me.Handle.ToInt32。
5. List.Selected 已经升级为List.SetSelected ，同时语法略有修改
原来的List.Select(index)=True
现在要写成 List.SetSelect(index, True)
6. Combo1.ListIndex 升级为Combo1.SelectedIndex。 此升级使表意更清晰，因为Combo Box的ListIndex确实就是Selected 的Index。
7. Image.Picture 升级为Image.Image ，感觉不升级的好，但是。。。ms是老大，他说了算。
8. MSFlexGrid1.ColWidth(0) = 300 升级为: MSFlexGrid1.set_ColWidth(0, 300)
9. Check1.Value 升级为：Check1.CheckState
10. Me.Move竟然被升级成Me.SetBounds，好难懂。。。 
 

一.optionbutton与checkbox

1.在同一个窗体内增添了多个单选框，系统默认每次只选中一个单选按钮，若是选择一个框架Frame，那么则是在这个框架之内，每次选中一个单选按钮。

2.判定option按钮是否被选中，需要判定option（i）.value的值，若为True，则选中，若为False，则未被选中，或者根据option.item（i）所得出的结果，同理，为True选中，为False则未选中。

3.若是创建了option控件数组，那么控件数组的个数为option.count。

4.列表框列表项目从0开始，而计数的个数从1开始进行计数。

5.optionbox与checkbox同理
二.combobox与listbox

1.要知道combobox与listbox项目个数，为combobox.listcount来确定，而项目名单为combobox.LIST(I)来进行确定。

2.listbox列表框的添加删除用一段程序表示

Private Sub Form_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Text1.Text = InputBox(“请输入要添加的项目”)

List1.AddItem Text1.Text

End If
If Button = 2 Then
    Text1.Text = InputBox("请输入要删除的项目")
    For i = 0 To List1.ListCount
        If List1.List(i) = Text1.Text Then
            List1.RemoveItem i
        End If
    Next i
End If

End Sub
程序中单击鼠标左键添加列表项目，单击鼠标右键删除列表项目