标题：[求助]任务栏

1楼

江南小镇 发表于：2024/9/4 12:08:00

老师好，任务栏按钮代码不响应。

'Select Case e.Sender.Name

'''Select Case e.Link.text '判断当前控件名称

' Case "切换标题"

'TableCaptionVisible = Not TableCaptionVisible '切换表标题

' Case "切换界面"

' BaseMainform.Controls("C1Ribbon1").Visible = not BaseMainform.Controls("C1Ribbon1").Visible

'End Select

2楼

有点蓝 发表于：2024/9/5 21:31:00

代码放在哪个事件的？

调试

msgbox(e.Sender.Name)

msgbox(e.Sender.text)

3楼

江南小镇 发表于：2024/9/6 8:10:00

好了，谢谢老师

4楼

江南小镇 发表于：2024/9/6 8:13:00

老师好，任务栏设置一定的高度，不填满整个页面。

Dim tpb1 As WinForm.TopicBar = Forms("水电气数据查询").Controls("TopicBar1") '''& i)

’tpb1.Dock = 5

e.Form.Controls("TabControl1").TabPages(0).AddControl(tpb1)

5楼

有点蓝 发表于：2024/9/8 10:46:00

tpb1.height = 300

6楼

江南小镇 发表于：2024/9/8 15:12:00

谢谢老师

7楼

江南小镇 发表于：2024/9/9 8:54:00

老师好，下面代码生成表的个别列内容能赋值给文本框吗？

Tables("窗口1_Table2").Fill("Se lect * ..... {文件管理}","数据查询",True)

Tables("窗口1_Table2").SetColVisibleWidth("编号|56|记录日期|78|文件|191|备注说明|191|附件|263|路径|227|文件分类|59")

8楼

有点蓝 发表于：2024/9/9 9:01:00

e.form.controls("文本框").text =Tables("窗口1_Table2").current("某列")

9楼

江南小镇 发表于：2024/9/9 9:14:00

老师，刚才没有说全面，窗口1_Table2的表要赋值给窗口2的文本框，在打开窗口2的前提下赋值。

10楼

有点蓝 发表于：2024/9/9 9:44:00

forms("窗口2").controls("文本框").text =xxxx

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