VB中的text窗口怎么应用到程序中?
VB中的Text窗口(输入文字的)怎么才能运用到程序中去?比如Text窗口旁放个按钮,怎么让点击按钮就可以按照Text里的路径来执行?删除该路径的文件,到底怎么引用?直接...
VB中的Text窗口(输入文字的)怎么才能运用到程序中去?比如Text窗口旁放个按钮,怎么让点击按钮就可以按照Text里的路径来执行?
删除该路径的文件,到底怎么引用?直接在按钮上打吗? 展开
删除该路径的文件,到底怎么引用?直接在按钮上打吗? 展开
4个回答
2010-11-04
展开全部
Private Sub Command1_Click()
On Error Resume Next
s = Trim(Text1.Text)'或:s = Trim(Text1)
If s = "" Then Exit Sub
If Dir(s) = "" Then Exit Sub
If MsgBox("是否删除该文件:" & s & "?", 48) = vbNo Then Exit Sub
Kill s
If Err <> 0 Then Msgbox "删除失败!", 48
End Sub
Text是TextBox的默认属性,如同Caption是Label的默认属性一样,
s = Text1.Text与s = Text1结果是一样的。
s = Label1.Caption与s = Label1结果是一样的。
但:
Text1作为一个对象来引用时,两者就不同了:
可用Set obj = Text1(Text1是一个对象),而不能用Set obj = Text1.Text(错误!)。
On Error Resume Next
s = Trim(Text1.Text)'或:s = Trim(Text1)
If s = "" Then Exit Sub
If Dir(s) = "" Then Exit Sub
If MsgBox("是否删除该文件:" & s & "?", 48) = vbNo Then Exit Sub
Kill s
If Err <> 0 Then Msgbox "删除失败!", 48
End Sub
Text是TextBox的默认属性,如同Caption是Label的默认属性一样,
s = Text1.Text与s = Text1结果是一样的。
s = Label1.Caption与s = Label1结果是一样的。
但:
Text1作为一个对象来引用时,两者就不同了:
可用Set obj = Text1(Text1是一个对象),而不能用Set obj = Text1.Text(错误!)。
展开全部
您的问题不能清楚的表达您的意思
这样说吧,点击按钮您想要实现什么程序吧?
这样说吧,点击按钮您想要实现什么程序吧?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在一个工程中先画一个Text和Buttom然后在相应的事件下写程序啊,记得要将Text中的执行事件在Buttom中写清楚。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
属性设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询