• 新记

    • VB 运行时可以向label控件中输入数据么

    如题所述

    举报该文章
    相关建议   2011-06-18
    不可以，但是可以制作成以下的效果，以下效果可以输入。
    加一个label和一个textbox，不做改动，加入下面代码：
    Option Explicit
    Private Sub Form_Load()
    Text1.Visible = False
    Label1.Visible = True
    Label1.Height = 495
    Label1.Top = 960
    Label1.Left = 1320
    Label1.Width = 2535
    Text1.Height = 495
    Text1.Top = 960
    Text1.Left = 1320
    Text1.Width = 2535
    End Sub
    Private Sub Label1_Click()
    Text1.Visible = True
    Label1.Visible = False
    End Sub
    Private Sub Text1_Change()
    Label1.Caption = Text1.Text
    End Sub
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
    Call Text1_LostFocus
    End If
    End Sub
    Private Sub Text1_LostFocus()
    Text1.Visible = False
    Label1.Visible = True
    End Sub

    点击label,输入文字，按回车，观察效果。
    温馨提示：内容为网友见解，仅供参考
    其他看法
    第1个回答  2011-06-16
    可以修改，但不能像txt控件那样可以直接在上面输入，只能通过代码改变
    Private Sub Command1_Click()
    Label1.Caption = InputBox("请输入数：")
    End Sub
    第2个回答  2011-06-16
    可以。例如加以个按钮。 在按钮里加入label1.caption="要加的数据"
    运行时点击按钮就变了
    第3个回答  2011-06-16
    可以，输入在label的caption中
    第4个回答  2011-06-16
    'Timer的interval值1000
    Private Sub Timer1_Timer()
    Label1.Caption = Time$
    'Label1.Caption = Time 没有$的带上午下午,有则不带
    End Sub
    12
    相似回答
    大家正在搜