VB+教学辅助系统(三)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

VB+教学辅助系统(三) lbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6
    Toolbar1.Buttons(7).Caption = "全选": Toolbar1.Buttons(8).Caption = "复制"
    Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag = "Tool_Copy"
    Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False
    RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size)
    RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
End Sub

'Private Sub Command1_Click()
'Dim str As String: Dim rst1 As New ADODB.Recordset: Dim rst2 As New ADODB.Recordset
'str = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\WinApi.mdb;"
'rst1.Open "select * from winfun", str, adOpenKeyset, adLockOptimistic
'rst2.Open "select * from funclass", str, adOpenKeyset, adLockOptimistic
'rst1.MoveFirst
'For i = 1 To rst1.RecordCount
'    rst1.Fields("声明") = GetFthFld2("funclass", "name", rst1.Fields("函数"), "fullname")
'    rst2.Update
'    rst1.MoveNext
'Next
'End Sub

Private Sub Form_Load()
    Me.Top = 0: Me.Left = 0
    Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
    StatusBar1.Panels(1).Text = "      " & Format(Date, "long date") & "   " & Time & "     "
    RTB1.FileName = App.Path & "\data\about.dat"
    RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size)
    RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
    StrConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\VB.mdb;"
    StrTempConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\winapi.mdb;"
    BigStyle = "VB基础"
    Call ShowTree(BigStyle)
End Sub
Private Sub ShowTree(ByVal TempBigStyle As String)
    Dim nodex As Node
    Dim nodey As Node
    Dim adoprimaryrs1 As New ADODB.Recordset
    Dim adoprimaryrs2 As New ADODB.Recordset
    a = "aa"
    b = "bb"
    c = "cc"
    If TempBigStyle = "API函数" Then
         '*************************************************
        adoprimaryrs1.CursorLocation = adUseClient
        adoprimaryrs1.Open "select 函数 from winfun order by 函数", StrTempConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
        '*************************************************
        TreeView1.LineStyle = tvwRootLines
        TreeView1.Nodes.Clear
        Set nodex = TreeView1.Nodes.Add(, , a, TempBigStyle, 2, 1)
        If adoprimaryrs1.RecordCount &l

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

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