闵峰的专栏

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

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

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

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

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/

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

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

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

如：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

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

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            

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

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

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

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

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

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

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

   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   

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

在这里我们来讲一篇关于如何进行数据列内容与显示操作的方法。这种方法类似于实现：有数据表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 ‘女’

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

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

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

   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

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

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

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

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

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

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

 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

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

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

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

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

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