以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Key UP/DOWN事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83340)
--  作者：elmu
--  发布时间：2016/4/6 19:33:00
--  Key UP/DOWN事件

2016开发版，为什么在一个TEXTBOX控件中输入一串字符，只有输入第一个字符的时候才响应的Key UP或DOWN事件。谢谢老师解答。
--  作者：大红袍
--  发布时间：2016/4/6 19:35:00
--  
我测试没有问题。
--  作者：elmu
--  发布时间：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
--  发布时间：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
--  发布时间：2016/4/7 9:01:00
--  

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

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

有什么好办法么？
--  作者：Hyphen
--  发布时间：2016/4/7 9:07:00
--  
bar.Code = e.Form.Controls("TextBox1").Text
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/4/7 9:15:00
--  
谢谢老师