vb中标签内容怎么输入

1）运行VB6.0，新建一个标准EXE工程，将鼠标移到下图左侧工具箱的A按钮处。

2）双击该按钮，窗体上就会出现一个Label控件。

3）可对它进行属性设置，并移动到窗体需要的位置。接着可继续按前方法添加Label控件。

4）Label 控件， Label 控件是图形控件，可以显示用户不能直接改变的文本。

进入VB6.0软件，双击“标准EXE”显示的页面如图。预设正确的用户名和密码为aaa和abc123。

先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签，再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框，然后再从控件栏选择按钮控件在form1窗体的相应位置画两个大小适合的按钮。

选中（单击即可）窗体Form1，在右边的属性栏将Caption属性值改为“用户登录”；选中标签Lable1将Caption属性值改为“用户名”，选中标签Lable2将Caption属性值改为“密码”，属；选中文本框Text1，将Text属性值置空，选中文本框Text2，将Text属性值置空且将PasswordChar属性值改为“*”；选中按钮Command1，将Caption属性值改为“登录”，选中按钮Command2，将Caption属性值改为“重新输入”。然后调整各控件位置和大小，使整个窗体更加美观。

在右边右键点击“窗体”，选中“添加”，点击“添加窗体”，如图在出现的窗口里双击“窗体”，添加一个form2窗体；用同样的方法再添加一个form3窗体。

在form2窗体各添加一个标签和按钮。在标签的Caption属性值改为“登录成功！”也可以通过Font属性更改字体；按钮的Caption属性值改为“返回”。

在form3窗体各添加一个标签和按钮。在标签的Caption属性值改为“用户名或密码错误，请重新登录！”也可以通过Font属性更改字体；按钮的Caption属性值改为“重新登录”。

在form1窗体里，双击“登录”按钮，d出代码窗口，写上代码（在编写代码时系统会自动检查代码错误，但不是万能的哦，有些错误系统检查不出来），然后关闭代码窗口，代码会自动保存。我把代码也写下来，以方便亲手复制粘贴验证一下。

Private Sub Command1_Click()

If Text1 = "aaa" And Text2 = "abc123" Then

Form1.Hide

Form2.Show

Else

Form1.Hide

Form3.Show

End If

End Sub

在form1窗体里，双击“重新输入”按钮，d出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

在form2窗体里，双击“返回”按钮，d出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form2.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

在form3窗体里，双击“重新输入”按钮，d出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form3.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

至此，我们完成了编程，调试一下以检验程序的正确性。一种可以右键“文件”，再点击“调试”，另一种是直接点击调试按钮。

按要求在窗体上添加一个标签和一个文本框以及一个命令按钮，双击命令按钮，删除所有代码，复制如下代码到程序中

Private Sub Command1_Click()

If Val(Text1) Mod 2 = 0 Then

Label1 = "偶数"

Else

Label1 = "奇数"

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)'判字符

If KeyAscii <48 Or KeyAscii >57 Then KeyAscii = 0 '0-9字符之外屏蔽

End Sub

若满意请及时采纳，谢谢

---