departure19841030-CSDN博客

转载动态添加控件的事件可以写在类中

本文主要介绍的是，如何对PropertyGrid中某个属性定义下拉框的功能。如下图所示。建立一个简单的Class并和PropertyGrid关联打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows

2010-02-20 15:30:00 786

转载用 PropertyGrid 实现 Visual Studio 2005 样式的属性窗口 (Properties Window)

在 Visual Studio 里，有一个很好用的东西，就是属性窗口 (Properties Window)，如下图所示。属性窗口列出了一个对象所有可见的属性，你可以浏览和修改属性，非常方便。如何用 Visual Basic 2005 实现这样一个属性窗口呢？我们可以用 VB 2005 提供一个现成的控件，叫做 PropertyGrid，来实现属性窗口。PropertyGrid 控件的

2010-02-20 14:04:00 2397

转载求多边形面积三角形分割法

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 3572 1

原创斜率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 4472

原创正则表达式示例

判断是否匹配字符串为整数或空 Regex.Match(String, "^/d*$").Success判断是否匹配字符串为整数或小数或空 Regex.Match(String, "^/d*/.?/d*$").Success判断是否匹配字符串为回车符 Regex.Match(String, "/n").Success

2009-11-05 00:11:00 814

转载 VB.NET 数组的定义动态使用多维数组

我们都知道在所有程序设计语言中数组都是一个非常重要的概念，数组的作用是允许程序员用同一个名称来引用多个变量，因此采用数组索引来区分这些变量。很多情况下利用数组索引来设置一个循环，这样就可以高效地处理复杂的情况，因此在很多情况下，使用数组可以缩短或者简化程序的代码。本文主要介绍VB.NET数组的使用，希望对大家的使用带来帮助。数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，

2009-11-04 00:32:00 64022 4

原创 Cobol 与 ProCobol

每本 Cobol 程序都分为四大部分标识部：IDENTIFICATION DIVISTION.PROGRAM-ID. 程序名AUTHOR. 制作者DATE-WRITTEN.

2009-10-28 21:20:00 1363

原创在一个类中的事件中触发其他类的对象的事件

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 1096

原创 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 6834 1

原创如何在程序运行中动态改变对象属性在PropertyGrid可见性和只读属性

以下两个方法分别实现可见性和只读属性的动态改变： void SetPropertyVisibility(object obj, string propertyName, bool visible) { Type type = typeof(BrowsableAttribute); PropertyDescriptorCollection props = TypeDescriptor.GetProp

2009-10-23 20:07:00 6034 4

转载遍历 XML 文件所有节点的实例代码(递归调用)

这个示例演示如何载入一个 XML 文件，然后遍历该 XML 文件的所有节点，并用 Textbox 显示该 XML 文件每个节点第一个属性的值。准备一个 XML 文件准备一个 XML 文件，内容如下，将其存为 C:/menu.xml。创建项目 (Project) 和添加控件打开 Visual Studio 2005。在文件 (Fi

2009-10-23 18:22:00 1865

原创动态添加控件的事件可以写在类中

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 417

转载水晶报表管理组件程序集

Crystal Reports 管理组件包括： - CrystalDecisions.CrystalReports.Engine - CrystalDecisions.Shared - CrystalDecisions.Reportsource - CrystalDecisions.Web - CrystalDecisions.Windows.Forms所有 Crystal Reports 管

2009-10-20 15:24:00 780 1

原创求文本中求回车的个数

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 368

原创匹配整数或小数

^/d*/.?/d*$ /d*/.?/d*去掉字符串头尾 /d* 匹配重复零个或多个0-9的数 /.?匹配零个或一个转义字符小数点 /d*匹配重复零个或多个0-9的数

2009-10-20 13:45:00 599

转载 Vista下sql2005附加数据库失败问题

Vista下安装SQL Server 2005/2008后，进行附加数据库错误的解决我在Vista下安装了SQL Server 2005，分离数据库后，进行附加时，发生如下错误：提示“无法打开物理文件…………。操作系统错误 5:"5(拒绝访问。)"(Microsoft SQL Server，错误：5120) 网上很多都是说出现该问题是由于用混合验证方式登录数据库造成的，只要

2009-10-20 13:42:00 605

转载水晶报表中加载本地图片

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 859

转载水晶报表中动态添加字段

水晶报表中，因为数据源的字段是不固定的，可否在运行时动态添加字段，就象在winform中动态添加控件一样？（更新：2003-11-05）——————————————————————————————————————解决方案：用“公式字段”1、根据字段的最大数量，定义若干个“公式字段”，FormulaFeild1、FormulaFeild2……，公式为空；2、把“公式字段”按顺序放在“详细资料”里

2009-10-20 13:03:00 762

转载水晶报表设计嵌入式开发

2009-10-20 12:59:00 1148

小河的专栏