Marquee高级用法实例代码
星期三, 06月 4th, 2008点击运行可以看到效果:
[html]
ÿ
ÿ
[Ctrl A 全选 提示:您可先修改部分相关代码,再按运行]]
点击运行可以看到效果:
[html]
ÿ
ÿ
[Ctrl A 全选 提示:您可先修改部分相关代码,再按运行]]
在早期学习c#de过程中,经常遇到这样de语句:
public string StudentName
{
get{return stuName;}
set{stuName=value;}
}
当时也不是很明白为什么要这样?学深了c#后,又没法对其做一个总结.今天看了《Visual c#.net程序设计教程》这本书,总结得不错,做下笔记:
在许多面向对象程序设计语言中,属性(property)是指对象de特征和状态,具体地说就是指对象de数据成员.程序员可以指定数据成员能否被外界直接访问,如果数据成员被指定为publicde,外界就可以用“对象名.公有数据成员名”访问该成员.c#是完全面向对象de语言,c#倡导一种新途径,对数据成员能够更好地封装和保护,同时又向外界提供更有效de访问形式.c#中用来达到这个目标de就是“属性”,而那些数据成员,在c#中称为“字段”或“域”.
属性de定义和使用
属性由两个部分组成:属性头和存储器.存储器分为get访问器和set访问器.声明属性de一般形式为:
修饰符 类型 属性名
{
get //get存取程序
{…}
set //set存取程序
{…}
}
属性de修饰符可以是任何访问控制符,还可以被定义为静态.get和set是一种特定de方法,get用来从对象中读取数据,而set用来向字段写入数据,将外界de数据写入字段时,c#使用value表示输入de数据,value可以说是一个准关键字,例如:
set{aField=value;}
在ASP.NET 2.0中,可以使用healthMonitoring属性监测事件.healthMonitoring属性是一个基于方法deprovider,在这里可以构造自己deprovider.利用healthMonitoring属性,我可以诸如记录错语、成功de事件等,对不同de数据源,如事件日志,Sql Server甚至对于自己通过继承WebEventProvider类创建自己deproviders.在此文章中,我打算介绍配置一个监测SqlServer错语de并且对某人de电子信箱地址发送邮件deweb应用程序.首先,看一下在web.config中dehealthMonitoring程序片段,在此可以建立将要用到de事件.
<healthMonitoring Enabled=”true|false” heartBeatInterval=”time interval”>
<bufferModes>… </bufferModes>
<providers>… </providers>
<eventMappings>… </eventMappings>
<profiles>… </profiles>
<rules>… </rules>
</healthMonitoring>
如果看一下<healthMonitoring>元素,就可以判断是否可以将设置属性为有效或无效,也可以指定对WebHeaderBeatEvent被唤醒de时间间隔.healthMonitoring有5个孩子.
bufferModes,在此可以定义一个Providerde缓冲区大小.
Providers,在此说明处理事件deProviders.
eventMappings, 在此可以画出与友好事件类型相关de事件名称.
profiles, 在此定义一个可以用来配置事件de参数集集合.
rules, 在此画出Providersde事件图.
可以阅读更多含在VS 2550文档中de关于这些元素de东西.
在继续之前,这里有一份含ASP.NET中de一些Providers清单:
System.Web.Management.MailWebEventProvider
System.Web.Management.SimpleMailWebEventProvider
System.Web.Management.TemplatedMailWebEventProvider
System.Web.Management.TraceWebEventProvider
System.Web.Management.EventLogWebEventProvider
System.Web.Management.SqlWebEventProvider
System.Web.Management.WmiWebEventProvider
不需要解释这些,名字告诉我它们是干什么de.还要提一下SqlWebEventProvider依靠Sql server而工作,它将事件存储在aspnet_Web_Event表.为了安装此数据库,必须运行位于framework文件夹中deaspnet_regsql.exe向导.
现在,配置对Sql server provider有登录错语并且发送一个电子邮件而产生错误de程序.
下面是一个使用SqlWebEventProvider和SimpleMailWebEventProvider来存错语事件de例子.
<healthMonitoring enabled=”true” heartBeatInterval=”0″>
<bufferModes>
<add name=”Critical Notification” maxBufferSize=”100″ maxFlushSize=”20″urgentFlushThreshold=”1″ regularFlushInterval=”Infinite” urgentFlushInterval=”00:01:00″ maxBufferThreads=”1″/>
<add name=”Analysis” maxBufferSize=”1000″ maxFlushSize=”100″ urgentFlushThreshold=”100″
regularFlushInterval=”00:05:00″ urgentFlushInterval=”00:01:00″ maxBufferThreads=”1″/>
</bufferModes>
<providers>
<add name=”CriticalMailEventProvider” type=”System.Web.Management.SimpleMailWebEventProvider, System.Web …” from=info@nsquared2.net to=fnormen@hotmail.com priority=”High” bodyHeader=”Warning!”
bodyFooter=”Please investigate ASAP.” subjectPrefix=”Action required.” buffer=”true” bufferMode=”Critical Notification” maxEventLength=”4096″ maxSize=”4096″ maxMessagesPerNotification=”1″/>
<add name=”SqlWebEventProvider” type=”System.Web.Management.SqlWebEventProvider, System.Web …”
connectionStringName=”LocalSqlServer” maxEventDetailsLength=”1073741823″ buffer=”true”
bufferMode=”Analysis”/>
</providers>
<eventMappings>
<add name=”All Errors” type=”System.Web.Management.WebBaseErrorEvent, System.Web …”/>
<add name=”Request Processing Errors” type=”System.Web.Management.WebRequestErrorEvent, System.Web …/>
</eventMappings>
<profiles>
<add name=”Default” minInstances=”1″ maxLimit=”Infinite” minInterval=”00:10:00″/>
</profiles>
<rules>
<add name=”All Errors Default” eventName=”All Errors” provider=”SqlWebEventProvider” profile=”Default”
minInterval=”00:00:30″/>
<add name=”Request Processing Errors” eventName=”Request Processing Errors” provider=”CriticalMailEventProvider” profile=”Default”/>
</rules>
</healthMonitoring>
在此例子中,使用Sql provider来记录所有错语事件,并且当Web请求错误事件被唤醒时使用mail provider来发送一个消息.
这里有一些ASP .NET 2.0一起发布de事件:
System.Web.Management.WebBaseEvent
System.Web.Management.WebHeartBeatEvent
System.Web.Management.WebApplicationLifetimeEvent
System.Web.Management.WebRequestEvent
System.Web.Management.WebBaseErrorEvent
System.Web.Management.WebErrorEvent
System.Web.Management.WebRequestErrorEvent
System.Web.Management.WebAuditEvent
System.Web.Management.WebFailureAuditEvent
System.Web.Management.WebSuccessAuditEvent
System.Web.Management.WebManagementEvent
System.Web.Management.WebViewStateFailureAuditEvent
System.Web.Management.WebAuthenticationFailureAuditEvent
System.Web.Management.WebAuthenticationSuccessAuditEvent
可以使用这些事件来对一个provider画图.也可以创建通过WebBaseEvent类继承来de自己de事件.
为自动唤醒一个事件,可以使用WebBaseEvent类de唤醒方法:
try
{
//….
}
catch(Exception e)
{
if (HealthMonitoringManager.Enabled)
{
WebBaseEvent.Raise(new WebErrorEvent(”My Error message”, null, 5000, e));
}
}
or:
if (HealthMonitoringManager.Enabled)
{
WebErrorEvent event = new WebErrorEvent(”My error message”, null, 5000, e);
event.Raise();
}
类de另类用法–数据de封装
一般de情况下,如果使用classname::property是不能访问到类de属性de,但可以用classname::method()使用类de方法.同样de也不能用objectname->property访问到类de方法里de变量.利用这一特点,我可以将一些数据保存于类中,有点象c de私有属性.
<?
class data {
function value($var) {
static $d = array();
if(func_num_args() > 1) {
$d[$var] = func_get_arg(1);
}else {
return $d[$var];
}
}
}
//测试:
data::value("a",1);
data::value("b",2);
echo data::value("a");
echo data::value("b");
?>
””””””””””””””””””””””””””””””””””””
‘ CreateLyrics
‘ 目de:
‘ 在文件夹中创建两个文本文件.
‘ 示范下面de内容
‘ - FileSystemObject.CreateTextFile
‘ - TextStream.WriteLine
‘ - TextStream.Write
‘ - TextStream.WriteBlankLines
‘ - TextStream.Close
””””””””””””””””””””””””””””””””””””
Sub CreateLyrics(Folder)
Dim TextStream
Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")
TextStream.Write("Octopus’ Garden ") ‘ 请注意,该语句不添加换行到文件中.
TextStream.WriteLine("(by Ringo Starr)")
TextStream.WriteBlankLines(1)
TextStream.WriteLine("I’d like to be under the sea in an octopus’ garden in the shade,")
TextStream.WriteLine("He’d let us in, knows where we’ve been — in his octopus’ garden in the shade.")
TextStream.WriteBlankLines(2)
TextStream.Close
Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")
TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")
TextStream.WriteLine("")
TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")
TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")
TextStream.WriteBlankLines(2)
TextStream.Close
End Sub
‘ GetLyrics
‘ 目de:
‘ 显示 lyrics 文件de内容.
‘ 示范下面de内容
‘ - FileSystemObject.OpenTextFile
‘ - FileSystemObject.GetFile
‘ - TextStream.ReadAll
‘ - TextStream.Close
‘ - File.OpenAsTextStream
‘ - TextStream.AtEndOfStream
‘ - TextStream.ReadLine
””””””””””””””””””””””””””””””””””””
Function GetLyrics(FSO)
Dim TextStream
Dim S
Dim File
‘ 有多种方法可用来打开一个文本文件,和多种方法来从文件读取数据.
‘ 这儿用了两种方法来打开文件和读取文件:
Set TextStream = FSO.OpenTextFile(TestFilePath & "\Beatles\OctopusGarden.txt", OpenFileForReading)
S = TextStream.ReadAll & NewLine & NewLine
TextStream.Close
Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")
Set TextStream = File.OpenAsTextStream(OpenFileForReading)
Do While Not TextStream.AtEndOfStream
S = S & TextStream.ReadLine & NewLine
Loop
TextStream.Close
GetLyrics = S
End Function