文本控制程序.doc

?private System.Windows.Forms.TextBox textBox1; ??private string text; ??public Form1() ??{ ?? text = textBox1.Text; ??} ??private void textBox1_TextChanged(object sender, System.EventArgs e) ??{ ?? int len = text.Length; ??if(len textBox1.Text.Length) ??{ ?? int index = textBox1.Text.IndexOf(text); ?? char c = (textBox1.Text.Remove(index,text.Length))[0]; ?? if(c.CompareTo(0) 0||c.CompareTo(9) 0) ?? { ?? textBox1.Text = text; ?? textBox1.SelectionStart = text.Length; ?? } ?? } ?? text = textBox1.Text; ?? ??} private void m_textBox_KeyDown(object sender, KeyEventArgs e) { // Initialize the flag to false. m_nonNumberEntered = false; // Determine whether the keystroke is a number from the top of the keyboard. if (e.KeyCode Keys.D0 || e.KeyCode Keys.D9) { // Determine whether the keystroke is a number from the keypad. if (e.KeyCode Keys.NumPad0 || e.KeyCode Keys.NumPad9) { // Determine whether the keystroke is a backspace. if(e.KeyCode != Keys.Back) { // A non-numerical keystroke was pressed. // Set the flag to true and evaluate in KeyPress event. m_nonNumberEntered = true; } if(this.textBox1.TextLength0) { ?this.textBox1.Text=? ?this.textBox1.Text.Substring(0,this.textBox1.Text.Length-1);? } if(e.KeyChar!=8!Char.IsDigit(e.KeyChar))???{?????e.Handled = true;???}??} Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “{tab}” KeyAscii = 0 End If End Sub 百度空间?|?百度首页? | 登录 云舞正行 ......至夫子继圣，独秀前哲，熔钧六经，必金声而玉振；雕琢性情，组织辞令，木铎而千里应，席珍流而万世响，写天地之辉光，晓生民之耳目矣．? 主页博客相册|个人档案 |好友 ? 查看文章 ? 判断文本框的信息是不是数值的控制[转] 2007-08-02 11:48 凡用过VB的读者都知道，VB中有一个文本框（TextBox控件），它可显示设计时程序员输入的或运行时用户输入的或在代码中赋予的信息（包括字母、数字和其他符号）。但在很多场合我们需要的仅仅是数值数据，这时在TextBox中无意输入的非数值数据就会给我们带来不便，因此需将非数值信息过滤掉。为实现这一目标，我们设计一个只能输入数值的“数值框”。 初步设想与比较 设计时，我们通常采用IsNumeric函数来判断文本框的信息是