自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

小河的专栏

时间太瘦 指间太宽 一切从今往后   すべてはこれからだよ

  • 博客(19)
  • 收藏
  • 关注

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

本文主要介绍的是,如何对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

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

版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明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 1148

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除