| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 打开文件的动态路径怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177587) |
| -- 作者：wukangppbb -- 发布时间：2022/5/27 14:01:00 -- 打开文件的动态路径怎么写？ 老师，问一问， doc文件单击打开的代码如下，但是"C:\\test.doc" 这是一个动态路径，项目文件拷贝到其他PC机上，怎么保证也能打开呢？ Dim Proc As New Process
Proc.File = "C:\\test.doc" For each Verb As String In Proc.Verbs Output.Show(verb) Next |
| -- 作者：有点蓝 -- 发布时间：2022/5/27 14:07:00 -- 方法1、限制文件只能复制到项目所在的文件夹里： Proc.File = projectpath & "test.doc" 方法2、把文件路径保存到表格里 Proc.File = tables("表A").current("文件列")
|
| -- 作者：wukangppbb -- 发布时间：2022/5/27 14:57:00 -- 回复：（有点蓝）方法1、限制文件只能复制到项目所在的... 老师，问一下 e.Table.ShowToolTip，这个是文本辅助显示，但是好像显示文本的时候不能按照字节数进行多行显示，如果文本很长就占满整个屏幕的一行，显得不美观， 如果列属性不使用备注型，这个e.Table.ShowToolTip可以怎么修改的？
|
| -- 作者：有点蓝 -- 发布时间：2022/5/27 15:16:00 -- 自己拆分，比如超过20个字就添加换行 Dim s As String = "判断字符串是否包含给定的子字符串。判断字符串是否包含给定的子字符串。判断字符串是否包含给定的子字符串。" If s.Length > 20 Then Dim ss As String = "" Do While s.Length > 20 ss = ss & vbCrLf & s.Substring(0, 20) s = s.Substring(20) Loop ss = ss & vbCrLf & s ss = ss.Trim(vbcrlf) Output.Show(ss) End If |
| -- 作者：wukangppbb -- 发布时间：2022/5/27 17:01:00 -- 回复：（有点蓝）自己拆分，比如超过20个字就添加换行... 这个是写在表事件的哪个事件里面的？ 好像没有用到ShowToolTip 的功能了
[此贴子已经被作者于2022/5/27 17:01:59编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/5/27 17:08:00 -- 我只是举例说明怎么拆分字符串，请理解一下，然后应用到自己需要ShowToolTip 的地方 |