2008 July | liu6's blog

Jul 09

通过名称获得控件

今天遇到了一个问题,有十个控件,名称很类似,只是尾数不同.操作也是一样的,只是各个取得数据的条件不同.但是事件还是一样的.一个个单独的去写有些繁琐.比较方便的办法就是把他们作为整体去处理.在赋值和读数据的时间使用循环操作.

而这时,利用控件的名字获得控件就是一个很重要的环节了.

”’ <summary>
”’ 根据名称取得控件
”’ </summary>
”’ <param name="Name">控件名</param>
”’ <param name="CurrentForm">窗体</param>
”’ <returns></returns>
”’ <remarks></remarks>
Private Function GetControlByName (ByVal Name As String, ByVal CurrentForm As Form) As Control
    Dim info As FieldInfo = _
            CurrentForm.GetType().GetField("_" & Name, _ “”此处的下划线让我郁闷了
                                            BindingFlags.NonPublic Or _
                                            BindingFlags.Instance Or _
                                            BindingFlags.Public Or _
                                            BindingFlags.IgnoreCase)
    Dim a As Object = CurrentForm.GetType.GetMembers()
    Dim files As System.Reflection.FieldInfo() = CurrentForm.GetType.GetFields()
    If Not info Is Nothing Then

        Return CType(info.GetValue(CurrentForm), Control)
    End If
    Return Nothing
End Function

这里有点不一样的就是在控件名称前面要加上一个”_”这个可能是VB.NET和C#.NET的区别吧.VB.NET中反射的时间,会在所有控件前面加一个”_”,至于这其中的用意,不是很理解.不过,VB.NET本身就很怪异了.

written by 刘浏 \\ tags: VB.NET

Jul 09

ScribeFire 的快速广告

web2.0 No Comments »

ScribeFire作为火狐的一个blog离线发布插件,已经做得相当的完善了.除了不能脱离Firefox这点外,好像没什么缺点了.而且,一扫FF3.0之前一段时间更新缓慢的毛病,最近这段时间带来了不少新的东西.而这次比较让人感兴趣的,就是快速广告 (QuickAds)了.

之前,自己都是比较喜欢LinkWorth,而且这个是自己唯一真正获得真金白银的一个广告提供商.ScribeFire现在也投身于这个市场,挺不错的, 借助其大范围的用户资源,相信会有一番作为的.现在快速广告(QuickAds)还处于测试期,我提交了E-mail,也就两天就获得了邀请.
离线浏览器发布广告,这个好像很早以前的Zoundry提供了,不过,一直没有什么结果.而这次ScribeFire则是有备而来的.ScribeFire 是何广告提供商联盟来做的,自己并不直接去寻求广告客户,只是做了一个中间的平台.这样的好处是省去了大量的人力去寻求广告,而且,能不能找到愿意来做广告的还是个问题.所以,源头是没有问题的.

说下自己的感受吧.
整个网站做得相当不错.创建广告也是很简单的,在CREATE AD里面创建新的ad就行了,不过,这里只能创建类似于Google Adsenes的那种广告.而且现在只有三种大小可以选择,这点比较郁闷.
另外,支付方式使用的是paypal,不过没有看到最小支付额,因为刚开始,至于支付的事情还是不太清楚.不过使用paypal还是挺好的.
总之,刚刚开始,应该不错..
如果想获得测试邀请可以点击这里
http://www.scribefire.com/public/signup