如何实现满位自动跳转和enter跳转?

rambler88 2003-02-25 02:06:25
在程序中,当在一个Text框内输入了满位或按下enter后,要实现跳转到下一个框,如何实现???
...全文
78 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
rambler88 2003-02-25
  • 打赏
  • 举报
回复
用keyPress可以
windleee 2003-02-25
  • 打赏
  • 举报
回复
那你给每个控件加上getfouce函数(好象是吧)
rambler88 2003-02-25
  • 打赏
  • 举报
回复
同志们,你们的方法都不错,不过有一个问题都无法解决,就是如果事先把后一个控件输入满位,然后对前控件操作,可以将光标跳转到后控件,但是那个事先输入满位的控件不能再响应满位操作了(enter可以响应),请问如何解决
用户 昵称 2003-02-25
  • 打赏
  • 举报
回复
1)form1.keypreview = true
2)form的keydown用peekmessage删除回车事件(避免单行的文本框当当作响)
3)用text1_keydown来解决回车
4)用text1_change来解决满了自动跳跃
Cooly 2003-02-25
  • 打赏
  • 举报
回复
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
if len(text1.text)=10 or keycode = 13 then
sendkeys "{Tab}"
end if
End Sub
rambler88 2003-02-25
  • 打赏
  • 举报
回复
回复:
1.multline=true 不能实现呀,两个要求都不能达到?我用的不对?
2.野性的呼唤的方法,只能实现enter跳转,不能实现满位跳转
3.Cooly(苦力):那个key_up就是具体的事件名吗?我不知道怎么用,你和lysong(平) 是一个意思吧?

northwolves 2003-02-25
  • 打赏
  • 举报
回复
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{tab}"
End Sub
Sean918 2003-02-25
  • 打赏
  • 举报
回复
Text1.Multline = True
Cooly 2003-02-25
  • 打赏
  • 举报
回复
实现设好TabIndex

在Text的key_up事件中添加
if len(text1.text)=10 or keycode = 13 then
sendkeys "{Tab}"
end if
山顶洞人-平 2003-02-25
  • 打赏
  • 举报
回复
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii=13 then
sendkeys "{TAB}" '发送Tab
end if
End Sub

Private Sub Text1_Change()
if len(Text1.Text)=你所规定的长度 then
sendkeys "{TAB}" '发送Tab
end if
End Sub
minajo21 2003-02-25
  • 打赏
  • 举报
回复
multline=true
老规矩,先看本节效果图我们实现这个支付功能完全是借助小程序云开发实现的,不用搭建自己的服务器,不用买域名,不用备案域名,不用支持https。只需要一个简单的云函数,就可以轻松的实现微信小程序支付功能。核心代码就下面这些一,创建一个云开发小程序关于如何创建云开发小程序,这里我就不再做具体讲解。不知道怎么创建云开发小程序的同学,可以去翻看我之前的文章,或者看下我录制的视频:https://edu.csdn.net/course/play/9604/204528创建云开发小程序有几点注意的1,一定不要忘记在app.js里初始化云开发环境。2,创建完云函数后,一定要记得上传二, 创建支付的云函数1,创建云函数pay三,引入三方依赖tenpay我们这里引入三方依赖的目的,是创建我们支付时需要的一些参数。我们安装依赖是使用里npm 而npm必须安装node,关于如何安装node,我这里不做讲解,百度一下,网上一大堆。1,首先右键pay,然后选择在终端中打开2,我们使用npm来安装这个依赖。在命令行里执行 npm i tenpay安装完成后,我们的pay云函数会多出一个package.json 文件到这里我们的tenpay依赖就安装好了。四,编写云函数pay完整代码如下//云开发实现支付 const cloud = require('wx-server-sdk')cloud.init() //1,引入支付的三方依赖 const tenpay = require('tenpay'); //2,配置支付信息 const config = ;exports.main = async(event, context) => 一定要注意把appid,mchid,partnerKey换成你自己的。到这里我们获取小程序支付所需参数的云函数代码就编写完成了。不要忘记上传这个云函数。出现下图就代表上传成功五,写一个简单的页面,用来提交订单,调用pay云函数。这个页面很简单,1,自己随便编写一个订单号(这个订单号要大于6位)2,自己随便填写一个订单价(单位是分)3,点击按钮,调用pay云函数。获取支付所需参数。下图是官方支付api所需要的一些必须参数。下图是我们调用pay云函数获取的参数,和上图所需要的是不是一样。六,调用wx.requestPayment实现支付下图是官方的示例代码这里不在做具体讲解了,完整的可以看视频。实现效果1,调起支付键盘2,支付完成3,log日志,可以看出不同支付状态的回调上图是支付成功的回调,我们可以在支付成功回调时,改变订单支付状态。下图是支付失败的回调,下图是支付完成的状态。到这里我们就轻松的实现了微信小程序的支付功能了。是不是很简单啊,完整的讲解可以看视频。

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