社区 › VB › 检索文本框文本的示例代码

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

让我重新表述一下这个问题。你如何获得文本框。公共子系统内的文本
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

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 编码盲，但应该可以工作。首选方法（IMO）是公开属性明确性，以允许访问所述文本，但这可能是另一个主题。

mark 发表于 2006-10-17 15:29:41

谢谢你，迈克尔，我很接近……真的很接近！错过了myFormInstance.textboxmsg。文本部分

mark 发表于 2006-10-17 16:42:17

嘿，马克，我很快就干掉了一个AutoCAD VBA项目的小例子（哈，我第一次！）为你。远非完美，但可能会有所帮助
参见随附的zip文件。形式上有代码（frmMain）和模块（mdlMain）
玩得开心

查看完整版本: 检索文本框文本的示例代码