解决方案
文章平均质量分 70
hamadou
这个作者很懒,什么都没留下…
展开
-
类似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 · 771 阅读 · 0 评论 -
颜色下拉COMBOBOX控件(vb.net)
前不久,有位朋友发帖,寻求颜色选择的COMBOBOX 的制作方法,经过试验,整理了出来,仅供参考。(注:如有引用,请注明出处和作者) --闵峰原创 2005-08-06 14:34:00 · 4609 阅读 · 1 评论 -
控件的移动!
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 · 709 阅读 · 0 评论 -
取得光标在多行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 · 827 阅读 · 0 评论 -
在datagrid获得光标后,按tab键让其焦点移动到其他控件。
Public Class mytabdatagrid Inherits System.Windows.Forms.DataGrid ‘/////////////////////////////////////////////////////////////////////////////////////#Region " Windows 窗体设计器生成的代码 " Public原创 2005-03-22 08:50:00 · 1133 阅读 · 0 评论 -
字符串根据多个字符进行分割的一种方法(使用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 · 1338 阅读 · 0 评论 -
运行时拉伸和移动控件的类。
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 · 1197 阅读 · 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 · 1375 阅读 · 0 评论 -
可拖动的无标题栏窗体,并且可以通过拉拽改变窗体大小。
注意:要设置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 · 1416 阅读 · 2 评论 -
按钮列的应用。(在datagrid中加入按钮列,winforms)
Public Class mybuttondatagridtablestyle1 Inherits System.Windows.Forms.DataGridTextBoxColumn #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() 该调用是 Windows 窗体设计器所必需的。原创 2005-06-27 08:28:00 · 2145 阅读 · 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 · 3033 阅读 · 0 评论 -
简单地实现在文本框中的输入是大写的。
说它简单是因为只有两行,而且没有使用我在以前达到这种目的所用的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 · 1293 阅读 · 1 评论 -
容器中控件的拖动(从一个容器到另一个容器)
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 · 2302 阅读 · 0 评论 -
设置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 · 2382 阅读 · 0 评论 -
一种使用递归从数据库读取数据来动态建立菜单的方法
表结构与内容MenBh MenText Bhparent 0001 文件 0002 编辑 0005 打开 00010006 新建 00010011 access数据库 00原创 2005-06-27 08:50:00 · 1495 阅读 · 6 评论 -
使用反射实现根据名称动态创建窗体的几种方法。
‘方法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 · 2305 阅读 · 3 评论 -
在.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 · 1494 阅读 · 0 评论 -
一个使用用户控件(包括组件)的演示。
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 · 867 阅读 · 0 评论