time 
设为首页】【收藏本站
当前位置: 主页 > 程序设计 > .net > VB.net > 列表



 
2010-12-08 21:31:33 | 好评(0) | 浏览(1780)
在上文 键盘监控的实现ⅠKeyboard Hook API函数 中介绍了键盘的Hook API函数。 重点就在按键消息处理函数 Private Function KeyboardHookProc( ByVal nCode As Integer , ByVal wParam As Integer , ByVal lParam As IntPtr) As Integer Dim MyKeyboardHookStruct As K...
 
2010-12-08 21:27:43 | 好评(0) | 浏览(2580)
在实际应用中,键盘监控是一种很常见的技术,它包括按键的记录、按键的过滤、按键的修改(映射)等。比方说,我们想统计用户的击键情况,这个就是按键的记录;我们想屏蔽某些系统键(例如Alt键、Win键),这个是按键的过滤;我们想改变按键的值,例如按下A,出来的是Z...
 
2010-05-25 10:53:38 | 好评(0) | 浏览(1240)
读 SICP 时,一直对非确定性计算比较感兴趣,今天终于有时间做了一个例子。发现用自动回溯的思想是可以很简单的实现的,呵呵。这个解法的代码还不完备,有很多缺陷,但是基本上可以说明问题了。 所谓的非确定性计算的典型例子是爱因斯坦谜题,比如这个: 贝克、库伯、...
 
2010-04-25 23:45:11 | 好评(0) | 浏览(2059)
在上文 GDI+绘制自定义行距的文本的三种方法。 中,介绍了绘制自定义行间距的多行文本的方法。 在第三种的方法中,启用了GdipDrawDriverString这个函数。这个函数可以定义每个字符的位置,这是它的优点。不过它的缺点也比较明显。一是它定义的字符位置是以字符的左下角...
 
2010-04-25 23:42:14 | 好评(0) | 浏览(2957)
在.NET中,绘制图形和文本用的是GDI+。 在实际的应用中,绘制多行文本是比较常见的,而且有时还要求在绘制多行文本时能指定文本的行间距。如下图: 注:由于图太大,只截了左边部分的图,右边有一小部分没有截图。 上面这个示意图。一共18行文字,每行52个文字,行间距...
 
2010-04-25 23:40:31 | 好评(0) | 浏览(1557)
了解C#的人对typeof这个关键字再熟悉不过了。它是获得对象的类别,返回值是type。 在VB2005中和typeof对位的是GetType。可是,GetType的使用却充满着魅惑性。先看看下面的代码。 Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs)...
 
2010-04-08 23:17:10 | 好评(0) | 浏览(1903)
计划写一个基于.NET Framework 4.0的基础结构,刚开始写数据访问基类就蒙了。当在以下代码后按回车,居然不再自动生成读写器代码(Get/Set)。 Public Property Database As Database 原来VB.NET 4.0增加了自动化属性特性,属性应用变为以下两种方式: Public Class Pe...
 
2010-04-04 01:10:23 | 好评(0) | 浏览(1069)
在实际的编程中,数组是运用很多的对象。象Array,List等都是对数组的一种封装。 我们看看下面两种的定义方法,能看出他们的区别吗? Dim tB1() As Byte Dim tB2() As Byte = {} 这两种都是定义一个字节数组,且数组里都没有元素。 不过下面两句话就能看出区别了。 Deb...
 
2010-03-28 00:32:00 | 好评(0) | 浏览(1349)
Imports System.Runtime.CompilerServices Public Module StringExtensions Extension() _ Public Function HalfSubstring( ByVal str As String , ByVal strLength As Integer ) As String strLength = strLength - 1 Dim newStr As String = String .Empty Dim p As...
 
2010-03-28 00:31:15 | 好评(0) | 浏览(1402)
Public Shared Sub Create( ByVal user As String , ByVal path As String ) Dim fSec As New DirectorySecurity My.Computer.FileSystem.CreateDirectory(path) fSec.AddAccessRule( New FileSystemAccessRule(user,FileSystemRights.FullControl,InheritanceFlags.Co...
 
2010-03-28 00:30:25 | 好评(0) | 浏览(1063)
做个网站管理的软件,首先是建立独立的帐号 Public Shared Sub Create( ByVal user As String , Byval password as String ) Dim localMachine As New DirectoryEntry( WinNT:// Environment.MachineName) Dim newUser = localMachine.Children.Add(user) ' 增加用户名...
 
2010-03-10 10:55:24 | 好评(0) | 浏览(4603)
平常用惯了C++和C#,使用VB就是觉得怪怪的。 在C#和C++中取整和取模使用的是 / 和 % 在VB是使用 \ 和 Mod int i = 200 / 30; int j = 200 % 30; C#代码转换为VB.net Dim i As Integer = 200 \ 30 Dim j As Integer = 200 Mod 30 有一个C#和VB.net代码转换网站 http://w...
 
2009-10-24 01:28:21 | 好评(0) | 浏览(1441)
相信电脑界的每个人都痛恨计算机病毒,她给我们带来了很多麻烦和损失,可你知道编写病毒的方法和过程吗?在此我仅以VB编写为例,揭开她的面纱。 用VB编写病毒需要考虑到如下几点: * 感染主机 首先染毒文件运行后先要判断主机是否以感染病毒,也就是判断病毒主体文件是...
 
2009-10-24 01:28:20 | 好评(0) | 浏览(1390)
sPath是所查找的文件夹的路径,list是返回的文件列表 Public Function GetAllFiles(ByVal sPath As String, list As Collection) Dim item As String Dim oPaths As New Collection item = Dir(sPath, vbDirectory) While Len(item) 0 If item “.“ And item “..“ Then...
 
2009-10-24 01:28:20 | 好评(0) | 浏览(1057)
问题: 我先把我的意思讲一遍: 假如把一个A工程编译后: 会在Debug目录中生成以下文件: A.Exe A.pdb A.xml 引用的common.dll 我在制作setup文件后,我想 生成一个这样的目录: A目录中: bin\common.dll A.Exe 但现在A.exe 和common.dll不在一级目录上,就出错. 解决: 项目...