2005年06月_hamadou

原创全局异常处理（存档）

Module Module1 _ Sub main() AddHandler Application.ThreadException, AddressOf application_threadexception Application.Run(new form1()) End Sub Sub application_threadexcept

2005-06-28 17:33:00 1182

原创监视光标的程序（摘选存档）

重载Form的ProcessDialogKey,代码参考如下: protected override bool ProcessDialogKey(System.Windows.Forms.Keys aKey) { if (aKey == Keys.Left || aKey == Keys.Right) { MessageBox.Show("Left/Right Key");

2005-06-28 17:28:00 985

原创简单地实现在文本框中的输入是大写的。

说它简单是因为只有两行，而且没有使用我在以前达到这种目的所用的sendkeys.send方法。Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Me.TextBox1.Sel

2005-06-27 17:04:00 1281 1

转载收藏列表1

CSDN关于模式的讨论http://www.csdn.net/subject/281/使用Visual C#制作可伸缩个性化窗体（纯粹绘制出来的标题栏效果）http://www.microsoft.com/China/Community/program/originalarticles/TechDoc/csharpui.mspx.net控件网http://www.dnc.com.cn/

2005-06-27 15:13:00 1035

原创主从表的报表（简单范例）

注意：要配置xsd架构，和对应的强类型的datasetPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New SqlConnection("server=localhost;database=Northwind;

2005-06-27 09:30:00 1414

原创容器中控件的拖动（从一个容器到另一个容器）

Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown Me.PictureBox2.DoDragDrop(sender, DragDropEffects.Mov

2005-06-27 08:56:00 2282

原创设置tabcontrol控件选项卡的字体为竖着的。

Private tabArea As Rectangle Private tabTextArea As RectangleF Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TabControl1.DrawM

2005-06-27 08:55:00 2332

原创一种包含类似如下字段的分割SQL语句。

如：aa|bb，如果aa和bb是不定长的用如下语句分割他们select x.fa,x.fb,x.fc ,x.fd ,substring(x.fd,1,(select charindex(|,y.fd) from t1 y where x.fa=y.fa and x.fb=y.fb and x.fc=y.fc)-1)from t1 x

2005-06-27 08:53:00 1171

原创一种使用递归从数据库读取数据来动态建立菜单的方法

表结构与内容MenBh MenText Bhparent 0001 文件 0002 编辑 0005 打开 00010006 新建 00010011 access数据库 00

2005-06-27 08:50:00 1482 6

原创字符串根据多个字符进行分割的一种方法（使用split而不是regex.split更不是replace）

Dim s As String = "gtdfg123fdgdfs123dd123" Dim c() As Char = {"1", "2", "3"} Dim a() As String = s.Split(c) Dim p As String For Each p In a If p Then

2005-06-27 08:46:00 1328

原创运行时拉伸和移动控件的类。

Public Class Resize 移动了吗？ Private IsMoving As Boolean = False 控件最后的宽 Private ctrlLastWidth As Integer = 0 控件最后的高 Private ctrlLastHeight As Integer = 0 控件原来的宽 Private ctrlWi

2005-06-27 08:39:00 1189 1

原创使用反射实现根据名称动态创建窗体的几种方法。

‘方法1使用activator方法创建实例Dim str As String str = "Form2" 必须是命名空间+点+窗体类名（这里假设为命名空间为空） Dim tempAssembly As [Assembly] = [Assembly].GetExecutingAssembly() Dim t As Type = tempAssemb

2005-06-27 08:37:00 2268 3

原创正弦函数的绘制的一种方法。（坐标变换与放大）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim G As GraphicsG = PictureBox1.CreateGraphics()移动坐标原点(那么原点下就变成了(20,pictruebox1.height/2))G

2005-06-27 08:36:00 2407 1

原创竖着绘制文字

竖着绘制文字 Private Sub drawstringshu() Dim g As Graphics = Me.CreateGraphics Dim strformat As New StringFormat() strformat.FormatFlags = StringFormatFlags.DirectionVertical

2005-06-27 08:35:00 1357

原创可拖动的无标题栏窗体，并且可以通过拉拽改变窗体大小。

注意：要设置form的controlbox属性为false，特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As IntegerDim MousY As IntegerDim CurrX As IntegerDim CurrY As Integer Public Sub myMouseDown(ByVal sender As Object, ByVal

2005-06-27 08:32:00 1388 2

原创带颜色的listbox控件

Private Sub filllistboxwithcolors() Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed Me.ListBox1.ItemHeight = 24 避免闪烁 Me.ListBox1.BeginUpdate() ListBox1.Items.Clear

2005-06-27 08:29:00 1300

原创按钮列的应用。（在datagrid中加入按钮列,winforms）

Public Class mybuttondatagridtablestyle1 Inherits System.Windows.Forms.DataGridTextBoxColumn #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() 该调用是 Windows 窗体设计器所必需的。

2005-06-27 08:28:00 2108 1

原创设置窗体背景图片，并且让图片随着窗体的大小的调整而调整大小

Private r As RectangleF Private m_image As Image = Image.FromFile("g:/picture.bmp") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

2005-06-27 08:26:00 2992

原创在.net中调用存储过程的另一种方法。cmd.commandtype为commandtypetext

[存储过程]‘//////////////////////////////////////////////////////////////////////////////////////////CREATE PROCEDURE Test_procedure @cid int ,@y int, @n varchar(10) outputASselect * from city where cid=@

2005-06-27 08:23:00 1478

原创类似BOOLEAN列的DATAGRIDTEXTBOX的改进与重写

在这里我们来讲一篇关于如何进行数据列内容与显示操作的方法。这种方法类似于实现：有数据表test(id int not null primary key ,name varchar(20) ,sex bit ), 那么是否有方法不通过直接使用sql语句，如：select id ,name ,sex =case sex ( when true then ‘男’ when false then ‘女’

2005-06-27 08:20:00 761

闵峰的专栏