VB+教学辅助系统(五)

VB+教学辅助系统(五) trConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
            If adoprimaryrs2.RecordCount <> 0 Then
                    adoprimaryrs2.MoveFirst
            End If
            Do Until adoprimaryrs2.EOF
                Set nodey = TreeView1.Nodes.Add(b, tvwChild, c, adoprimaryrs2.Fields("标题"), 4, 4)
                c = c + "1"
                adoprimaryrs2.MoveNext
            Loop
            b = b + "1"
            adoprimaryrs1.MoveNext
        Loop
        adoprimaryrs1.Close
        adoprimaryrs2.Close
        Set adoprimaryrs1 = Nothing
        Set adoprimaryrs2 = Nothing
    End If
    TreeView1.Nodes(1).Expanded = True
End Sub

Private Sub Form_Resize()
    If Me.WindowState = maximized Then
        Me.Width = 12000
        Me.Height = 9000
    End If
End Sub

Private Sub Menu_BackCorlor_Click()
    CommonDialogCorlor.ShowColor
    RTB1.BackColor = CommonDialogCorlor.Color
    SaveSetting App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor
End Sub

Private Sub Menu_Clear_Click()
    SendKeys "{del}"
End Sub

Private Sub Menu_Plaste_Click()
    SendKeys "^V"
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Temptitle = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If BigStyle = "API函数" Then
    RTB1.Text = "别名：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "别名") & Chr(10) & Chr(13)
    RTB1.Text = RTB1.Text & "库名：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "库名") & Chr(10) & Chr(13)
    RTB1.Text = RTB1.Text & "声明：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "声明") & Chr(10) & Chr(13)
    RTB1.Text = RTB1.Text & "参数表：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "参数表") & Chr(10) & Chr(13)
Else
    RTB1.Text = GetFthFld2("code", "标题", Trim(Temptitle), "内容")
    RTB1.SelStart = 0
End If
End Sub

Private Sub Menu_About_Click()
    StrMsg = "本软件是作者的毕业设计,为免费软件欢迎大家使用." & Chr(13) & _
         &nbs

首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/9/9

VB+教学辅助系统(五)由毕业论文网（www.huoyuandh.com）会员上传。