代码改变世界

随笔分类 -  WinForm

使用DotNetMagic,开发高级系统界面

2007-07-15 17:51 by ruinet, 1833 阅读, 收藏, 编辑
摘要: DotNetMagic是一个非常实用漂亮的控件,具体可以在http://www.dotnetmagic.com下载demo最新版的已到5.o了,控件包括office 2007,office 2003,IDE 2005,Plain多个样式。里面有个非常实用的控件,就是能够向控件添加整个from,把from作为子控件。 阅读全文

.net中的4种事务总结

2007-07-15 12:47 by ruinet, 9877 阅读, 收藏, 编辑
摘要: 在一个MIS系统中,没有用事务那就绝对是有问题的,要么就只有一种情况:你的系统实在是太小了,业务业务逻辑有只要一步执行就可以完成了。因此掌握事务处理的方法是很重要,进我的归类在.net中大致有以下4种事务处理的方法。大家可以参考一下,根据实际选择适当的事务处理。1 SQL事务 sql事务是使用SQL server自身的事务:在存储过程中直接使用Begin Tran,Rollback Tran,Co... 阅读全文

一个简单的Socket 应用程序

2007-06-19 17:26 by ruinet, 1277 阅读, 收藏, 编辑
摘要: 用C#写的一个简单的Socket 在.net中的应用程序:实现效果如上:客户端发送一条消息,服务器端回应一条消息。这样更能随时知道消息发送出去是否被接收到. 实现的方法主要是用的.net同步Socket ,和线程技术。 服务器: 1) 定义一个Socket 用于监听: private Socket Listener; Listener =new Socket(Ad... 阅读全文

多线程窗口访问

2007-06-16 21:28 by ruinet, 622 阅读, 收藏, 编辑
摘要: 为了提高系统的响应速度,常常使用多线程获取数据并在控件中显示出来。但是在另一个进程中是不允许访问界面控件的。 如下面一段在另一线程中设置textbox1.的值,在运行时是会报错的: Thread One = new Thread(new ThreadStart(ThreadFuncOne)); Private Void ThreadFuncOne() { textBox1.txt="AA... 阅读全文

.net中使无窗体界面全屏显示时不挡住任务栏,或全屏显示

2007-05-11 17:17 by ruinet, 1694 阅读, 收藏, 编辑
摘要: 在.net中使无窗体界面全屏显示时不挡住任务栏,实现的方法是将窗体的大小设置为除了任务栏外的的屏幕大小在.net中有个方法可以直接获得这一值: Dim fullScreen As String s = Screen.FromRectangle(New Rectangle(0, 0, 0, 0)) Me.Width = s.WorkingArea.WidthMe.Height = s.Wor... 阅读全文

获得和修改配置文件的值

2007-05-10 20:06 by ruinet, 650 阅读, 收藏, 编辑
摘要: 在.net 程序中经常要用到xml配置文件来保存系统的设置,为了方便调用我写了两个方法获得和修改配置文件: ''' '''按key, 获得配置文件的值 ''' ''' key ''' 返回value属性的值 ''' Public Function GetValueConfigByKey()Function GetValueConfigByKey(ByVal Key As Str... 阅读全文

移动无标题栏的窗口

2007-04-25 15:04 by ruinet, 1422 阅读, 收藏, 编辑
摘要: 本来是想在vb.net中移动无标题栏的窗口的位置,找了很多资料,还是没能解决. 第1种方法:这种方法在vs2003中好象还可以,但是在vs 2005中会报错,实现代码如下 Public Const WM_NCLBUTTONDOWN = &HA1S Public Const HTCAPTION = 2 Public Declare Function SendMessage()Function ... 阅读全文

将数据从DataGridView导出到Excel

2007-04-23 11:20 by ruinet, 3320 阅读, 收藏, 编辑
摘要: 将数据从DataGridView导出到Excel,并设置是否要导出隐藏的列 Public Function ExportExcel()Function ExportExcel(ByVal dgv As DataGridView, ByVal IsOnlyVisible As Boolean) As Boolean Try Dim n, i, j, row, col As Int... 阅读全文

在水晶报表中插入子报表,并动态添加数据源

2007-04-03 17:20 by ruinet, 5774 阅读, 收藏, 编辑
摘要: 如图在主报表中插入两个自报表:下面一段代码就是实现: Dim AppTionPath As String = HttpContext.Current.Server.MapPath(HttpContext.Current.Request.ApplicationPath) Dim Path As String = AppTionPath & "\crTrip.rpt" '主报表 ... 阅读全文

应用VS2005 SQL事务和批量插入数据

2007-03-19 17:28 by ruinet, 1225 阅读, 收藏, 编辑
摘要: 1 '创建表 2dtAgenda = New DataTable 3 dtAgenda.Columns.Add("ID", GetType(System.Int32)) 4 dtAgenda.Columns.Add("FromDate", GetType(System.DateTime)) 5 dtAgenda.Columns.Add("ToDate", GetTy... 阅读全文

free web counter