易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 简单问题,请高手帮忙,在线!!! - VB / 基础类

vb text文本框当按一下回车时为文本框无法编辑再按一下又可以编辑?
补充问题,如何使焦点一直保持在文本框上?
VB code:
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Static i As Long
If KeyCode = vbKeyReturn Then
If i Mod 2 = 0 Then
Text1.Locked = True
i = i + 1
Else
Text1.Locked = False
i = i + 1
End If
End If
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
End Sub



牛!!

对一楼代码精简一下
VB code:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

Text1.Locked = Not Text1.Locked

End If
End Sub



顶......


相关问答:

vb - VB / 基础类

数据库里有一个字段的内容是二进制,怎么才能把这个二进制读出来
使用字节流对象可以实现

例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb生成EXE - VB / 基础类

form1中有text1-8, 和command1 
text8中为程序代码(生成窗体为form2(已做好))
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题 ......

求助:C代码change toVB代码 - VB / 基础类

挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

关于Vb中sql语句的写法(100分) - Java / Web 开发

求个vb中的sql语句的写法,次sql语句的用法是分页程序
我写的如下:其中A是用来接收每页显示的记录的条数,B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号