VBA80集第56集：文字框

兰色幻想 · 发表于 2012-3-14 10:57

本帖最后由兰色幻想于 2012-3-26 15:45 编辑

   只所以把文字框作为单独的一集，是因为它太太太常用了，涉及的编程技巧和事件也多。
'1 多行显示
  '2 文本框对齐
  '3 密码样式
  '4 行列超过宽度或高度时添加滚动条
  '5 强制换行符号
Private Sub CommandButton1_Click()
End Sub

'二功能
'1 自动跳到一下个tab顺序的控件
'2 锁定文本和禁用
'3 是否允许拖放复制值
'三常用方法和属性
'1 lineCount属性:获得文本框的行数
'2 SelLength属性可以获得当前文本框中选取的文本长度
'3 SelText,可以获得当前文本框中选取的文本
'4 SetFocus 获得焦点
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
End Sub

Private Sub UserForm_Click()
End Sub
'四事件
  '1 当文本框值发生改变量时的事件
Private Sub 用户名_Change()
End Sub
'2 当离开文本框时，如果数据发生了改变，则发生此事件
Private Sub TextBox1_AfterUpdate()
End Sub
  '3 焦点进入文本框时的事件
  Private Sub 用户名_Enter()
  End Sub
  '4 离开文本框时的事件
  Private Sub 用户名_Exit(ByVal Cancel As MSForms.ReturnBoolean) '必须输入用户名
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '密码必须输入数字
End Sub
视频下载：

VBA80集第56集_文字框.rar (6.62 MB, 下载次数: 3071, 售价: 60 个金币)

hshmichael · 发表于 2012-3-14 11:25

谢谢兰校长，学习！！

liziyuliziyu3 · 发表于 2012-3-14 12:15

谢谢校长，辛苦了！！！！！！！！！！！！！！

huyuwang · 发表于 2012-3-14 14:04

用金币就像流水啊，呵呵
一如既往的支持兰版！

windimi007 · 发表于 2012-3-14 18:00

兰版辛苦了~~~~~~~{:1612:}

yeshuangyong · 发表于 2012-3-14 18:24

花钱如流水，还是支持

wangfengren · 发表于 2012-3-15 08:24

就算每天只赚10个金币，也支持，支持。

逆水寒 · 发表于 2012-3-15 09:08

就算每天只赚10个金币，也支持，支持。

mqr66 · 发表于 2012-3-15 23:58

下载了
谢谢！！！！！！！！！！！！！！

chenzining · 发表于 2012-3-16 09:36

我的金币呀刷刷的
坚持每天登录

		自动登录	找回密码
密码			注册

VBA80集第56集：文字框

评分