Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer Private Declare Function GetMenu Lib "user32" (ByVa...

2008-02-23 06:53:28

一、 全屏幕图形界面设计 图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观，在软件开放过程中，图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置为无边框（BorderStyle=None），将窗体显示模式设置为极大化（Windowstate=Maximized）来实...

2008-02-23 06:53:29

在Windows系统中，满屏播放AVI文件同在窗口中播放AVI文件是不同的，在满屏播放的时候不需要屏幕上的颜色进行抖动，只需要将调色板设置为AVI文件所独有的就可以了，这是因为没有其它的窗口在背景中存在的缘故。 使用Windows 应用程序编程接口（API）的mciSendString函数...

2008-02-23 06:53:27

VisualBasic中的数据控件(datacontrol)能连接众多的数据库源并且操纵简便，用来开发数据库管理应用程序，可以轻而易举地完成以前需要大量编写程序才能完成的任务。 使用其缺省数据库(Access格式)的二进制类型(Binary)字段来存放图形图像数据可建立包含图像的数据库，只...

2008-02-23 06:53:26

MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象还缺少什么！对！还差 MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事件，必须用 API 函数： Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long...

2008-02-23 06:53:26

将RGB想成3D之X,Y,Z轴,则BMP的RGB为(r,g,b)与座标(Y,Y,Y)距离最小时的Y即为灰阶值 Y = 0.29900 * R 0.58700 * G 0.11400 * B 整数化 Y = ( 9798*R 19235*G 3735*B) / 32768 RGB(Y, Y, Y)就可以了 需一个内有彩色图的PictureBox, CommandBox Option Explicit Private Dec...

2008-02-23 06:53:24

Dim bArr(1) As Byte Dim sMe as String bArr(0) = 206 bArr(1) = 210 sMe = StrConv(bArr, VBUnicode) 此方式还可用于COM口通讯时汉字的还原。 另外还有一种还原方法： Dim sMe as String Dim PutCode As String PutCode = "CED2" sMe = Chr("H" PutCode) 上一篇： 如...

2008-02-23 06:53:24

作为Access-Office-VB ADVISOR 的技术编辑，我见过许多编程风格。我常常惊异于VBA程序员能够找到不同的方法来执行相同的任务，同时我也对VBA能够容忍如此差的技术而感到沮丧。VBA是一种相当宽容的语言，几乎能够运行一切那些糟糕的程序员所赋予它的任务。 在我评价和测...

2008-02-23 06:53:22

摘要： 随着应用领域的不断拓展和多媒体技术, 人们发现关系数据库的许多限制和不足，因而数据库技术进入了"后关系数据库时代"。文档数据库由此应运而生。本文概要地从数据格式、数据库结构和Web发布数据三个方面比较了文档数据库与关系数据库的异同，同时区别了文档数据...

2008-02-23 06:53:23

Private Sub Command1_Click() On Error GoTo Err100 '定义表与字段 Dim DefDatabase As Database Dim DefTable As TableDef, DefField As Field Set DefDatabase = Workspaces(0).OpenDatabase(App.Path "VBeden.mdb", 0, False) Set DefTable = DefDatabase.CreateTa...

2008-02-23 06:53:20