易截截图软件、单文件、免安装、纯绿色、仅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读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb操作excel - VB / 基础类

问题:
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
  A 3
  A 4
  B 6
  ... ......

VB下OCX可否实现如下功能? - VB / 网络编程

我想用VB做一个OCX(纯菜鸟,临时需要用VB做点东西,特来请教),A用户(IP:192.168.0.1)与B用户(IP:192.168.0.2)进行点对点的发送接收消息
要求采用OCX方式,比如A用户知道B用户IP,我直接传参(B的IP)至OCX ......

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

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

VB树型结构问题 - VB / 控件

找了很久这东西了,  
用treeview不能满足要求
现在想做的是:界面以树形展现,能不能展开收回无所谓
  节点都可以按照规定进行添删
  每个节点后面都可能会出现 文本 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号