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);
//继续画