博客园-technofantasyhttp://www.cnblogs.com/technofantasy/zh-cnSat, 26 Jul 2008 08:47:41 GMTSat, 26 Jul 2008 08:47:41 GMT60微软社区发布会总结（多图杀猫）http://www.cnblogs.com/technofantasy/archive/2008/06/07/1215625.html陈锐陈锐Sat, 07 Jun 2008 07:44:00 GMThttp://www.cnblogs.com/technofantasy/archive/2008/06/07/1215625.htmlhttp://www.cnblogs.com/technofantasy/comments/1215625.htmlhttp://www.cnblogs.com/technofantasy/archive/2008/06/07/1215625.html#Feedback6http://www.cnblogs.com/technofantasy/comments/commentRss/1215625.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/1215625.html


活动发的礼品袋



每人发了付全国俱乐部领导人的扑克牌，数量有限，先来先得，能找到我和贺主席不？




偶先来个开场白。



微软的讲师同志讲到兴起处



讲师同志又在忽悠我们群众呢




会场内部，来了百十来号人



贺主席在认真听讲



中场休息




会后部分俱乐部成员的合影



会场里面还是不少程序员MM的。。



负责会务工作的MM，辛苦了！！！



活动的大奖，Windows Vista Ultimate版






[新闻]腾讯CEO马化腾:中国互联网业准备再过冬]]>微软 Visual Studio 2008 社区发布全国巡展长沙站预报http://www.cnblogs.com/technofantasy/archive/2008/05/26/1207342.html陈锐陈锐Mon, 26 May 2008 02:39:00 GMThttp://www.cnblogs.com/technofantasy/archive/2008/05/26/1207342.htmlhttp://www.cnblogs.com/technofantasy/comments/1207342.htmlhttp://www.cnblogs.com/technofantasy/archive/2008/05/26/1207342.html#Feedback3http://www.cnblogs.com/technofantasy/comments/commentRss/1207342.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/1207342.html
13:00 - 13:40 来宾签到
13:40 - 14:25 如何使用 Visual Studio 2008 开发下一代 Web 应用程序
14:25 - 15:05 开启 Windows Mobile 美丽新世界
15:05 - 15:15 休息
15:15 - 16:00 利用 Silverlight 及 Expression 构建强大的用户体验
16:00 - 16:35 Partner 创新经验及机遇——微软 SaaS 孵化计划
16:35 - 17:05 AMD助力中小企业提供高效节能计算机技术
17:05 - 17:20 Q&A 及抽奖

活动注册URL：
http://www.microsoft.com/china/msdn/08rs/cs.html

会议时间：
2008 年 6 月 1 日 星期日 13:00 - 17:20
会址详情：
长沙富丽华大酒店 3 楼多功能国际会议厅
地址：长沙八一路 88 号（乘 1 路、136 路、112 路、127 路“蓉园路口”下向西 100 米）


奖品包括：
Windows Vista Ultimate版（正式版哦，不是试用版）
Windows Server 2008, Visual Studio 2008, SQL Server 2008 三合一
其它开发光盘

微软T-Shirt


[新闻]F8 Keynote Speech[多图]]]>你的博客的性别是什么？http://www.cnblogs.com/technofantasy/archive/2006/12/20/598391.html陈锐陈锐Wed, 20 Dec 2006 09:33:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/12/20/598391.htmlhttp://www.cnblogs.com/technofantasy/comments/598391.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/12/20/598391.html#Feedback0http://www.cnblogs.com/technofantasy/comments/commentRss/598391.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/598391.html输入你的博客地址就可以了，下面是我的博客性别：
博客园-technofantasy
93.0%男性倾向,7.0%女性倾向
评点：您的文风冷静而镇定，言语间展现出强悍的思辨能力与恢宏的胸襟，一个男子汉的阳刚形象跃然纸上。
yodao | 博客男女


[新闻]奥运核心资源被分食 搜狐央视网谁忽悠谁？]]>湖南微软开发者俱乐部成立大会顺利召开http://www.cnblogs.com/technofantasy/archive/2006/10/25/539160.html陈锐陈锐Wed, 25 Oct 2006 01:55:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/10/25/539160.htmlhttp://www.cnblogs.com/technofantasy/comments/539160.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/10/25/539160.html#Feedback20http://www.cnblogs.com/technofantasy/comments/commentRss/539160.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/539160.html

会场盛况，前面是我和俱乐部主席贺天明在听课，前面的牌子就是湖南俱乐部的牌子。


会场图2，我在上面讲课。嘿嘿。


博文视点制作总监方舟在发言


俞晖在讲课，图片有点黑。


微软讲师徐栋在讲VISTA开发


俱乐部主席贺天明在抽奖（抽奖是我们临时写的一个程序，嘿嘿）


抽奖的头等奖获得者

下面是会后合影

俱乐部的几个牛人的合影


牛耳教育中心的学术部经理邹伟、我、俞晖



俱乐部成员合影，左边第２个是副主席帅哥许桌．俱乐部的场地就是他联系的。有对爬8楼不满的可以去扁他。

最后还要非常感谢长沙牛耳计算机教育提供的场地，以及博文视点提供的书籍赞助。希望下次活动更成功！


[新闻]微软推新型搜索技术"BrowseRank"挑战谷歌]]>湖南微软.NET俱乐部 成立大会事宜http://www.cnblogs.com/technofantasy/archive/2006/10/17/531565.html陈锐陈锐Tue, 17 Oct 2006 09:02:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/10/17/531565.htmlhttp://www.cnblogs.com/technofantasy/comments/531565.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/10/17/531565.html#Feedback4http://www.cnblogs.com/technofantasy/comments/commentRss/531565.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/531565.html
活动报名QQ群：18993902

活动的流程安排如下：
 1:30-2:00    签到
 2:00-2:30    介绍俱乐部
 2:30-2:45    介绍 LOVE@Community
 2:50-3:50    办公无处不在－Office 2007客户端开发(或Vista开发相关)
 4:00-4:30    博文视点和.NET俱乐部出版合作方案
 4:30-4:50    牛耳软件教育中心介绍
 5:00         抽奖、赠书、Q&A 、合影留念

本次活动由微软支持，牛耳提供场地，并且由博文视点提供活动抽奖奖品以及俱乐部书籍。
博文视点提供的书目有：

　　 1、《代码大全》第二版
 
     2、《程序员》杂志
 
     3、《最优化ASP.NET 》
 
     4、《SQL Server 2005 数据库开发详解》
 
     5、《SharePoint portal server2003 深入指南 》
 
     6、《应用框架的设计与实现》

下面列出这些书的封面：

最优化ASP.NET

代码大全第二版


应用框架的设计与实现

SharePoint portal server2003 深入指南

SQL server 2005 数据库开发详解



[新闻]2008年7月26日IT博客精选]]>在VB.NET中如何使在Webbrowser中实现标签页中打开新链接http://www.cnblogs.com/technofantasy/archive/2006/10/02/520041.html陈锐陈锐Mon, 02 Oct 2006 02:50:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/10/02/520041.htmlhttp://www.cnblogs.com/technofantasy/comments/520041.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/10/02/520041.html#Feedback0http://www.cnblogs.com/technofantasy/comments/commentRss/520041.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/520041.html1、在工程中添加COM的Microsoft Internet Controls的引用（这个引用对应的文件是shdocvw.dll，通常在system32目录下）。
2、添加如下代码：
Public Class Form1
    Private Sub NewWindow3(ByRef ppDisp As Object, ByRef Cancel As Boolean, _
            ByVal dwFlags As UInteger, _
            ByVal bstrUrlContext As String, ByVal bstrUrl As String)

        Dim xPage As TabPage = New TabPage
        xPage.Text = "abcd"
        TabControl1.TabPages.Add(xPage)

        Dim x As New WebBrowser
        DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).RegisterAsBrowser = True

        xPage.Controls.Add(x)
        x.Dock = DockStyle.Fill
        x.Visible = True

        x.Navigate(bstrUrl)
        Cancel = True
    End Sub


    Private Sub NewWindow2(ByRef ppDisp As Object, ByRef Cancel As Boolean)
        Dim xPage As TabPage = New TabPage
        xPage.Text = "abcd"
        TabControl1.TabPages.Add(xPage)

        Dim x As New WebBrowser
        DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).RegisterAsBrowser = True

        xPage.Controls.Add(x)
        x.Dock = DockStyle.Fill
        x.Visible = True
        x.Navigate("about:blank")

        ppDisp = x.ActiveXInstance 'DirectCast(x.ActiveXInstance, SHDocVw.WebBrowser).Application
        'Cancel = True
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在窗体载入后设置Webbrowser的NewWindow3事件处理函数
        'AddHandler DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).NewWindow3, AddressOf NewWindow3
        '如果不是Windows XP SP2的话需要监控NewWindow2消息
        AddHandler DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).NewWindow2, AddressOf NewWindow2

        WebBrowser1.Navigate("http://www.applevb.com")
    End Sub

End Class

运行程序，可以看到新打开的窗口都会在TabControl１的新标签页中打开．在上面的代码中，如果是Windows XP+SP2的话可以监控NewWindow3事件，否侧需要监控NewWindow2事件。



[新闻]微软每年向Apache捐10万美元支持开源软件]]>RichTextBox技巧之插入图片（转载）http://www.cnblogs.com/technofantasy/archive/2006/09/06/496588.html陈锐陈锐Wed, 06 Sep 2006 09:20:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496588.htmlhttp://www.cnblogs.com/technofantasy/comments/496588.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496588.html#Feedback0http://www.cnblogs.com/technofantasy/comments/commentRss/496588.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/496588.html'Inserts the picture at the current insertion point
Public Function InsertPicture(RTB As RichTextBox, pic As StdPicture)
Dim strRTFall As String
Dim lStart As Long
    With RTB
        .SelText = Chr(&H9D) & .SelText & Chr(&H81)
        strRTFall = .TextRTF
        strRTFall = Replace(strRTFall, "\'9d", PictureToRTF(pic))
        .TextRTF = strRTFall
        'position cursor past new insertion
        lStart = .Find(Chr(&H81))
        strRTFall = Replace(strRTFall, "\'81", "")
        .TextRTF = strRTFall
        .SelStart = lStart
    End With
End Function
PictureToRTF方法：
Public Function PictureToRTF(pic As StdPicture) As String
    Dim hMetaDC As Long, hMeta As Long, hPicDC As Long, hOldBmp As Long
    Dim Bmp As BITMAP, Sz As Size, Pt As POINTAPI
    Dim sTempFile As String, screenDC As Long
    Dim headerStr As String, retStr As String, byteStr As String
    Dim ByteArr() As Byte, nBytes As Long
    Dim fn As Long, i As Long, j As Long

    sTempFile = App.Path & "\~pic" & ((Rnd * 1000000) + 1000000) \ 1 & ".tmp"  'some temprory file
    If Dir(sTempFile) <> "" Then Kill sTempFile
    
    'Create a metafile which is a collection of structures that store a
    'picture in a device-independent format.
    hMetaDC = CreateMetaFile(sTempFile)
    
    'set size of Metafile window
    SetMapMode hMetaDC, MM_ANISOTROPIC
    SetWindowOrgEx hMetaDC, 0, 0, Pt
    GetObject pic.Handle, Len(Bmp), Bmp
    SetWindowExtEx hMetaDC, Bmp.Width, Bmp.Height, Sz
    'save sate for later retrieval
    SaveDC hMetaDC
    
    'get DC compatible to screen
    screenDC = GetDC(0)
    hPicDC = CreateCompatibleDC(screenDC)
    ReleaseDC 0, screenDC
    
    'set out picture as new DC picture
    hOldBmp = SelectObject(hPicDC, pic.Handle)
    
    'copy our picture to metafile
    BitBlt hMetaDC, 0, 0, Bmp.Width, Bmp.Height, hPicDC, 0, 0, vbSrcCopy
    
    'cleanup - close metafile
    SelectObject hPicDC, hOldBmp
    DeleteDC hPicDC
    DeleteObject hOldBmp
    'retrieve saved state
    RestoreDC hMetaDC, True
    hMeta = CloseMetaFile(hMetaDC)
    DeleteMetaFile hMeta
    
    'header to string we want to insert
    headerStr = "{\pict\wmetafile8" & _
                "\picw" & pic.Width & "\pich" & pic.Height & _
                "\picwgoal" & Bmp.Width * Screen.TwipsPerPixelX & _
                "\pichgoal" & Bmp.Height * Screen.TwipsPerPixelY & _
                ""
        
    'read metafile from disk into byte array
    nBytes = FileLen(sTempFile)
    ReDim ByteArr(1 To nBytes)
    fn = FreeFile()
    Open sTempFile For Binary Access Read As #fn
    Get #fn, , ByteArr
    Close #fn
    Dim nlines As Long
        
    'turn each byte into two char hex value
    i = 0
    byteStr = ""
    Do
        byteStr = byteStr & vbCrLf
        For j = 1 To 39
            i = i + 1
            If i > nBytes Then Exit For
            byteStr = byteStr & Hex00(ByteArr(i))
        Next j
    Loop While i < nBytes
    
    'string we will be inserting
    retStr = headerStr & LCase(byteStr) & vbCrLf & "}"
    PictureToRTF = retStr
    
    'remove temp metafile
    Kill sTempFile

End Function

'adds leading zero to hex value if needed.
Public Function Hex00(icolor As Byte) As String
    Hex00 = Right("0" & Hex(icolor), 2)
End Function



[新闻]AOL将关闭3个网站以降低成本 集中发力广告]]>RichTextBox技巧之插入表格（转载）http://www.cnblogs.com/technofantasy/archive/2006/09/06/496580.html陈锐陈锐Wed, 06 Sep 2006 09:17:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496580.htmlhttp://www.cnblogs.com/technofantasy/comments/496580.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496580.html#Feedback1http://www.cnblogs.com/technofantasy/comments/commentRss/496580.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/496580.htmlProperties - all sizes are in twips
 xLeft - Position of the left edge of the table
 isCentered - Set to True to center the table
 Rows - Sets or returns the number of rows in the table
 Columns - Sets or returns the number of columns in the table
 Row - An Array of Rows (1 to Rows)
 Column - An Array of columns (1 to Columns)
  Column(i).xWidth - Width of the ith column
 Cell - A 2-d Array of Cells (1 to Rows, 1 to Columns)
  Cell(r, c).Contents - Sets or returns the contents of the cell

Methods
 InsertTable(RTB As RichTextBox) - Inserts the table into the RichTextBox
                         at the currrent cursor position.

代码下载地址：
http://www.applevb.com/RTFtable.zip

使用范例：

Option Explicit

Dim RTFtable As clsRTFtable
Private Declare Function LockWindowUpdate Lib "user32" ( _
    ByVal hwndLock As Long _
) As Long

Private Sub Command1_Click()
  Dim i As Integer
  Set RTFtable = New clsRTFtable
  'stop flicker
  Call LockWindowUpdate(RichTextBox1.hWnd)
  
  For i = 1 To 5
  With RTFtable
    'set the size of the table
    .Columns = 3
    .Rows = 2
    'fill the cells
    'Row 1
    .Cell(1, 1).Contents = "Row 1"
    .Cell(1, 2).Contents = "Column2"
    .Cell(1, 3).Contents = "Column3"

    'Row 2
    .Cell(2, 1).Contents = "Row2"
    .Cell(2, 2).Contents = "R2C2"
    .Cell(2, 3).Contents = "R2C3"
    'do we want to center it on the page?
    .isCentered = True
    
    'insert the table at the current cursor postion
    .InsertTable RichTextBox1
  End With
  Next i
    Call LockWindowUpdate(0)

End Sub


