闵峰的专栏

前不久，有位朋友发帖，寻求颜色选择的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