frmmain.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

#Region "收缩和展开的时候切换图标"
    Private Sub tvMain_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvMain.AfterExpand
        If e.Node.Nodes.Count > 0 Then
            e.Node.SelectedImageIndex = 2
            e.Node.ImageIndex = 2
        End If
    End Sub
    Private Sub tvMain_AfterCollapse(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvMain.AfterCollapse
        If e.Node.Nodes.Count > 0 Then
            e.Node.SelectedImageIndex = 1
            e.Node.ImageIndex = 1
        End If
    End Sub

#End Region

#Region "显示和隐藏主导航"
    Private Sub tbShowAndHideMainTv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbShowAndHideMainTv.Click
        '显示隐藏主导航
        Me.scMain.Panel1Collapsed = Not Me.scMain.Panel1Collapsed
        If Me.scMain.Panel1Collapsed Then
            tbShowAndHideMainTv.Image = My.Resources.导航展开
        Else
            tbShowAndHideMainTv.Image = My.Resources.导航关闭
        End If
    End Sub
#End Region

#Region "处理登陆和切换用户"
    Private Sub llLoginOperation_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llLoginOperation.LinkClicked

        If llLoginOperation.Text = "登陆" Then
            frmLogin.ShowForm()
            CheckDefaultuser()
        End If

        If llLoginOperation.Text = "切换" Then
            tbUsersLogin.ShowDropDown()
        End If

    End Sub
#End Region

#Region "动态添加的用户menu的处理函数"
    Private Sub ChangeUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tsi As ToolStripItem = sender
        CheckDefaultuser(tsi.Text)
        If tbUsersLogin.DropDownItems.Count > 2 Then
            For i As Int32 = 0 To tbUsersLogin.DropDownItems.Count - 1
                tbUsersLogin.DropDownItems(i).Image = Nothing
                If tbUsersLogin.DropDownItems(i).Text = tsi.Text Then
                    tbUsersLogin.DropDownItems(i).Image = My.Resources.彩单选中2
                End If
            Next
        End If
    End Sub

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmLogin.ShowForm()
        CheckDefaultuser()
        InitUsersMenu()
    End Sub
#End Region

#Region "主导航节点的处理"


    ''右键选择节点，不然弹出错误。
    'Private Sub tv_Db_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvMain.MouseDown
    '    If Not tvMain.GetNodeAt(e.X, e.Y) Is Nothing Then
    '        Me.tvMain.SelectedNode = tvMain.GetNodeAt(e.X, e.Y)
    '    End If
    'End Sub

    Private Sub tvMain_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvMain.AfterSelect
        Dim js As jsTreeNode = CType(e.Node, jsTreeNode)
        If js.childNodesFileName.Length > 0 And Not js.HasProced Then
            Me.LoadTreeNodes(js.childNodesFileName, js.Nodes)
            js.HasProced = True
            js.Expand()
        End If
        If Not My.Settings.DoubleOpen Then
            OpenBBS()
        End If
    End Sub

    Private Sub tvMain_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tvMain.DoubleClick
        If My.Settings.DoubleOpen Then
            OpenBBS()
        End If
    End Sub


    ''' <summary>
    ''' 打开帖子
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub OpenBBS()
        Dim js As jsTreeNode = tvMain.SelectedNode
        If Not js Is Nothing Then

            If js.Text = "配置我感兴趣的社区" Then
                MsgBox("该项目还没有实现！")
                Return
            End If

            If js.Text = "短消息" Then
                tpTip.ShowTP("http://127.0.0.1:" & My.Settings.ServerPort & "/listmessage.aspx", Me.tc)
                Return
            End If
            'listmessage.aspx


            If Len(js.data) > 0 Then
                ' MsgBox("进入小房间：" & js.data)
                tpTipsList.ShowTP(U2u(comm.Comm.CSDN_COMINITY_Forum_URL + js.data), Me.tc)
                Return
            End If

            If Len(js.url) > 0 Then
                tpTipsList.ShowTP(U2u(comm.Comm.CSDN_COMINITY_URL + js.url), Me.tc)
                Return
            End If


        End If
    End Sub


    Function U2u(ByVal url As String) As String
        Dim u As New Uri(url)
        u = New Uri("http://127.0.0.1:" & My.Settings.ServerPort & "" & u.PathAndQuery)
        Return (u.ToString.ToLower)
    End Function

#End Region

    Private Sub tc_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tc.DoubleClick, tc2.DoubleClick
        Dim tcd As TabControl = sender
        If Not tcd.SelectedTab Is Nothing Then
            'tc.TabPages.Remove(tc.SelectedTab)
            If TypeOf tcd.SelectedTab Is tpBase Then
                Dim temp As tpBase = tcd.SelectedTab
                temp.Close()
                Return
            End If
            tcd.SelectedTab.Dispose()
        End If
    End Sub

    Private Sub FrmMain_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If e.CloseReason <> CloseReason.WindowsShutDown Then
            e.Cancel = True
            Me.Hide()
        End If
    End Sub

    Private Sub NF_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NF.DoubleClick
        Me.Show()
        Me.WindowState = FormWindowState.Maximized
        Me.Activate()
    End Sub

    Private Sub nfcmClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nfcmClose.Click
        If MsgBox("确定关闭？", MsgBoxStyle.OkCancel, "确认") = MsgBoxResult.Ok Then
            Me.Dispose()
        End If
    End Sub

    Private Sub tbUiLayOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbUiLayOut.Click
        'My.Settings.LayOut = Not My.Settings.LayOut
        'My.Settings.Save()
        'Me.spSec.Panel2Collapsed = Not My.Settings.LayOut

        'For Each tp As TabPage In tc2.TabPages

        '    If TypeOf tp Is tpBase Then
        '        Dim temp As tpBase = tp
        '        temp.Close()
        '    Else
        '        tp.Dispose()
        '    End If
        'Next
        My.Settings.LayOut = "211"
        My.Settings.Save()
        Me.initTipLayOut()
    End Sub

    Private Sub tbUiLayOut111_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbUiLayOut111.Click
        My.Settings.LayOut = "111"
        My.Settings.Save()
        Me.initTipLayOut()
    End Sub

    Private Sub tbUiLayOut11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbUiLayOut11.Click
        My.Settings.LayOut = "11"
        My.Settings.Save()
        Me.initTipLayOut()
    End Sub



    Private i As Integer
    Private Sub TimerMsg_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerMsg.Tick
        '使用线程更改UI比较麻烦，所以用个定时器来完成
        If i Mod 300 = 0 Then
            Dim msg As New CsdnMsg
            Me.tbMsg.Visible = msg.CheckHasNewMsg()
            If Me.tbMsg.Visible Then
                My.Computer.Audio.Play("wav\新消息.wav")
            End If
        End If
        If i = 300 Then
            i = 0
        Else
            i += 1
        End If
    End Sub

    Private Sub tbMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbMsg.Click
        tpTip.ShowTP("http://127.0.0.1:" & My.Settings.ServerPort & "/listmessage.aspx", Me.tc)
        tbMsg.Visible = False
        i = 0
    End Sub

    Private Sub tb搜索_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb搜索.Click
        Process.Start("http://search.csdn.net/lt/search.asp?key=" & Web.HttpUtility.UrlEncode(Me.tbKw.Text, System.Text.Encoding.GetEncoding("gb2312")))
    End Sub

    Private Sub tbAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbAbout.Click
        System.Diagnostics.Process.Start("http://blog.csdn.net/Qqwwee_Com/archive/2006/04/08/655740.aspx")
    End Sub
End Class