hamadou-优快云博客

原创颜色下拉COMBOBOX控件(vb.net)

前不久，有位朋友发帖，寻求颜色选择的COMBOBOX 的制作方法，经过试验，整理了出来，仅供参考。（注：如有引用，请注明出处和作者） --闵峰

2005-08-06 14:34:00 4664 1

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

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 1219

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

重载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 1024

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

说它简单是因为只有两行，而且没有使用我在以前达到这种目的所用的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 1318 1

转载收藏列表1

优快云关于模式的讨论http://www.youkuaiyun.com/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 1068

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

注意：要配置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 1460

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

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 2334

原创设置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 2472

原创一种包含类似如下字段的分割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 1204

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

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

2005-06-27 08:50:00 1515 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 1361

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

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 1222 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 2335 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 2557 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 1399

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

注意：要设置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 1450 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 1424

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

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

2005-06-27 08:28:00 2182 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 3082

原创在.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 1518

原创类似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 794

原创通过例子，浅谈反射(Reflection)的应用

通过例子，浅谈反射(Reflection)的应用说明：应该说这篇短文根本算不上什么深入的分析性的文章，所以在标题前加上了“浅谈”二字，希望对于一般的读者来说，可以给你一个相对直观些的对反射的认识。 --2005/05/23 于东莞在这里对反射以及反射的概念在最后给出简要的解释。一

2005-05-24 15:17:00 1787

原创一个使用用户控件（包括组件）的演示。

1.Imports System.ComponentModelPublic Class pic Inherits System.Windows.Forms.UserControl#Region " Windows 窗体设计器生成的代码 " UserControl1 重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dis

2005-04-21 10:02:00 894

原创禁止调整列宽

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

2005-04-21 09:49:00 1360

原创控件的移动！

Dim MousePos2 As Point 定义鼠标位置变量 Dim draging As Boolean = False Dim DragRect As Rectangle Private Sub Button2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEven

2005-03-24 17:08:00 735

原创用户控件--带背景色的菜单！

Imports System.ComponentModelPublic Class myMenuItem Inherits System.Windows.Forms.MenuItem #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() 该调用是 Windows 窗体设计器

2005-03-24 17:04:00 933 1

原创 form数组！

1．创建form数组（控件数组）Public Class FormsCollection Inherits CollectionBase Public Shadows Function Add(ByVal FormObject As Form) As Form MyBase.List.Add(FormObject) Return FormObject End Function Public Sha

2005-03-24 17:03:00 1405

原创用户控件--（XP风格的按钮）

Imports System.DrawingImports System.ComponentModelPublic Class winxpbutton Inherits System.Windows.Forms.Button Private my_mouseDown As Boolean = False 鼠标按下 Private my_mouseHover As Bool

2005-03-24 16:59:00 1383 2

原创在richtextbox中每行输入字符数量的限制。（不完全！）

Imports System.ComponentModelPublic Class myrichtextbox Inherits System.Windows.Forms.RichTextBox #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() 该调用是 Wind

2005-03-24 16:56:00 2121

原创在VB.NET环境下如何判断INsert,NumLock等键盘的状态。

Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArg

2005-03-24 16:54:00 1819

原创用户控件--控制一个文本框只允许输入固定多个字符（按照字节计算）

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

2005-03-24 16:50:00 1424 1

原创取得光标在多行textbox中的行和列

Public Function checkrow() As String Dim row As Integer = Me.TextBox1.SelectionStart Dim i As Integer Dim p As Integer Dim count As Integer = 0 Dim count1 As Intege

2005-03-24 16:47:00 871

原创在datagrid获得光标后，按tab键让其焦点移动到其他控件。

Public Class mytabdatagrid Inherits System.Windows.Forms.DataGrid ‘/////////////////////////////////////////////////////////////////////////////////////#Region " Windows 窗体设计器生成的代码 " Public

2005-03-22 08:50:00 1157

原创 VB.NET中制作图片按钮

图片按钮：思路：很简单，就是在一个picturebox控件上放置一个button控件，然后将这个button添加进picturebox上（确保先拖拽picturebox,后拖拽button）,设置这个button的背景色（这个时候是相对于picturebox）为透明。 Imports System.ComponentModelPublic Class picturebutton Inher

2005-03-15 11:18:00 2771

原创 [关于判断输入数据是否在数据库中的方法。]

[关于判断输入数据是否在数据库中的方法。]问题：假如你想输入一个用户姓名，那么如何判断该姓名在数据库中是存在的呢；或者你输入了一个密码，如何判断它是正确的呢？我在这里总结了几种：1. 使用find()方法读出数据到一个datatable,给它建立主键。然后定义一个datarow变量，使其等于datatable.find（“输入的待判断的值对应的主键”）如果该行存在，再取得这行的其他字段的

2005-01-20 16:50:00 2890

原创 [一个登录窗体的完整范例，包括登录，密码更改，输入错误三次退出]

[一个登录窗体的完整范例，包括登录，密码更改，输入错误三次退出] 2004-12-31 运行效果如下：（请参考设置窗体布局）（登录主窗体效果）（修改密码窗体效果）控件名称说明：‘cboUser就是图中的combobox控件 Public Class frmLogin Inherits System.Wind

2005-01-20 16:49:00 2447

原创关于如何操作其他窗体的控件或变量的方法

关于如何操作其他窗体的控件或变量的方法！其实解决的方法有很多，在这里只做简单的总结。对于其他方法，请多指教！1．定义全局变量其实这个方法比较简单也很好理解，我们只要在一个module里面定义了两个全局变量就可以了。例如：public frm1 as new form1() Public frm2 as new form2()这样，我们无论在哪里想访问就很容易了。但是，这样做会耗费比较

2005-01-20 16:48:00 1176

闵峰的专栏