检索文本框文本的示例代码

mark · 发表于 2006-10-17 14:13:06

有人有检索文本框文本的代码吗
谢谢

mark · 发表于 2006-10-17 14:14:35

x=textbox1.value

mark · 发表于 2006-10-17 14:15:06

您也可以使用textbox1。text

mark · 发表于 2006-10-17 14:29:04

忘了提…
我&#039；m假设文本框是一个userform.ie.text=userform1.textbox1.text=userform2.textbox4.text或如上所述的替换。带.value的文本想想看，.value可能更好，但我和039；我不确定这是否重要。

mark · 发表于 2006-10-17 14:37:17

你&#039；我的假设也正确

Jeff_M · 发表于 2006-10-17 14:45:59

别忘了将x作为字符串进行Dim，以便x可以取值

Jeff_M · 发表于 2006-10-17 15:16:22

让我重新表述一下这个问题。你如何获得文本框。公共子系统内的文本

copy

Public Sub RunMe()
    '
    ' test module
    '
    Dim MsgText As String
    Dim myFormInstance As MyForm
    Set myFormInstance = New MyForm
    
    With myFormInstance
        .Label1.Caption = "A caption."
        .TextBoxMsg.Text = "Enter some text"
    End With
    
    myFormInstance.Show
    Unload myFormInstance
     
End Sub

mark · 发表于 2006-10-17 15:22:06

copy

Public Sub RunMe()
    '
    ' test module
    '
    Dim MsgText As String
    Dim myFormInstance As MyForm
    Set myFormInstance = New MyForm
    
    With myFormInstance
        .Label1.Caption = "A caption."
        .TextBoxMsg.Text = "Enter some text"
    End With
    
    myFormInstance.Show
    
    dim text as string
    text = myFormInstance.textboxmsg.text
    msgbox text
    Unload myFormInstance
     
End Sub