如何使创建的文件名是由textbox的text属性决定

更新时间2022-04-29 00:20:21

以下是用你的源码做的一个。我应该怎么改
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ***.click
        Dim f As String
        Dim t
        Dim n
        n = ***.text
        f = "d:***.txt"
        t = ***.text & n
        If Dir(f) = "" Then
            Try
                my.***.writealltext(f, t, True)
            Catch ex As Exception
                MsgBox("创建文件出错！")
            End Try
        End If
        ***.show()
        ***.hide()
    End Sub

这个只要改

  f = "d: est.txt"

为

 f = TextBox1.Text

其中TextBox1是你TextBox构件的名字