提供3000多款全球软件/控件产品
针对软件研发的各个阶段提供专业培训与技术咨询
根据客户需求提供定制化的软件开发服务
全球知名设计软件,显著提升设计质量
打造以经营为中心,实现生产过程透明化管理
帮助企业合理产能分配,提高资源利用率
快速打造数字化生产线,实现全流程追溯
生产过程精准追溯,满足企业合规要求
以六西格玛为理论基础,实现产品质量全数字化管理
通过大屏电子看板,实现车间透明化管理
对设备进行全生命周期管理,提高设备综合利用率
实现设备数据的实时采集与监控
利用数字化技术提升油气勘探的效率和成功率
钻井计划优化、实时监控和风险评估
提供业务洞察与决策支持实现数据驱动决策
转帖|其它|编辑:郝浩|2011-01-31 10:58:04.000|阅读 637 次
概述:.NET是Microsoft公司提供解决未来计算需要的工具。在.NET Framework中提供了许多控件,可以解决编程中用户界面的设计和实现,但在实际应用中可能需要对系统提供的控件进行改进,如下拉列表不能折行显示。本文将介绍用VB.NET实现下拉列表折行显示。
# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>
VB.NET有很多值得学习的地方,这里我们主要介绍VB.NET实现下拉列表,包括介绍控件进行改进等方面。
.NET是Microsoft公司提供解决未来计算需要的工具。在.NET Framework中提供了许多控件,可以解决编程中用户界面的设计和实现,但在实际应用中可能需要对系统提供的控件进行改进,如下拉列表不能折行显示。本文将介绍用VB.NET实现下拉列表折行显示。
设计能自动折行的下拉列表
VB.NET实现下拉列表,在ComboBox控件中每项占用一行,如果有选择项的内容长度超过下拉列表的宽度,则超过部分不显示,这样就可能造成用户所见的内容不完全而无法选择的情况。我们对该控件进行改进,当一行显示不完全某项时进行折行显示,为了防止用户将折行的项误认为是两个选择项,我们将不同的选项用相互间隔的颜色区分。类代码如下:
1.Public Class myComboBox
2.Inherits System.Windows.Forms.ComboBox
3.
4.#Region " Windows 窗体设计器生成的代码 "
5.…
6.#End Region
7.'下面代码用不同的颜色显示选项
8.Private Sub myComboBox_DrawItem(ByVal sender As Object,
ByVal e As _ System.Windows.Forms.DrawItemEventArgs) Handles MyBase.DrawItem
9.If e.Index < 0 Then Exit Sub
10.Dim txtColor As SolidBrush
11.Dim bgColor As SolidBrush
12.Dim txtfnt As Font
13.txtColor = New SolidBrush(Color.Black)
14.If e.Index / 2 = CInt(e.Index / 2) Then
15.bgColor = New SolidBrush(Color.White)
16.Else
17.bgColor = New SolidBrush(Color.LightYellow)
18.End If
19.If e.State And DrawItemState.Selected Then
20.txtColor = New SolidBrush(Color.Blue)
21.End If
22.e.Graphics.FillRectangle(bgColor, e.Bounds)
23.e.Graphics.DrawRectangle(Pens.Black, e.Bounds)
24.Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)
25.e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, txtColor, r)
26.End Sub
27.'下面代码计算每行选项需要的尺寸
28.Private Sub myComboBox_MeasureItem(ByVal sender As Object,
ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.MeasureItem
29.Dim lsize As SizeF
30.lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.Width, 200))
31.e.ItemHeight = lsize.Height
32.e.ItemWidth = lsize.Width
33.End Sub
34.End Class
以上介绍VB.NET实现下拉列表折行显示。
本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@pclwef.cn
文章转载自:网络转载面对“数字中国”建设和中国制造2025战略实施的机遇期,中车信息公司紧跟时代的步伐,以“集约化、专业化、标准化、精益化、一体化、平台化”为工作目标,大力推进信息服务、工业软件等核心产品及业务的发展。在慧都3D解决方案的实施下,清软英泰建成了多模型来源的综合轻量化显示平台、实现文件不失真的百倍压缩比、针对模型中的大模型文件,在展示平台上进行流畅展示,提升工作效率,优化了使用体验。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
服务电话
重庆/ 023-68661681
华东/ 13452821722
华南/ 18100878085
华北/ 17347785263
客户支持
技术支持咨询服务
服务热线:400-700-1020
邮箱:sales@pclwef.cn
关注我们
地址 : 重庆市九龙坡区火炬大道69号6幢