vb中标签内容怎么输入

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

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

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

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

VB添加标签缺省是放置于窗体的正中间，可通过设置它的Left、Top 属性来改变在窗体的位置。

Left、Top 属性：

Left－返回或设置对象内部的左边与它的容器的左边之间的距离。

Top－返回或设置对象的内顶部和它的容器的顶边之间的距离。

以下代码是将标签置于窗体左下角的代码。

Private Sub Form_Resize()

    Label1.Top = Me.ScaleHeight - Label1.Height

    Label1.Left = 0

End Sub

也可通过Move方法来改变标签控件在窗体的位置。

Move 方法，用以移动 MDIForm、Form 或控件。

实现代码，将标签移动到窗体右上角：

Private Sub Form_Click()

    Dim left, top, width, height

    top = 0

    left = Me.ScaleWidth - Label1.width

    width = Label1.width

    height = Label1.height

    Label1.Move left, top, width, height

End Sub

参考：http://zhidao.baidu.com/question/103350648

进入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

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

---