[新闻]AOL将关闭3个网站以降低成本 集中发力广告]]>RichTextBox技巧之插入上标和下标（转载）http://www.cnblogs.com/technofantasy/archive/2006/09/06/496571.html陈锐陈锐Wed, 06 Sep 2006 09:10:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496571.htmlhttp://www.cnblogs.com/technofantasy/comments/496571.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496571.html#Feedback0http://www.cnblogs.com/technofantasy/comments/commentRss/496571.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/496571.htmlPublic Sub SetSubScript(RTB As RichTextBox)
Dim iPos As Long
Dim strRTF As String
        With RTB
        If .SelCharOffset >= 0 Then
        'subscript the current selection
            iPos = .SelStart
            .SelText = Chr(&H9D) & .SelText & Chr(&H81)
            strRTF = Replace(.TextRTF, "\'9d", "\sub\dn2 ")
            .TextRTF = Replace(strRTF, "\'81", "\nosupersub\up0 ")
            .SelStart = iPos
        Else 'turn off subscripting
            .SelText = Chr(&H9D) & .SelText
            strRTF = .TextRTF
            .TextRTF = Replace(strRTF, "\'9d", "\nosupersub\up0 ", , 1)
        End If
        End With
End Sub

Public Sub SetSuperScript(RTB As RichTextBox)
'add tags \super\up1 and \nosupersub\up0
Dim iPos As Long
Dim strRTF As String
      With RTB
        iPos = .SelStart
        If RTB.SelCharOffset <= 0 Then
        'superscript the current selection
            .SelText = Chr(&H9D) & .SelText & Chr(&H80)
            strRTF = Replace(.TextRTF, "\'9d", "\super\up2 ")
            .TextRTF = Replace(strRTF, "\'81", "\nosupersub\up0 ")
        Else 'turn off
            .SelText = Chr(&H9D) & .SelText
            strRTF = .TextRTF
            .TextRTF = Replace(strRTF, "\'9d", "\nosupersub\up0 ", , 1)
        End If
        .SelStart = iPos
       End With
End Sub

[新闻]AOL将关闭3个网站以降低成本 集中发力广告]]>RichTextBox技巧之显示自定义高亮显示（转载）http://www.cnblogs.com/technofantasy/archive/2006/09/06/496570.html陈锐陈锐Wed, 06 Sep 2006 09:08:00 GMThttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496570.htmlhttp://www.cnblogs.com/technofantasy/comments/496570.htmlhttp://www.cnblogs.com/technofantasy/archive/2006/09/06/496570.html#Feedback0http://www.cnblogs.com/technofantasy/comments/commentRss/496570.htmlhttp://www.cnblogs.com/technofantasy/services/trackbacks/496570.htmlPublic Sub HighLight(RTB As RichTextBox, lColor As Long)
'add new color to color table
'add tags \highlight# and \highlight0
'where # is new color number
Dim iPos As Long
Dim strRTF As String
Dim bkColor As Integer

    With RTB
        iPos = .SelStart
        'bracket selection
        .SelText = Chr(&H9D) & .SelText & Chr(&H81)
        strRTF = RTB.TextRTF
'add new color
        bkColor = AddColorToTable(strRTF, lColor)
'add highlighting
         strRTF = Replace(strRTF, "\'9d", "\up1\highlight" & CStr(bkColor) & "")
         strRTF = Replace(strRTF, "\'81", "\highlight0\up0 ")

         .TextRTF = strRTF
        .SelStart = iPos
       End With

End Sub
Function AddColorToTable(strRTF As String, lColor As Long) As Integer
Dim iPos As Long, jpos As Long

Dim ctbl As String
Dim tagColors
Dim nColors As Integer
Dim tagNew As String
Dim i As Integer
Dim iLen As Integer
Dim split1 As String
Dim split2 As String

    'make new color into tag
    tagNew = "\red" & CStr(lColor And &HFF) & _
        "\green" & CStr(Int(lColor / &H100) And &HFF) & _
        "\blue" & CStr(Int(lColor / &H10000))
    
    'find colortable
    iPos = InStr(strRTF, "{\colortbl")
    
    If iPos > 0 Then 'if table already exists
        jpos = InStr(iPos, strRTF, ";}")
        'color table
        ctbl = Mid(strRTF, iPos + 12, jpos - iPos - 12)
        'array of color tags
        tagColors = Split(ctbl, ";")
        nColors = UBound(tagColors) + 2
        'see if our color already exists