在黑暗中举起探索的火炬的网志
在喧闹、混杂的生活中
你应该与你的心灵和平相处
尽管这世上有很多假冒和欺骗
有很多单调乏味的工作
和众多破灭的梦幻
它仍然是一个美好的世界
记住：你应该努力去追求幸福。
是的，记住：你应该努力去追求幸福。
每个早晨灿烂的太阳升起的时候,
每个人都应
-
2004-05-27
[原創] 一個自動轉移焦點的文本框類 - [VB开发专辑]
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
’****************************************************************************** ’* クラス 名称 :clsAutoTabTxt ’* ’* クラス 概要 :Enterキーを押すとき、自動的にfocusを移す。 ’****************************************************************************** Option Explicit ’ クラスの属性をセットする。 Private WithEvents mtxt As TextBox ’****************************************************************************** ’ 関数名称 :Attach() ’ ’ 目的説明 :このクラスを外部テキストボックスにセットする。 ’ 入力引数 : ’ txtOut:外部テキストボックスのリファレンス。 ’ 戻り値 :なし ’ 関数著者 :何楊 (hey@dhc.com.cn) ’****************************************************************************** Public Sub Attach(txtOut As TextBox) Set mtxt = txtOut End Sub ’****************************************************************************** ’ 関数名称 :mtxt_KeyPress() ’ ’ 目的説明 :テキストボックスに英数字だけ書き込み。 ’ Enterキーを押すとき、自動的にfocusを移す。 ’ 入力引数 : ’ KeyAscii:入力するキャラクタのAsciiコード。 ’ 戻り値 :なし ’ 関数著者 :何楊 (hey@dhc.com.cn) ’****************************************************************************** Private Sub mtxt_KeyPress(KeyAscii As Integer) If (KeyAscii > 57 Or KeyAscii < 48) And KeyAscii <> 8 And KeyAscii <> 13 Then KeyAscii = 0 MsgBox E009, vbCritical, gstrTitleNormal ElseIf KeyAscii = 13 Then SendKeys "{tab}" End If End Sub
http://junglesong.yourblog.org/logs/183281.html
随机文章：
[原创]本人编写的两个Oracle的帮助小工具 2004-12-09[原創] 一個自動選擇內容的文本框類 2004-05-27利用Microsoft 的HTML分析器来获得Web站点的数据(转载) 2004-01-26从《史记·鲁世家》看西周积年与武王克商年代 (转载) 2004-01-25山海经的来龙去脉(转载 作者:王红旗) 2004-01-22
收藏到：Del.icio.us
