- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 笑话 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179732)
-- 发布时间：2022/9/6 11:12:00
-- 笑话
大师：2022-1-30的版本，出现以下情况：
双击控件打开代码编辑窗口中的代码，与点击事件按钮打开代码编辑窗口中的代码不一样？？？？？？？？？？？？？？？少next
If k.Value <> "" Then
Dim jhm As String
For Each s As String In EnCoding.Ascii.GetBytes(EncryptText(k.Value, "98B0EBBB", "DD5B789F"))
jhm = jhm & s
Next
Dim xjhm As String
xjhm = jhm.SubString(0,4) & "-" & jhm.SubString(2,4) & "-" & jhm.SubString(4,4) & "-" & jhm.SubString(8,4) & "-" & jhm.SubString(15,4) & "-" & jhm.SubString(20,4)
dr("激活码") = xjhm
End If
-- 发布时间：2022/9/6 11:19:00
--
1、更新Foxtable到最新版本
2、联系客服核对激活码
3、在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中看看有没有勾选兼容模式，如果有勾选就去掉
-- 发布时间：2022/9/21 11:04:00
--
试过了，代码窗口代码显示不全，最后要么少next，要么少end if????????????????????????????????????
-- 发布时间：2022/9/21 11:09:00
--
项目文件发上来，或者发给客服看看
-- 发布时间：2022/9/21 11:58:00
--
就这个也不行
-- 发布时间：2022/9/21 12:01:00
--
就这个也不行，主窗口中菜单按钮代码显示不全？
-- 发布时间：2022/9/21 12:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:tabcontrol页签窗口.zip |
-- 发布时间：2022/9/21 12:08:00
--
公司电脑打开都没有问题。确定2楼的方法都检查过了。
换台电脑，或者换个系统试试
[此贴子已经被作者于2022/9/21 12:08:26编辑过]
-- 发布时间：2022/9/21 20:07:00
--
重新装了系统，还是以上问题，代码编辑器窗口里的代码如下
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If Forms.contains(e.StripItem.Name) = False Then
MessageBox.Show("建设中……", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
For i As Integer = 0 To tab.TabPages.Count - 1
If tab.TabPages(i).Name = e.StripItem.Name Then
tab.SelectedIndex = i
Return
End If
next 没有了
e.Form.StopRedraw
tab.TabPages.Add(e.StripItem.Name, e.StripItem.Name)
Forms(e.StripItem.Name).Open( - 1000, - 1500)
Forms(e.StripItem.Name).BaseForm.TopLevel = False
Forms(e.StripItem.Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(e.StripItem.Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
该行代码没有了
tab.TabPages(e.StripItem.Name).Controls.Add(Forms(e.StripItem.Name).BaseForm)
tab.SelectedPage = tab.TabPages(e.StripItem.Name)
BaseMainForm.Activate()
e.Form.ResumeRedraw
点击确定，显示没有next ???????????????????????????????????????
-- 发布时间：2022/9/21 20:58:00
--
这个bug好多年了，解决方法是，打开编辑器前先导出一下代码，或在AfterOpenProject事件中 Syscmd.Project.ViewCode() \'导出代码
[此贴子已经被作者于2022/9/21 21:20:14编辑过]