查人人中国名人网浙江省提前退休政策:vb小问题,会的请帮帮忙
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/08 17:50:19
一个文字位置移动的程序,要求如下:
1.程序运行后,在文本框内输入内容
2.按"右"按钮,则文本框中内容居右,同时按钮上的文字"右"改为"左",按"左"按钮,则文本框中内容居左,同时按钮上的文字"左"改为"右";
3.窗体不准最大化
1.程序运行后,在文本框内输入内容
2.按"右"按钮,则文本框中内容居右,同时按钮上的文字"右"改为"左",按"左"按钮,则文本框中内容居左,同时按钮上的文字"左"改为"右";
3.窗体不准最大化
建立一个文本框：txtTest,一个按钮：cmdMove,Caption属性设置为：右.
将窗体的MaxButton属性设置为：False(阻止窗体最大化),而后在cmdMove按钮的单击事件下编写代码：
Private Sub cmdMove_Click()
Dim str As String
str = cmdMove.Caption
Select Case str
Case "右"
str = "左"
txtTest.Alignment = 1
'右对齐
Case "左"
str = "右"
txtTest.Alignment = 0
'左对齐
End Select
cmdMove.Caption = str
End Sub
OK，程序到此就已经完全实现你要的功能，要加分哦，我是利用上班时间回答你的问题哦。
1:不用我多说了吧,随便写一句:TEXT1.TEXT="121346"
2:设置TEXT1.ALIGNMENT=N ,N可以为0,1,2,分别代表左,右,中
3:设置窗体的MAXBUTTON为FALSE