Foxtable(狐表)用户栏目专家坐堂 → Key UP/DOWN事件


  共有2181人关注过本帖树形打印复制链接

主题:Key UP/DOWN事件

帅哥哟,离线,有人找我吗?
elmu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:247 威望:0 精华:0 注册:2015/12/9 8:26:00
Key UP/DOWN事件  发帖心情 Post By:2016/4/6 19:33:00 [只看该作者]

2016开发版,为什么在一个TEXTBOX控件中输入一串字符,只有输入第一个字符的时候才响应的Key UP或DOWN事件。谢谢老师解答。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/6 19:35:00 [只看该作者]

我测试没有问题。

 回到顶部
帅哥哟,离线,有人找我吗?
elmu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:247 威望:0 精华:0 注册:2015/12/9 8:26:00
  发帖心情 Post By:2016/4/7 8:36:00 [只看该作者]

我又试了下,就下面这段代码放进Key UP/DOWN事件会出问题,PictureBox1控件的image不能刷新

还有其他方法实现foxtable软件内自带的“条形码生成器”的功能吗?谢谢!

 

Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = e.Form.Controls("TextBox1").value
bar.DrawOnCanvas(rg.Graphics,0,0,1)
e.Form.Controls("PictureBox1").image = bar.GetImage

[此贴子已经被作者于2016/4/7 8:36:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/7 8:50:00 [只看该作者]

这样测试没有问题

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = e.Form.Controls("TextBox1").value
e.Form.Controls("PictureBox1").image = bar.GetImage 

 回到顶部
帅哥哟,离线,有人找我吗?
elmu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:247 威望:0 精华:0 注册:2015/12/9 8:26:00
  发帖心情 Post By:2016/4/7 9:01:00 [只看该作者]

还是只有第一个字符输入,二维码才会更新,问题好像找到了。

我加了条messagebox(e.Form.Controls("TextBox1").value),发现我输入一个字符后Textbox的value值不会更新,需要焦点重新获得后值才更新

有什么好办法么?


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/7 9:07:00 [只看该作者]

bar.Code = e.Form.Controls("TextBox1").Text

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/7 9:10:00 [只看该作者]

 你这段代码就不应该放在这个事件,放在textchanged多好?

 

Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = e.Sender.Text

bar.DrawOnCanvas(rg.Graphics,0,0,1)
e.Form.Controls("PictureBox1").image = bar.GetImage


 回到顶部
帅哥哟,离线,有人找我吗?
elmu
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:247 威望:0 精华:0 注册:2015/12/9 8:26:00
  发帖心情 Post By:2016/4/7 9:15:00 [只看该作者]

谢谢老师

 回到顶部