骷髅会-北极熊-优快云博客

原创 VB.net 删除文件、文件夹

'这个应该是你要的。删除文件夹下面的所有内容：包括文件，文件夹。 Public Sub DeleteFoldeSubFF(ByVal fpath As String) Try For Each fd As DirectoryInfo In GetFolderS(fpath) DeleteFolder(fd.FullNa

2015-04-09 11:37:31 11760

原创 VB.NET TextBox的提示文字

VB.net 中，TextBox 控件如何显示提示文字？(密码输入框) 用灰色显示“请输入密码”，当鼠标点击的时候灰色的字就消失。当输入框中没有内容并且焦点离开输入框的时候又恢复提示文字。这样的效果经常见于网页当中，如果想把它放进Windows窗体中，请往下看其实是利用了Windows Vista中的新API，使用 SendMessage 函数向目标文本框发送EM_SETC

2014-12-24 18:40:22 4716

原创 vb.net中将图片存入SQL Server 2000并能读出来使用

在数据库中建一个Img表,其中包含一个Img字段,类型为Image或Binary'将Bytes存入数据库Dim Stream As New IO.MemoryStreamPictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Bmp)Stream.Flush()Dim Bytes As Byte() = Str

2014-12-22 12:18:45 1716

原创文件关联后vb.net 软件如何响应被关联文件的双击事件

Windows系统很早就加入了文件关联的功能，它大大增加了日常使用操作系统的便利性。所谓的文件关联就是指系统把指定扩展名的文件自动关联到相应的应用程序，比如.doc文件默认情况下就自动和Microsoft Word关联，当用户双击.doc文件的时候，系统会自动用Microsoft Word打开它。那如何让vb.net的程序去响应关联文件的打开操作？方式有二个：1、项目设置从Sub

2014-12-04 15:44:12 1623

原创通过SQL语句修改服务器时间

1、SQL Server 阻止了对组件 'xp_cmdshell' 的过程'sys.xp_cmdshell' 的访问 EXEC sp_configure 'show advanced options', 1--;RECONFIGURE WITH OVERRIDE --;EXEC sp_configure 'xp_cmdshell', 1 --;RECONFIGURE WITH OV

2014-11-27 11:31:26 999

原创 VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String Public Sub New(ByVal File As String) MyClass.XmlFile = File MyClass.mXmlDoc.Load(My

2014-11-27 11:14:44 10812

原创 VB.net 文件读取、写入、追加操作

Dim PathUserData As String = Application.StartupPath & "\实操统计sql.txt"TextTB.Text = System.IO.File.ReadAllText(PathUserData)‘或者用 System.IO.File.ReadAllText(PathUserData, System.Text.Encoding.UTF8)上面这

2014-11-27 10:49:46 27582

原创 VB.net 对MSSQL操作查、删、改三个常规操作

首先，需引用Imports System.Data.SqlClient.SqlExceptionImports System.Data.SqlClient

2014-11-24 10:00:54 1593

转载 VS2005中文输入法问题的总结

这不是一个新问题了，网上也不乏这方面的讨论，写出来也是为了理清自己的思路，难保以后不会碰到类似的问题。主要有两种表现：1、首次切换输入法失败的问题具体表现如下：比如有一个Form1上有一个TextBox1,两者的ImeMode属性都为NoControl。运行程序，弹出Form1，光标停留在TextBox1中，此时按下Ctrl+Shift或者Ctrl+Space打开输入法，会发现

2014-11-20 09:58:16 643

原创 .net My.Computer.Network 几个秒用

Dim isa As Boolean = My.Computer.Network.IsAvailable If isa = True Then LabelX2.Text = "目前网路连线正常!!" Else LabelX2.Text = "目前网路无法连线！！" End If

2014-11-16 19:04:22 1362

原创 sql server 单主键高效分页存储过程 (支持多字段排序)

Create PROC P_viewPage /* 适用于单一主键或存在唯一值列的表或视图 ps:Sql语句为8000字节,调用时请注意传入参数及sql总长度不要超过指定范围 */ @TableName VARCHAR(200), --表名

2014-11-14 09:10:49 706

登录https://mp.weixin.qq.com/ 后，在公众平台后台管理页面 – 开发者中心页，点击“修改配置”按钮，填写URL、Token和EncodingAESKey，其中URL是开发者用来接收微信服务器数据的接口URL。Token可由开发者可以任意填写，用作生成签名（该Token会和接口URL中包含的Token进行比对，从而验证安全性）。EncodingAESKey由开发者手动填写或随

2014-11-10 12:04:18 7795

原创 VB.net 打印机读取（选择）

’需要引用： Imports System.Drawing.Printing Dim prtdoc As New PrintDocument() Dim strDefaultPrinter As String = prtdoc.PrinterSettings.PrinterName ‘读取的是默认打印机名称 Dim strP

2014-11-07 14:10:49 2364

wang19850219的专栏