在VB中实现键盘的应事件

VB中的键盘响应事件有三个:KeyPress,KeyDown 和KeyUp,其原形分别如下: KeyPress (KeyAscii As Integer) KeyDown (KeyCode As Integer, Shift As Innteger) KeyUp (KeyCode As Integer, Shift As Integer) 对于可打印键,我们一般用KeyPress过程,而对于非打印键,则用KeyDown和KeyUp.其中,参数KeyCode是非打印键的虚拟键码,KeyAscii是可打印键的ASCII码,例如字母A的ASCII码为65,回车键的ASCII码为13.对于非打印键,如上箭头、下箭头等,其ASCII码不存在,我们可用虚拟键码来与其一一对应.下面列出一些常用非打印键的虚拟键码(表1),供大家参考.     

VisualBasic中使用DoEvents（）函数需注意的几个问题

先来看一个例子,部分程序如下:Sub teststart( )Call printstatus(Int(Rnd*5000) 100)End SubSub Printstatus(n As Integer)Forml.ClsFor w=3 To n     

Visual Basic编程问答集(二)

Write X,intl,strl Close X SaveData=True End Function’读取文件操作 Function ReadData(fname＄)As Boolean On Error Resume Next’设置错误处理 Dim intl As Integer Dim strl As String Dim X as Integer X=FreeFile’取得一个空闲文件句柄 Open fname＄ For Input As X’试图打开该文件 If Err〈〉O Then’如果打开不成功 ReadData=False Exit Function End If     

关于VB中输入代码的技巧

我们知道,在VB中,可以通过代码窗口上的两个下拉列表穿梭于各个过程之间,现在,可以用这种方法来输入代码!比如我们要使窗口上的关闭按钮失效,需要输入:Private Sub Form_Unload(CancelAs Integer)Cancel = 1End Sub如果不太熟悉这个代码,用时还要看看书,其实,我们只要在代码窗口上的第一个下拉列表中选择Form,第二个下拉列表中选择Unload,就发现,代码窗口中已有了“Private SubForm_Unload(Cancel As Integer)”和“End Sub”了,输入“Cancel = 1”就可以屏蔽关闭按钮了。在看看别的,是不是很方便啊?关于VB中输入代码的技巧@苏煜…     

VB3.0应用技巧三则

下面给出VB3.0的三个小技巧。 1.建立最上层窗口 最上层窗口是一种在不激活的情况下总在其他所有窗口之上的窗口。为了实现这一目的要调用函数SetWindowPos规定一个非最上层窗口,并用HWND_TOPMOST作为第二个参数hwndInsertAfter的值,有关的说明及常量: Declare Function SetWindowPos Lib"user"(ByVal h%,ByVal hb％,ByVal x％.ByVal y％.ByVal cx％,ByVal cy％,ByVal f％)As Integer以上语句必须写在一行内 Global Const SWP_NoMOVE=2 Global Const SWP_NOSIZE-1 Global Const FLAGS=SWP NOMOVE Or SWP     

基于格的变色龙签名方案

与普通数字签名相比,变色龙签名不仅满足不可否认性,而且具有非交互式、不可传递的特点。然而,基于传统数学难题构造的变色龙签名方案不能抵杭量子计算机的攻击。为了设计在量子计算机环境下依然安全的变色龙签名,利用格上小整数解问题SIS(Small Integer Solution)和非齐次小整数解问题ISIS(Inhomogeneous Small Integer Solution)的困难性假设,构造了基于格的变色龙签名方案。在随机预言模型下,证明了该方案在适应性选择消息攻击下 是安全的。     

Integer programming models for computational biology problems

The recent years have seen an impressive increase in the use of Integer Programming models for the solution of optimization problems originating in Molecular Biology. In this survey, some of the most successful Integer Programming approaches are described, while a broad overview of application areas being is given in modern Computational Molecular Biology.     

在VB中用API实现多媒体

