十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
首先~~需要确认的是,每次读取花时间的问题~是在连接上还是在创建实例上。
成都创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、成都网站制作、青云谱网络推广、小程序开发、青云谱网络营销、青云谱企业策划、青云谱品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联为所有大学生创业者提供青云谱建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
如果是在创建实例上,需要做【单例模式】,建议所有数据创建在Module中,并做全局变量。
Cache是一种B/S,的MVC方式。
缓存方式有很多~~~
一种是物理方式(做物理RAM内存开避空间)
一种是文件方式(做文件)
如文件方式,较常出现的如MVC的缓存,就是大概原理就是,把不经常用到(变化)的数据信息放到文件中,采用读取文件的方式(比访问数据快),存在指定或CurrentDir中。
如果想方便~需要追加一系列状态标识~当访问时,触发变更,然后在读取数据前,确认这个状态是否变动,如果变动说明数据库有变动,需要再次访问数据库。如果没有变动,则读取文件。
这种就叫缓存技术。
当然,我说的这种是比较简单的,还是需要设计思想。
有一个方法,可以删除C:\documents settings\用户名\local settings\Temporary Internet Files下面的所有目录中的文件,就可以清除缓存和Cookie了
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);
//继续画
Private Sub Command1_Click() '删除源文件并复制到指定文件夹按钮事件
Dim a As String, b As String
a = "C:\Users\蓝冰\AppData\Local\Microsoft\Windows\Temporary\music.m4a" '源
b = "C:\Documents and Settings\Administrator\桌面\music.m4a" '复制到指定路径
If Dir(a) "" Then '判断有没有该文件存在
FileCopy a, b '从a文件夹里复制到b文件夹
Kill a '将a文件夹里的指定文件删除
Else
MsgBox "没有找到该文件!!"
End If
End Sub
直接del /s /q+路径不就行了,最后加上一个MSGBOX(“清除完毕!”)就行了啊
是del /s /q。。。
这是调用外部命令
具体伱CMD进去然后输入del /?
VB.NET调用IE代码示例:
Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种VB.NET调用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub