如何在VB中设计一个文本框控件，用于显示文字
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
设置效果如下图所示：
二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub
Command3_Click（）
s2 = Val（Text1.Text） ‘开始加减乘除运算
Select Case ysf Case “+”
Text1.Text = s1 + s2
Case “-”
Text1.Text = s1 - s2
Case “*”
Text1.Text = s1 * s2
Case “/”
If s2 = 0 Then
MsgBox “分母不能为零！”
Text1.Text = “”
Else
Text1.Text = s1 / s2 End If End Select
Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本为空就结束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
拓展资料
Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接
如何在VB中设计一个文本框控件，用于显示文字视频
相关评论：
蒙永宝xlSheet.Shapes("textbox1").DrawingObject.object.Text = "设置控件工具面板里textbox内容"xlSheet.Shapes("文本框 3").TextFrame.Characters.Text = "设置绘图工具栏里文本框内容"Sheets(SheetName).textbox1.Text = "设置控件工具面板里textbox内容" '给text赋值，不能直接用 xlsheet.textbox1...
蒙永宝'这是最直观的了,你可以自己换算法 Private Sub btnCalc_Click()Dim i As Integer Dim sum As Long For i = 1 To 1000 Step 2 '步长为2 sum = sum + i Next i txtResult.Text = sum End Sub
蒙永宝只要将需要跳转的文本框获取焦点即可，如：Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)Select Case KeyAscii Case 13---'回车键 Textbox1.SetFocus Case 38-41---'上\/下\/左\/右键 Textbox2.SetFocus Case else End Select End Sub ...
蒙永宝'在窗体上画一个TEXT，两个按钮 Dim sTemp As String Private Sub Command1_Click()sTemp = Me.Text1.Text Me.Text1.Text = ""End Sub Private Sub Command2_Click()Me.Text1.Text = sTemp End Sub
蒙永宝1：Access，建立数据库，数据库命名为Database1.mdb。（注意：这里的后缀是MDB,如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式。）2：数据库建立后就进入了数据表界面，可以输入数据了，输完以后CRRL+S保存，输入表名，这里表名为test，ok，准备...
蒙永宝在VB中，设置文本框的MultiLine 属性为True，就能使使文本框能够输入多行文字。MultiLine 属性 返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。
蒙永宝1，打开vb ，选择 标准exe工程 创建 2，打开工具箱，选中textbox，鼠标指针变为十字，在窗体上拖拽画出文本框，大小可调整 3，在工具箱中选中commandbox，鼠标指针变为十字，在窗体上画出命令按钮，大小可调 点击命令按钮，按F4调出属性页，第一项，名称默认command1，改为cmdshow。找到 caption 项...
蒙永宝3、双击控件进入VB编辑器，并录入图中语句。4、按运行子进程在绿色三角键并创建宏名称。5、返回表格界面查看结果。设置简单组合框成功。注意事项：在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
蒙永宝Private Sub Text1_Change()On Error Resume Next If Val(Trim(Text1.Text)) > 100 Then MsgBox "输入数字过大，请重新输入"Text1.Text = ""End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= 33 Then If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then...
蒙永宝这个解答完全符合你的要求：首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，记得是MonthView1控件，你自己排列好它们两个的位置即可，一切都按默认（不用改属性）。然后复制以下代码到form1的代码窗口里运行即可看到结果啦（如图）：Private Sub Form_Load()MonthView1.Visible = ...
