1、添加TextBox控件。
2、设置TextBox属性。
3、编写代码。
4、运行效果悄纳此。
5、常见代码:
BorderColor 获取或设茄悉置 Web 控件启迅的边框颜色。
BorderStyle 获取或设置 Web 服务器控件的边框样式。
BorderWidth 获取或设置 Web 服务器控件的边框宽度。
Columns 获取或设置文本框的显示宽度
Enabled 获取或设置一个值,该值指示是否启用 Web 服务器控件。
Height 获取或设置 Web 服务器控件的高度。
MaxLength 获取或设置文本框中最多允许的字符数。
假定文本框在Form1,列表框在Form2,则以下代码放在Form2:Private Sub List1_Click()
Dim s As String, i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
If s <>"" Then s = s &","
s = s &List1.List(i)
End If
Next
obj.Text = s
End Sub
以下代码放谈歼在Form1:
Private Sub Command1_Click() '第一个文本框后面的+按钮
Set Obj = Text1
Form2.Show
End Sub
Private Sub Command2_Click() '第二个文本框后面的旅老+按钮
Set Obj = Text2
Form2.Show
End Sub
以下代含镇冲码放在公共模块(Module)文件:
Public obj As Object
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)