- 博客(20)
- 收藏
- 关注
RSS订阅转载 动态添加控件的事件可以写在类中
本文主要介绍的是，如何对PropertyGrid中某个属性定义下拉框的功能。如下图所示。建立一个简单的Class并和PropertyGrid关联打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows
2010-02-20 15:30:00
827
转载 用 PropertyGrid 实现 Visual Studio 2005 样式的属性窗口 (Properties Window)
在 Visual Studio 里，有一个很好用的东西，就是属性窗口 (Properties Window)，如下图所示。属性窗口列出了一个对象所有可见的属性，你可以浏览和修改属性，非常方便。如何用 Visual Basic 2005 实现这样一个属性窗口呢？我们可以用 VB 2005 提供一个现成的控件，叫做 PropertyGrid，来实现属性窗口。PropertyGrid 控件的
2010-02-20 14:04:00
2461
转载 求多边形面积 三角形分割法
Rem 凸n变形可以看成是n-1个三角形的面积 Rem 三角形的面积S=sqr(p*(p-a)*(p-b)*(p-c))，其中，p=(a+b+c)/2，a、b、c为边长，边长=sqr((x1-x2)^2+(y1-y2)^2)，而(x1,y1)和(x2,y2)分别为两点的坐标值 Rem 以下代码为求任意多边形的面积，边数由用户自行决定 Private Sub Command1_Click()Dim
2009-11-05 20:05:00
3652
原创 斜率K的意义
夹角公式 设直线l1、l2的斜率存在，分别为k1、k2， l1到l2的转向角为θ,则tanθ=(k2- k1）/(1+ k1k2） l1与l2的夹角为θ，则tanθ=∣(k2- k1）/(1+ k1k2）∣。 直线的斜率公式：k=（y2-y1）/（x2-x1） 斜率就是X每增加1各坐标 Y增加K各坐标 45度的直线 斜率为1
2009-11-05 18:26:00
4679
原创 正则表达式示例
判断是否匹配字符串为整数或空 Regex.Match(String, "^/d*$").Success判断是否匹配字符串为整数或小数或空 Regex.Match(String, "^/d*/.?/d*$").Success判断是否匹配字符串为回车符 Regex.Match(String, "/n").Success
2009-11-05 00:11:00
843
转载 VB.NET 数组的定义 动态使用 多维数组
我们都知道在所有程序设计语言中数组都是一个非常重要的概念，数组的作用是允许程序员用同一个名称来引用多个变量，因此采用数组索引来区分这些变量。很多情况下利用数组索引来设置一个循环，这样就可以高效地处理复杂的情况，因此在很多情况下，使用数组可以缩短或者简化程序的代码。本文主要介绍VB.NET数组的使用，希望对大家的使用带来帮助。 数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，
2009-11-04 00:32:00
64251
3
原创 Cobol 与 ProCobol
每本 Cobol 程序都分为四大部分 标识部：IDENTIFICATION DIVISTION.PROGRAM-ID. 程序名AUTHOR. 制作者DATE-WRITTEN.
2009-10-28 21:20:00
1413
原创 在一个类中的事件中 触发其他类的对象的事件
Public Class Form4 Dim WithEvents t1 As New temp Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load t1.init() End Sub Private
2009-10-26 21:29:00
1128
原创 Addhandler addressof 不错的列子
Addhandler [Event],addressof [Sub or Function] 比如你有个button id：btnDemo 添加事件： Addhandler btnDemo.Click addressof btnclick sub btnclick() .......... end
2009-10-26 02:29:00
6969
1
原创 如何在程序运行中动态改变对象属性在PropertyGrid可见性和只读属性
以下两个方法分别实现可见性和只读属性的动态改变： void SetPropertyVisibility(object obj, string propertyName, bool visible) { Type type = typeof(BrowsableAttribute); PropertyDescriptorCollection props = TypeDescriptor.GetProp
2009-10-23 20:07:00
6436
1
转载 遍历 XML 文件所有节点的实例代码(递归调用)
这个示例演示如何载入一个 XML 文件，然后遍历该 XML 文件的所有节点，并用 Textbox 显示该 XML 文件每个节点第一个属性的值。准备一个 XML 文件准备一个 XML 文件，内容如下，将其存为 C:/menu.xml。 创建项目 (Project) 和添加控件打开 Visual Studio 2005。在文件 (Fi
2009-10-23 18:22:00
1921
原创 动态添加控件的事件可以写在类中
Public Class Form3 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a1 As New Mypicturebox Dim a2 As New Mypicturebox
2009-10-23 17:53:00
447
转载 水晶报表管理组件程序集
Crystal Reports 管理组件包括： - CrystalDecisions.CrystalReports.Engine - CrystalDecisions.Shared - CrystalDecisions.Reportsource - CrystalDecisions.Web - CrystalDecisions.Windows.Forms所有 Crystal Reports 管
2009-10-20 15:24:00
807
原创 求文本中求回车的个数
Dim CountEnter As Integer Dim MidString As String For i As Integer = 1 To Len(RichTextBox1.Text) MidString = Mid(RichTextBox1.Text, i, 1) If Regex.Match(MidString, "/n")
2009-10-20 13:46:00
409
原创 匹配整数或小数
^/d*/.?/d*$ /d*/.?/d*去掉字符串头尾 /d* 匹配重复零个或多个0-9的数 /.?匹配零个或一个 转义字符 小数点 /d*匹配重复零个或多个0-9的数
2009-10-20 13:45:00
631
转载 Vista下sql2005附加数据库失败问题
Vista下安装SQL Server 2005/2008后，进行附加数据库错误的解决我在Vista下安装了SQL Server 2005，分离数据库后，进行附加时，发生如下错误： 提示“无法打开物理文件…………。操作系统错误 5:"5(拒绝访问。)"(Microsoft SQL Server，错误：5120) 网上很多都是说出现该问题是由于用混合验证方式登录数据库造成的，只要
2009-10-20 13:42:00
637
转载 水晶报表中加载本地图片
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 查看CrystalReport1的定义可以查看对应的报表类 Dim crReportDocument As New CrystalReport1
2009-10-20 13:04:00
885
转载 水晶报表中动态添加字段
水晶报表中，因为数据源的字段是不固定的，可否在运行时动态添加字段，就象在winform中动态添加控件一样？（更新：2003-11-05）——————————————————————————————————————解决方案：用“公式字段”1、根据字段的最大数量，定义若干个“公式字段”，FormulaFeild1、FormulaFeild2……，公式为空；2、把“公式字段”按顺序放在“详细资料”里
2009-10-20 13:03:00
798
转载 水晶报表设计嵌入式开发
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明http://jens.blogbus.com/logs/7881887.htmlPublic Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.
2009-10-20 12:59:00
1180
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人