作者：绿色风
分类：
时间：2022-08-18
浏览：142
楼主
amulee |
VSTO中的CheckListBox是一个CheckBox的集合，可以自定义集合中的选项。
示例动画：
操作步骤：
1、创建一个Excel程序（[VSTO] 利用VSTO制作一个简单的Excel程序 http://www.exceltip.net/thread-21546-1-1.html
）
2、添加CheckListBox控件
3、更改属性，添加复选选项。
3、在工作表中添加以下代码：- Public Class Sheet1
- Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
- '获取当前单元格字体值给CheckedListBox
- If Target.Count = 1 Then
- With Me.CheckedListBox1
- '设置位置
- .Top = Target.Top + Target.Height
- .Left = Target.Left
- .Visible = True
- .SetItemChecked(0, Target.Font.Bold)
- .SetItemChecked(1, Target.Font.Italic)
- End With
- End If
- End Sub
- Private Sub Sheet1_Startup() Handles Me.Startup
- '设定只要选中就改变复选框的值，否则选中后才能改变
- Me.CheckedListBox1.CheckOnClick = True
- '隐藏
- Me.CheckedListBox1.Visible = False
- End Sub
- '复选框的值改变时发生。e就是点击的那个选项。
- Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
- If e.Index = 0 Then
- Me.Parent.parent.activecell.Font.Bold = e.NewValue
- Else
- Me.Parent.parent.activecell.Font.Italic = e.NewValue
- End If
- End Sub
- End Class
ItemCheck事件可以直接得到哪个选项发生了变化。
附件下载：
 VSTO中CheckListBox示例.rar
|
2楼
zm0115 |
阿木啥时候讲点VSTO基础啊，比如怎么安装VSTO2010.我装了一次木有成功！ |
3楼
amulee |
我一路默认，装了一次就成功了啊。只是安装过程太漫长了，装了大概1个小时，不想再尝试了。。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一