标题：[已解决]InputValue函数问题

1楼

hanxuntx 发表于：2011/11/17 16:05:00

图片点击可在新窗口打开查看此主题相关图片如下：窗口概览.png

上面的图，按钮“设置提示”想用一个InputValue函数。提示没有设置到对象实例

请问代码应该怎么写？

[此贴子已经被作者于2011-11-17 17:13:42编辑过]

2楼

狐狸爸爸 发表于：2011/11/17 16:23:00

代码？

3楼

hanxuntx 发表于：2011/11/17 17:04:00

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim dr As DataRow
Dim s As String
If InputValue(s, "请输入节点描述", "") Then
    dr = Tree1.find("TreeFullPath = '" & nd.FullPath & "'")
    dr("提示") = s
    nd.Tooltip = dr("提示")
End If
e.Form.Close()

我这么写不行。

4楼

czy 发表于：2011/11/17 17:08:00

Dim s As String = ""

5楼

czy 发表于：2011/11/17 17:11:00

好像是bug哎。

这样没事：

Dim s As String
InputBox(s, "列宽设置")

6楼

hanxuntx 发表于：2011/11/17 17:13:00

名不虚传

7楼

hanxuntx 发表于：2011/11/17 17:19:00

是的，帮助里面的例子就没有赋值啊。所以想不通

8楼

狐狸爸爸 发表于：2011/11/17 17:19:00

我看看

9楼

czy 发表于：2011/11/17 17:24:00

以下是引用hanxuntx在2011-11-17 17:19:00的发言：
是的，帮助里面的例子就没有赋值啊。所以想不通

只是变量为字符型时才有此问题。

共9 条记录, 每页显示 10 条, 页签: [1]