- 博客(34)
- 资源 (23)
- 收藏
- 关注
RSS订阅原创 ToolStrip工具条
ToolStrip工具条,可以添加按钮,然后修改按钮的DisplayStyle属性,可以设置工具按钮的图片形式或文字显示如果为IMAGE,要想修改其大小,可以设置ImageScaling=None,即可
2008-12-29 15:43:00
1135
原创 关于DateGridView控件
控件:DateGridView,button注意:添加DateGridView 控件后,"属性"-----"Columns"------添加8列,然后分别修改它们的"HeaderText",当然,它的ReadOnly必须为True代码: Shared i As Integer 定义一个静态变量 Private Sub Form1_Load(By
2008-12-28 13:31:00
3468
原创 把回车键转换成Tab键
把回车键转换成Tab键Private Sub TKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Enter
2008-12-27 14:54:00
1859
原创 TreeView三层节点
控件:TreeView代码: Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect MsgBox(TreeView1.Sele
2008-12-27 14:44:00
2536
3
原创 知道TreeView节点的内容
控件:treeview代码: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 1 To 20 Dim stt As New TreeNode()
2008-12-27 14:26:00
1223
转载 实现水晶报表的打印功能(网摘)
Imports System.DrawingImports System.Drawing.PenImports System.Drawing.FontImports System.Drawing.PointFImports System.Drawing.ColorImports System.Drawing.PrintingImports System.Win
2008-12-27 14:07:00
2049
原创 根据弹出式对话框的不同回答来处理
引入两个按钮,根据弹出式对话框的不同回答来处理控件:button1,button2代码:Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox("button2") End S
2008-12-27 13:46:00
940
原创 用VB.NET绘制GDI图形
用VB.NET绘制GDI图形 下面的例子通过重载Form1窗体的OnPaint()方法绘制GDI图形Protected Overrides Sub onpaint(ByVal e As System.Windows.Forms.PaintEventArgs)注释：/////////////绘制任意直线Dim g As Graphics = e.Graphics
2008-12-27 11:30:00
3598
原创 关于listbox,选择后,如何知道它的内容?
关于listbox,选择后,如何知道它的内容?控件:listbox代码: Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged For
2008-12-27 11:22:00
1329
原创 调试错误
利用调试窗口输出结果:1,利用Debug.Write m=64Dim i, j, k, m As Integer For i = 1 To 4 For j = 1 To 4 For k = 1 To 4 Debug.Print("The
2008-12-26 15:10:00
916
原创 图片(引入PictureBox),驱动器
显示图片代码:Dim path As String = "d:/我的文档/桌面/002.jpg" PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage 使图片自动适应Picturebox控件 PictureBox1.SizeMode = PictureBoxSizeMode.Au
2008-12-26 14:41:00
834
原创 颜色对象
利用.NET的COLOR结构代码: Dim mycolor As Color mycolor = Color.Violet Label1.ForeColor = mycolor用户自定义颜色对象Dim mycolor As Color mycolor = Color.FromArgb(255, 0, 0)
2008-12-26 14:28:00
1110
原创 ErrorProvider控件的使用
添加一个文本框,一个ErrorProvider,,当光标离开这个文本框时判断输入的是否是一个数据代码:Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
2008-12-26 14:04:00
1683
原创 IE浏览器
控件:WebBrowser,TreeView注意:修改WebBrowser的Anchor属性 TreeView的各个结点,以及结点的内容需要事先加入代码: Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeView
2008-12-26 13:54:00
1315
原创 VB.NET中实现控件数组的功能
控件:几个文本框textbox事件:TextBoxes_textchanged代码: Private Sub TextBoxes_TextChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles TextBox1.TextChanged, _ TextBox
2008-12-26 13:48:00
1757
原创 画笔对象,画刷对象
Dim mypen As New Pen(Color.Red, 10) 定义以红色为线条,10个像素粗的画笔对象 Dim g As Graphics = Me.CreateGraphics g.DrawEllipse(mypen, 10, 10, 100, 100) 画正圆--------------------
2008-12-26 12:45:00
1111
原创 直接在窗体上绘制二维文本/不加任何控件展现图像
Dim g As Graphics = Me.CreateGraphics Dim mybrush As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.Blue, Color.Yellow, Drawing2D.LinearGradientMode.Horizontal) Dim
2008-12-26 12:39:00
1084
原创 直线,贝塞尔,椭圆,多边形,圆(空心的与实心的)
Dim g As Graphics = Me.CreateGraphics Dim mypen As New Pen(Color.Red) mypen.Width = 5 g.DrawLine(mypen, 1, 1, 45, 45) g.DrawBezier(mypen, 15, 15, 30, 30,
2008-12-26 12:14:00
2075
原创 打开/保存文本框
打开文本框控件:OpenFileDialog代码:OpenFileDialog1.InitialDirectory = Application.ExecutablePath 初始目录为应用程序的可执行路径, OpenFileDialog1.DefaultExt = ".doc" 指定默认类型 OpenFileDialog1.F
2008-12-25 18:23:00
1100
原创 打印/剪贴板的利用/直接打印在窗体上
打印控件: PrintDialog代码PrintDialog1.ShowDialog()利用剪贴板Clipboard.SetText(RichTextBox1.Text) 复制 Clipboard.SetText(RichTextBox1.Text) RichTextBox1.Text = Right(RichT
2008-12-25 18:02:00
1135
原创 设置字体与颜色
设置字体控件:FontDialog,label注意:FontDialog1.showApply=true FontDialog1.showColor=true FontDialog1.showEffect=true代码: If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
2008-12-25 17:40:00
2071
8
原创 复制/粘贴/清除/撤销/全选
复制/粘贴/清除/撤销/全选控件:RichTextBOX 代码:RichTextBox1.Copy() 复制 RichTextBox1.Paste() 粘贴 RichTextBox1.Clear() 清空 RichTextBox1.Undo() 撤销 RichTextBox1.SelectAll()
2008-12-25 17:39:00
1536
原创 打开文件夹并显示路径
添加控件:FolderBrowserDialog,label,button代码: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If FolderBrowserDialog1.ShowDi
2008-12-25 17:16:00
1156
原创 动态添加treeview的节点
,动态添加treeview的节点主要控件:treeview,imagelist,button注意:treeview1.imagelist=imagelist1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clic
2008-12-25 17:12:00
2450
原创 IE浏览器
1,IE浏览器主要控件:TEXTBOX,WEBBROWSER,BUTTON代码: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate(TextBox1.Text
2008-12-25 17:01:00
891
原创 VB6浮雕效果源代码
Private Sub Command1_Click() Dim r2, g2, b2 As Integer Dim r1, g1, b1 As Integer Dim c1 As Long Dim c2 As Long Dim x0 As Integer Dim y0 As Integer Screen.MousePointer = 11 m
2008-12-25 10:18:00
1758
2
原创 简单IE浏览器的VB实现
五个按钮控件数组,一个WebBrowser控件Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 停止按钮trip: WebBrowser1.Stop Case 1 刷新按钮 WebBrowser1.Refresh Ca
2008-12-24 13:16:00
1338
1
原创 Visual Basic WinSock控件详细介绍
Visual Basic WinSock控件详细介绍 WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。 可能的用途 ·创建客户端应用程序，它能在信息到达中央服务器之前把用户的信息收集起来。 ·创建服务端应用程序
2008-12-24 10:53:00
3540
3
原创 一次简单的3389入侵过程
一次简单的3389入侵过程创建时间：2003-02-19文章属性：原创文章来源：中国欲网技术论坛--草哲文章提交：caozhe (cao610_at_yeah.net)我在网上看到很多很多教你如何如何入侵之类的文章，我觉得对于菜鸟来说根本是看不懂的！于是呢，我冒出个想法！想写篇简单点的，适合菜鸟的文章！把我学到的跟大家说一下~！要入侵，我建议你在win2000环境下来*作！首先，要入侵，你得
2008-12-24 10:33:00
2399
原创 给定"A","B","C","D",编程打印A(4,4)=24和A(4,2)=12所有的排列方式
Option ExplicitDim ss As String 最终生成的字符串Dim tt As Integer 生成结果的个数Private Sub Command1_Click()Dim i As Integer, j As Integer, m As Integer, n As Integer Cls 清屏 tt = 0 Pr
2008-12-16 19:04:00
1828
4
原创 2、8、10、16进制数相互转换的12种算法
Option Explicit2进制转换为10制数Public Function BinToDec(bin As String) As Long Dim i As Long For i = 1 To Len(bin) BinToDec = BinToDec * 2 + Val(Mid(bin, i, 1)) NextEnd Function10进制转换为2制数
2008-12-15 21:16:00
7790
原创 进制数转换器的VB算法实现(2/8/10/16进制数可以相互转换)
在VB6中新建一个工程,当前窗体默认为form1,添加一个框架控件frame、几个文本框控件text、几个标签控件label、两个timer计时器、三个按钮控件、添加一个窗体form2、一个模块module1、几个菜单项。然后将form1上的各个控件调至适当位置，并且更改它们的标题属性。注意：那四个文本框为文本框控件数组，分别为text1(0)，text1(1)，text1(2)，text1(3)
2008-12-15 21:08:00
12227
7
转载 木马万能查杀清除方法，木马专杀
木马万能查杀清除方法，木马专杀查杀木马，最关键的还是要知道“木马”的工作原理。相信你看了这篇文章之后，就会 成为一名查杀“木马”的高手了。1、“木马”万能查杀法“木马”程序会想尽一切办法隐藏自己，主要途径有：在任务栏中隐藏自己，这是最基本的办法。只要把Form的Visible属性设为False，ShowInTaskBar设为False，程序运行时就不会出现在任务栏中了。在任务管理器中隐形：将程序
2008-12-13 08:23:00
1587
转载 Visual Studio 2005/2008 打包方法示例
Visual Studio 2005/2008 打包方法示例 今天终于安装了一个Visual Studio 2005 Team Suite简体中文版，新建立了个工程感觉速度比2003快很多，而且界面设置功能也强大了很多，内置XP风格菜单和工具条。打包时可以自动检测.NET Framework 2.0并将其集成到安装包,而不像2003需要安装引导程序插件PluginInstaller.ms
2008-12-11 20:24:00
4388
系统集成项目管理工程师教程_第2版_带书签高清版
2019-03-18
sql批量造数据工具(安装包 + 源码)
2011-10-14
sql批量生成数据小工具(安装包)
2011-10-12
SQL小工具（安装包）
2011-10-10
RedGate SqlCompare使用简介说明
2011-10-09
IT业的简历模板(压缩包)
2008-12-26
vs2022 can not use git
2024-07-17
TA创建的收藏夹 TA关注的收藏夹
TA关注的人