在黑暗中举起探索的火炬的网志
在喧闹、混杂的生活中
你应该与你的心灵和平相处
尽管这世上有很多假冒和欺骗
有很多单调乏味的工作
和众多破灭的梦幻
它仍然是一个美好的世界
记住：你应该努力去追求幸福。
是的，记住：你应该努力去追求幸福。
每个早晨灿烂的太阳升起的时候,
每个人都应
-
2004-05-27
[原創] 一個自動選擇內容的文本框類 - [VB开发专辑]
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
’****************************************************************************** ’* クラス 名称 :clsAutoSelectTxt ’* ’* クラス 概要 :自動的にテキストボックスを選択する。 ’****************************************************************************** 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_GotFocus() ’ ’ 目的説明 :テキストボックスがfocusを選択する時。 ’ 入力引数 :なし ’ 戻り値 :なし ’ 関数著者 :何楊 (hey@dhc.com.cn) ’****************************************************************************** Private Sub mtxt_GotFocus() mtxt.SelStart = 0 mtxt.SelLength = Len(mtxt) End Sub
http://junglesong.yourblog.org/logs/183268.html
随机文章：
[原创]本人编写的两个Oracle的帮助小工具 2004-12-09[原創] 一個自動轉移焦點的文本框類 2004-05-27这就是欧洲的文明 （转贴） 2004-02-27利用Microsoft 的HTML分析器来获得Web站点的数据(转载) 2004-01-26昆仑之迷(3)(转载) 2004-01-25
收藏到：Del.icio.us
