全局异常处理(存档) 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
收藏列表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/
主从表的报表(简单范例) 注意:要配置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
设置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
一种包含类似如下字段的分割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
一种使用递归从数据库读取数据来动态建立菜单的方法 表结构与内容MenBh MenText Bhparent 0001 文件 0002 编辑 0005 打开 00010006 新建 00010011 access数据库 00
字符串根据多个字符进行分割的一种方法(使用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
运行时拉伸和移动控件的类。 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
带颜色的listbox控件 Private Sub filllistboxwithcolors() Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed Me.ListBox1.ItemHeight = 24 避免闪烁 Me.ListBox1.BeginUpdate() ListBox1.Items.Clear
按钮列的应用。(在datagrid中加入按钮列,winforms) 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