我想自己写个TEXTBOX用户控件，实现人民币输入格式（高分求教）需要思路，有代码更好

2003-07-30 07:31:41 197 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WPS表格VB宏编程入门：从录制宏到编写智能自动化脚本办公自动化是提升数据处理效率的核心技术，其原理在于通过编程语言将重复性操作转化为可执行的指令序列。在WPS表格中，VBA（Visual Basic for Applications）作为成熟的自动化解决方案，提供了从简单录制到复杂编程的技术路径。其技术价值在于突破录制宏的局限性，实现条件判断、循环处理、数据清洗等智能操作，并能通过自定义函数和事件响应构建交互式应用。典型应用场景包括报表自动生成、数据清洗、跨软件数据交换等。本文聚焦于WPS表格的VB宏编程，详细讲解如何搭建VBA环境、理解对象模型与核心语法，阅读详情

例如可以接受数字，退格，回车等按钮时间，固定格式为￥0.00，有什么好的思路吗？

...全文

超实用！用ChimeraX对AlphaFold 结果可视化（中）: 蛋白结构美化篇而一般需要的背景颜色是无色（白色），有三种方法可以更改背景颜色，这里我们介绍两种方法，第三种在下一小节中讲解。如果想选中蛋白链中的某一结构区域或者某些位点，可以用Ctrl+Shift+鼠标左键，或在软件窗口中点击。在这个窗口中可以对蛋白的主链、侧链、表面等颜色进行修改，只用在。，即可在右下角看到我们蛋白的序列信息，在这里面直接用鼠标选择要选择的结构域。就会有更多的颜色供我们选择，如果有特定的色号还可以在这个界面继续选择。后面的颜色（②），就可以选择想要的任何背景颜色（③）。就可以选择软件推荐的常用颜色。阅读详情

斗斗来三

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

bobdai 2003-08-01

打赏
举报

直接用MaskedEdit控件不就行了吗？

Latitude 2003-08-01

打赏
举报

1.当值为空时，显示￥0.00并不难呀，初始值设为这个，然后在textbox的textchanged事件中写
if textbox1.text="" then
textbox1.text="￥0.00"
end if
但是也还是需要规划一下。判断一下text中只能有一个"."如果有一个，则不能再输入"."等细节问题。
2.你的Userctl，不能取text值，也不能赋值的问题这样来试试：
　　private tempText as string
Property SGText( ) As string
Get
Return tempText
End Get
Set(ByVal Value As string)
tempText = Value
End Set
End Property
然后在textbox的textchanged事件中：
　　　me.SGtext=textbox1.text
然后在外部你也可以用这个属性来读值，但不要赋值。
我只是一时想到就写了，你如果只是想在外部读到textbox1的text值，最简单的方法就是把textbox1的修饰符变为public即可，默认的是friend。
　　但规范的方法应该是通过属性来做。

　　　　　　　　　　　　　　　　by Henry

sindyzhou 2003-08-01

打赏
举报

另外：应该是Inherit system.windows.forms.textbox
而不是：inherit system.windows.forms.usercontrol

Vb_Net4Zeng 2003-08-01

打赏
举报

to: Latitude(Henry)
还有个问题一起看看吧：），谢谢
http://expert.csdn.net/Expert/topic/1789/1789991.xml?temp=.9463312

dzq_1 2003-08-01

打赏
举报

你考虑用正则表达式对文本框进行限制，作一个自定义控件。
看一下msdn帮助(.net 2002下的)：
ms-help://MS.VSCC/MS.MSDNVS.2052/cpguide/html/cpconcomregularexpressions.htm

sindyzhou 2003-08-01

打赏
举报

在Leave事件里加入：

if not isnumeric(textbox1.text) then
textbox1.text = "￥0.00"
else
textbox1.text = "￥" & format(textbox1.text,"#,##0.00")
end if

Vb_Net4Zeng 2003-08-01

打赏
举报

这个我做过的，我是派生的TEXTBOX，用于“凭证”的金额输入。
to: Latitude(Henry) 老大可以帮个忙吗？帮我解决一个问题好吗？谢谢
http://expert.csdn.net/Expert/topic/2056/2056853.xml?temp=.159527

斗斗来三 2003-08-01

打赏
举报

帮忙啊，问题还没解决呢

斗斗来三 2003-08-01

打赏
举报

大家顺便推荐一下VB。NET的好书，主要用来开发桌面应用程序的，需要讲的深，讲的透，但是看的懂，不要推荐一本天书啊

斗斗来三 2003-08-01

打赏
举报

我看了一下MASKEDEDIT控件不错，只是不知道改怎么定义他的MASK属性，我尝试了#.##还是不行，而且有一个缺陷就是，输入的数字带下划线，不知道怎么改，那个知道的告诉我一下，不然我只有自己写控件了

zhxylgh 2003-08-01

打赏
举报

斗斗来三 2003-07-30

打赏
举报

你是Latitude(Henry) ，呵呵，久仰，拜读过您的
Henry手记：WinForm Datagrid结构剖析（二）
Henry手记－ Datagrid键盘事件响应（一）
等，受益非浅，也抄了您一些代码，嘿嘿
现在有2大难题，1是固定格式的问题，当值为空时，必须显示￥0.00
2是，我自己创建的USERCTL，不能把TEXT值取回，也不能赋值，有待研究
能不能给点思路，谢谢

Latitude 2003-07-30

打赏
举报

做个抛砖引玉吧，只处理了数值框与￥的处理，没有处理0.00的格式：
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not (IsNumeric(e.KeyChar) Or e.KeyChar = ChrW(8) Or e.KeyChar = ChrW(46)) Then
e.Handled = True
Else
If IsNumeric(e.KeyChar) Then
If Microsoft.VisualBasic.Left(TextBox1.Text, 1) <> "￥" Then
TextBox1.Text = "￥" + TextBox1.Text + e.KeyChar
e.Handled = True
TextBox1.SelectionStart = TextBox1.Text.Length
End If
End If
End If
End Sub

－－－－
by Henry

sindyzhou 2003-07-30

打赏
举报

sendkeys.send("{Tab}")
这样呢

斗斗来三 2003-07-30

打赏
举报

另附： If e.KeyChar = Chr(13) Then
SendKeys.SendWait("{Tab}")
End If
我截获ENTER KEY，发送TAB KEY
为什么系统会发出叮的一声，而直接用TAB则不会

我想自己写个TEXTBOX用户控件，实现人民币输入格式（高分求教）需要思路，有代码更好

相关推荐