Dim i, x1 As Double, y1 As Double, x2 As Double, y2 As Double Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 1 x1 = X y1 = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As S...

2008-02-23 06:49:30

-------------------------------------------------------------------------------------------------------------------------------------------------------- 钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子 N多人说：“哎，VB做钩...

2008-02-23 06:49:28

条形码作为一种机器可识别的图形，它能快速、准确地标识某种产品或商品，在许多数据库应用中起作很重要的作用，如超市收银、车站售票等场合。当某件物品上带有的条形码被条码扫描器正确解读后，将会得到该物品的唯一标识字符串，通过检索数据库我们就可以很容易知道它的...

2008-02-23 06:49:29

第三章：VB语言 本章提要： VB语法与Basic的异同 注释语句 长语句的分行 条件语句 循环语句 运算操作 数据定义与赋值 函数和过程 -------------------------------------------------------------------------------- 一、VB与Basic VB之所以叫做“Visual Basic”就是因...

2008-02-23 06:49:26

因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。 Public Functio...

2008-02-23 06:49:27

Public Class MyTextBox Inherits System.Windows.Forms.TextBox Private m_strValidText As String = "0123456789. -" Chr(13).ToString Private m_blnEditable As Boolean = True #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是...

2008-02-23 06:49:24

用VB代码实现方法 引用：无，部件：无 设计：在Form1中右下角加入一个CommandButton，名称默认为Command1，窗体的AutoRedraw属性设为True 窗体文件一：Form1 Option Explicit Private mBom As Collection '这是入口的集合 Private mBomReturn As Collection '这是出口...

2008-02-23 06:49:25

前几次为大家讲述了如何通过操作像素来实现一些简单的滤镜效果。这次想更大家讲述一下用灰度直方图均衡来调整图像的色彩空间。 先给大家介绍一下一些颜色的小常识。以电脑的颜色来说，颜色的组成是右红、绿、蓝三种颜色组成。以最容易的24位色来说，红色、绿色、蓝色各...

2008-02-23 06:49:22

在测试文件组件之前，我们必须先编译它。但在进行这项工作之前，让我们先来浏览一下Visual Basic所给出来的一些额外选项。 在打开FileCheck代码窗口的同时，我们来看看它的属性窗口。 属性有Name、DataBindingBehaviour(用于将类和数据源相"绑定")、可持久性(用于控件...

2008-02-23 06:49:21

用VB打造自己的SQL连接器 大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始 现建一个普通窗口..放上3个textBox控件. 一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass...为相应的控件起个好听地名字 还有1个按钮用来确定连接... 定义...

2008-02-23 06:49:20