在 VB 中用 API 实现多媒体主要是调用 Windows 的 mmsystem.dll 库。以下为调用 API 的声明(这些代码放在程序的声明部分中):1.播放 CD 和 AVI 所需要的声明。Declare Function mciSendString Lib”MMSYSTEM”(ByVallpstrCommand asString,ByVal lpstrReturnStr as Any,ByValwRetumLen as Integer.ByVal hCallBack as     

用VB实现多媒体语音文件的播放

一、功能简介 在VB 5.0中播放多媒体语音文件的方法有很多,如可以利用MCI.VBX控件来实现;也可以利用OLE控件动态连接媒体播放器,还可以利用VB专门为播放语音文件提供的一个简单的API函数—sndPlaySound来实现。该函数的语法格式如下: Private Declare Function sndPlaySound Lib "winmm. dll" Alias"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 其中:     

Visual Basic编程问答集(四)

□如何通过程序关闭正在运行中的其它软件? 可以通过调用Windows API函数FindWindow和PostMessage的办法,找出相应的软件句柄,并通知Windows 95关闭该软件。以下是一个关闭Windows 95附件中的小软件“计算器”的例子。 具体步骤如下: 1.在VB中新建一个标准EXE工程; 2.画出一个按钮Commandl; 3.在窗体Forml中定义Windows API的声明; Const WM_CLOSE=&H10 Private Declare Function FindWindow Lib"user32"Alias"FindWindowA"(ByVal lpClassName As String,ByVal lpWindowName As String)As Long Private Declare Function PostMessage Lib"user32"Alias"PostMessageA"(ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,IParam As Any)As Long 4.在Commandl的Click事件中编写以下代码:     

整数规划的花授粉算法

整数规划是NP困难(Non-deterministic Polynomial-time hard,NP-hard)的经典问题之一。整数规划的花授粉算法(Integer Flower Pollination Algorithm,IFPA)是采用截断取整的方法,将最近开发的花授粉算法(Flower Pollination Algorithm,FPA)扩展到求解整数规划问题。通过对测试函数集进行仿真实验,结果表明IFPA拥有很好的性能和很强的全局寻优能力,可以作为一种实用方法用于求解无约束整数规划和有约束整数规划问题。     

MIP-BSM:基于基站移动的最大化网络寿命方案

为了最大化延长无线传感网络寿命,设计最优的基站移动模型,提出了基于混合整数规划MIP(Mixed Integer Programming)的高斯移动方案MIP-BSM(MIP-based Gaussian Base Station Mobility)。该方案首先选择较大的标准方差,并依据此方差和零均值产生基站的候选位置,然后使用这些候选位置执行MIP模型,获取基站移动的最优位置。仿真结果表明,与随机移动模型相比,MIP-BSM能够获取更长的网络寿命。     

基于启发式算法求解电动汽车碰撞测试排程问题

在研究电动汽车碰撞测试排程问题中，为了使毁坏的原型车数量最少，考虑电动汽车碰撞测试的特点，使用整数规划(Integer Programming)模型将碰撞测试聚合成组。将分组的碰撞视为单个测试，通过混合贪心策略的启发式算法将符合测试排程要求的测试安排到原型车。采取约束规划(Constrained Programming, CP)对相同问题进行求解，证明贪心-启发式算法在电动汽车碰撞测试排程问题中的可行性及有效性。     

VB编程小技巧六则

1.弹出驱动器 ＇Private Declare Function mciSendString Lib “winmm.d11“ Alias“mciSendStringA“ (ByVal IpstrCommand As String,ByVal IpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)     

As（Ⅲ）的溶解—沉淀的热力学计算

针对湿法冶金处理含砷金矿过程中 As(Ⅲ)的脱除问题,对 As(Ⅲ)溶解—沉淀进行了热力学计算。讨论了用石灰中和水解沉淀 As(Ⅲ)的局限性和氧化剂对细菌脱砷过程中砷在溶液中存在形式的影响。     

Flash控件秘密档案（二）

9.SetZoomRect 语法:SetZoomRect(left As Long,top As Long,rightAs Long,bottom As Long) 说明:将影片中指定的矩形区域放大到控件的大小。left(左)、top(顶)、right(右)、bottom(底)的坐标值是相对于控件中的影片有效位置计算的。注意哟,这个函数是从影片的有效区域的左上角开始计算,而不是控件的左上     

VB编程小技巧三则

1.表或查询是否存在 Public Const NameNotlnCollection = 3265 Dim DB As Database Private Function ExistsTableQuery(TName As String) As Boolean Dim Test As String On Error Resume Next＇该名宇在表名中是否存在.     

几个常用的Windows32位API函数在VB中的调用方法

1.GetVersion() 该函数用于测出当前所用DOS和Windows的版本号。其调用方法为:首先在VB窗体(Form)的General Declaration中加入如下代码: Declare Function GetVersion Lib"kernel32"()As Long 然后在需要调用的代码段写如下代码: Dim ver As long ver=getversion() 现在ver的值是一个长度为双字(DWord)的十六进制数,其中高字代表的是DOS的版本号,低字代表的是Windows的版本号。高字中的高字节表示的是DOS的主版本,     

网上你聊天 网下我支招

BSS英文缩写 信件(Message)是BBS最重要的资源之一,是通过电话线路来传播,在电话费变成计时后信件内容就不宜太长了,尤其是网络信,它得通过长途电话传遍全国,甚至于全世界,于是便发明出一套独特的BBS文化,在BBS上为节省时间,无不力求简化信件的用字,所以BSS英文缩写被广泛使用。 ADN Any day now AFAIK As Far As I know AMF Goodbye (Adios Mutha……) ASAP As soon As possible AWGTHTGTTA Are We Going To Have To Go Through This Again? BTW By the Way CU See you     

纳米三氧化二砷磁性脂质体的热化疗作用对卵巢癌细胞nm23H1及c-myc的影响

为了研究纳米三氧化二砷磁性脂质体(NMLA)的热化疗作用对卵巢癌HO-8910细胞nm23H1和c-myc mRNA表达有无影响。以培养液做对照,分别将空白脂质体、三氧化二砷(As2O3)溶液、纳米As2O3脂质体、纳米磁性脂质体(NML)、NMLA作用于人浆液性卵巢癌HO-8910细胞,并用高频交变磁场(AMF)对经过NML和NMLA处理的HO-8910细胞作进一步热疗处理,RT-PCR方法检测各组细胞nm23H1和c-myc的mRNA表达情况。实验发现,As2O3使nm23H1mRNA的表达上调,热疗对其无影响;单纯As2O3及热疗均使c-mycmRNA的表达下调,纳米As2O3磁性脂质体的热化疗对其下调作用更为显著。上述结果表明,NMLA可在高频AMF作用下对卵巢癌细胞进行热化疗,机制与nm23H1和c-myc的表达相关。