有哪些信誉好的足球投注网站- 1、本文档共37页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第6章 控件与用户窗体代码【超实用VBA】
第6章 控件与用户窗体
范例67 文本框只能输入数值
Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger)
With TextBox1
Select Case KeyANSI
Case Asc(0) To Asc(9)
Case Asc(-)
If InStr(1, .Text, -) 0 Or .SelStart 0 Then
KeyANSI = 0
End If
Case Asc(.)
If InStr(1, .Text, .) 0 Then KeyANSI = 0
Case Else
KeyANSI = 0
End Select
End With
End Sub
Private Sub TextBox1_Change()
Dim i As Integer
Dim Str As String
With TextBox1
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1)
Select Case Str
Case ., -, 0 To 9
Case Else
.Text = Replace(.Text, Str, )
End Select
Next
End With
End Sub
范例68 限制文本框的输入长度
Private Sub TextBox1_Change()
TextBox1.MaxLength = 6
End Sub
范例69 验证文本框输入的数据
Private Sub CommandButton1_Click()
With TextBox1
If (Len(Trim(.Text))) = 15 Or (Len(Trim(.Text))) = 18 Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Text
Else
MsgBox 身份证号码错误，请重新输入!
End If
.Text =
.SetFocus
End With
End Sub
范例70 文本框回车自动输入
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim r As Integer
r = Cells(Rows.Count, 1).End(xlUp).Row
With TextBox1
If Len(Trim(.Text)) 0 And KeyCode = vbKeyReturn Then
Cells(r + 1, 1) = .Text
.Text =
End If
End With
End Sub
范例71 文本框的自动换行
Private Sub UserForm_Initialize()
With TextBox1
.WordWrap = True
.MultiLine = True
.Text = 文本框是一个灵活的控件，受下列属性的影响：Text、 _
MultiLine、WordWrap和AutoSize。 vbCrLf _
Text 包含显示在文本框中的文本。 vbCrLf _
MultiLine 控制文本框是单行还是多行显示文本。 _
换行字符用于标识在何处结束一行并开始新的一行。 _
如果 MultiLine 的值为False，则文本将被截断， _
文档评论（0）