| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 怎么增加记事本 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130227) |
| -- 作者：爱相随 -- 发布时间：2019/1/16 12:01:00 -- 怎么增加记事本 老师，为了记录在开发过程中解决的重点难题和问题，在系统里怎么设计记事本呢？？ |
| -- 作者：有点甜 -- 发布时间：2019/1/16 12:30:00 -- 做一个窗口，放入textbox控件（多行），即可。
把数据，保存到一个表的备注列。 |
| -- 作者：爱相随 -- 发布时间：2019/1/16 12:48:00 -- 谢谢老师。 下面的代码是试用次数完后注册用的。有以下几个问题： 1、弹出的注册框没有自动提取机器码，电脑是笔记本无线上网，有没有影响； 2、发布前要清除已使用次数，请问代码怎么写。 Dim n As Integer = GetConfigValue("Count",1) Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim Ok As Boolean If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True Else If n > 124 Then Forms("注册窗口").Open() Code = GetConfigValue("Register" & ComputerId,"") If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True End If End If If n > 124 AndAlso Ok = False Then Messagebox.Show("您正在使用的产品已经超出试用次数!请联系开发者注册:电话:18984029149,QQ:827679915,微信:ranjc001") Syscmd.Project.Exit() End If End If n = n + 1 SaveConfigValue("Count",n) |
| -- 作者：爱相随 -- 发布时间：2019/1/16 12:51:00 -- 另外就是系统中增加的菜单按钮，点后系统无反应或无响应，老是卡机，没有增加几个按钮 |
| -- 作者：有点甜 -- 发布时间：2019/1/16 15:08:00 -- 1、注册窗口的afterLoad事件
e.Form.Controls("TextBox1").Value = ComputerId
2、发布之前，执行
SaveConfigValue("Count", 0) |