共117 条记录, 每页显示 10 条, 页签: [1]... [8][9][10][11] [12]

[浏览完整版]

标题：[求助]咨询

111楼

有点蓝 发表于：2023/9/10 20:05:00

建议安装原版的简体中文系统。其它非原版的简体中文系统使用的时候注意

1、项目名称，以及项目使用到的文件名称不能都有中文

2、项目文件所在的目录路径不能有中文

112楼

ntqhj 发表于：2023/12/21 14:19:00

论坛找的代码：如何将下面的一条代码【nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址】的图片地址指定到本地的Images目录下的001.ico

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件

Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("菜单一",GetImage(projectpath & "\BrowseMode.ico")) '定义一个菜单选项(带图标)

AddHandler tsmi1 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("菜单二") '定义一个菜单选项

AddHandler tsmi2 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim zcd1 As new System.Windows.Forms.ToolStripMenuItem("子菜单1") '定义一个菜单选项

Dim zcd2 As new System.Windows.Forms.ToolStripMenuItem("子菜单2") '定义一个菜单选项

tsmi2.DropDownItems.Add(zcd1) '把 "子菜单1" 添加为 "菜单二" 的子菜单

tsmi2.DropDownItems.Add(zcd2) '把 "子菜单2" 添加为 "菜单二" 的子菜单

Dim tsmi3 As new System.Windows.Forms.ToolStripMenuItem("菜单三") '定义一个菜单选项

AddHandler tsmi3 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim ztsmi As new System.Windows.Forms.ToolStripMenuItem("一级子菜单1") '定义一个菜单选项

AddHandler ztsmi .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim ejzcd As new System.Windows.Forms.ToolStripMenuItem("二级子菜单1") '定义一个菜单选项

ztsmi.DropDownItems.Add(ejzcd ) '把"二级子菜单1" 添加为 "一级子菜单1" 的子菜单

tsmi3.DropDownItems.Add(ztsmi) '把 "一级子菜单1" 添加为 "菜单三" 的子菜单

cms.Items.Add(tsmi1) '为全局变量CMS 也就是右键菜单添加 "菜单一"

cms.Items.Add(tsmi2) '为全局变量CMS 也就是右键菜单添加 "菜单二"

cms.Items.Add(tsmi3) '为全局变量CMS 也就是右键菜单添加 "菜单三"

nfi.ContextMenuStrip = cms

nfi.Text = "我是Foxtable" '鼠标移上去显示的文本

nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址

nfi.Visible = True '设置为显示

Forms("窗口1").show

113楼

有点蓝 发表于：2023/12/21 15:10:00

nfi.Icon = new Icon(ProjectPath & "Images\001.ico") '图标地址

114楼

ntqhj 发表于：2024/6/25 9:06:00

CheckBox控件，若已勾选，想通过代码实现取消勾选，这个代码是怎样的呢？

115楼

有点蓝 发表于：2024/6/25 9:28:00

http://www.foxtable.com/webhelp/topics/0777.htm

116楼

ntqhj 发表于：2024/7/3 20:47:00

这段代码放在表AfterLoad事件里,大多是示例里的，当时没备注，麻烦老师帮解释下是啥意思呢？

Dim t As Table = CurrentTable

For Each cl As Col In t.cols

If cl.visible Then

t.Select(t.rows.count -1,t.cols(cl.name).index)

Exit For

End If

117楼

有点蓝 发表于：2024/7/4 8:52:00

Dim t As Table = CurrentTable 取当前正在使用的表格：http://www.foxtable.com/webhelp/topics/0436.htm

For Each cl As Col In t.cols 遍历所有列：http://www.foxtable.com/webhelp/topics/0561.htm

If cl.visible Then 如果这个列是显示的：http://www.foxtable.com/webhelp/topics/0572.htm

t.Select(t.rows.count -1,t.cols(cl.name).index) 选中最后一行这个列的单元格：http://www.foxtable.com/webhelp/topics/0550.htm、http://www.foxtable.com/webhelp/topics/1438.htm

Exit For 退出循环：http://www.foxtable.com/webhelp/topics/0226.htm

End If

共117 条记录, 每页显示 10 条, 页签: [1]... [8][9][10][11] [12]