Public Sub Storage() '存储函数
成都创新互联是一家专业提供轮台企业网站建设,专注与网站设计制作、成都网站设计、成都h5网站建设、小程序制作等业务。10年已为轮台众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
Dim setstr As String = ""
Dim keyname As String
Dim mykey As RegistryKey
keyname = "software\microsoft\windows\currentversion\policies\system"
mykey = Registry.CurrentUser.CreateSubKey(keyname)
mykey.SetValue("ArgueSet", setstr) '设置
mykey.Close()
End Sub '存储
-----------------------------------------------------------------------------------------------------------------
Public Sub Read() '读取数据函数
Dim setstr As String
Dim keyname As String
Dim mykey As RegistryKey
keyname = "software\microsoft\windows\currentversion\policies\system"
mykey = Registry.CurrentUser.CreateSubKey(keyname)
setstr = mykey.GetValue("ArgueSet") '读取
mykey.Close()
End Sub
是不是这样的
首先~~需要确认的是,每次读取花时间的问题~是在连接上还是在创建实例上。
如果是在创建实例上,需要做【单例模式】,建议所有数据创建在Module中,并做全局变量。
Cache是一种B/S,的MVC方式。
缓存方式有很多~~~
一种是物理方式(做物理RAM内存开避空间)
一种是文件方式(做文件)
如文件方式,较常出现的如MVC的缓存,就是大概原理就是,把不经常用到(变化)的数据信息放到文件中,采用读取文件的方式(比访问数据快),存在指定或CurrentDir中。
如果想方便~需要追加一系列状态标识~当访问时,触发变更,然后在读取数据前,确认这个状态是否变动,如果变动说明数据库有变动,需要再次访问数据库。如果没有变动,则读取文件。
这种就叫缓存技术。
当然,我说的这种是比较简单的,还是需要设计思想。
VB.NET画图是不能设置双缓冲的,双缓冲是指窗体,从来没说是针对控件。
不用graphic.clear清理重画就不会闪烁。你可以先把容器删了再重新建立一个再去画。
简单举例:
Graphics g;
Pen p;
Panel pl;
构造函数初始化:
p=new Pen(Color.Red,2);
pl=panel1;
造成闪烁的画法:
g=pl.CreateGraphics();
g.Clear(SystemColor.ButtonFace);
//.....画新的
不会闪烁的办法:
this.Controls.ReMoveAt(panel1);
pl=new Panel();
pl.Name="panel1";
//....创建容器控件
this.Controls.Add(pl);
//继续画