| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5407 人关注过本帖, 1 人收藏
标题:[原创]智能电教辅助系统
只看楼主 加入收藏
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏(1)
 问题点数:0 回复次数:17 
[原创]智能电教辅助系统
*/ --------------------------------------------------------------------------------------
*/ 出自: 编程中国 http://www.bc-cn.net
*/ 作者: multiple1902 E-mail:multiple1902@gmail.com QQ:395273243
*/ 时间: 2007-8-30 编程论坛首发
*/ 声明: 尊重作者劳动,转载请保留本段文字
*/ 除QQForm、QQButton、XpContainer等和用到的图标外 本人保留所有权利
*/ --------------------------------------------------------------------------------------


CXrQr0Xc.rar (106.08 KB) [原创]智能电教辅助系统




GbFSwk9j.png (22.7 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 电教 辅助系统 智能 
2007-08-30 05:40
multiple19O2
Rank: 1
等 级:新手上路
帖 子:326
专家分:0
注 册:2007-8-29
收藏
得分:0 

不错哦

尤其是functions.bas中下面这段很有意思

'FrmMain.Form_Load
Public Sub ShowFrmMainCaption()
On Error Resume Next
'设置对象标题
Dim itemx, IniRead As New CIniFile, tmpStr As String
IniRead.INIFileName = GetDir & strLangINI
Set itemx = frmMain
itemx.Caption = IniRead.GetIniKey("frmMain", "$" & "Caption")
For Each itemx In frmMain
tmpStr = IniRead.GetIniKey("frmMain", "$" & itemx.Tag)
If Len(tmpStr) > 0 And Len(itemx.Tag) > 0 Then
itemx.Caption = tmpStr
If Err Then
Err.Clear
itemx.Text = tmpStr
End If
End If
Next

'设置课程按钮
IniRead.INIFileName = GetDir & strOptionINI
Dim Left1 As Long, Left2 As Long, IdleHeight As Long
Left1 = 400: Left2 = 2000: IdleHeight = 200
Dim TmpCourseArray() As String, counter As Byte, intMax As Byte, intdeftop As Long
tmpStr = IniRead.GetIniKey("General", "$CourseList")
TmpCourseArray = Split(tmpStr, "|")
intMax = UBound(TmpCourseArray) + 1
ReDim Preserve TmpCourseArray(intMax)
TmpCourseArray(intMax) = "About"
intdeftop = (frmMain.cntCourseList.Height - (frmMain.btnSubject(0).Height + IdleHeight) * (intMax \ 2)) \ 2
For counter = 0 To intMax
Call Load(frmMain.btnSubject(counter + 1))
Set itemx = frmMain.btnSubject(counter + 1)
itemx.Top = intdeftop + (IdleHeight + itemx.Height) * ((counter) \ 2)
itemx.Left = IIf(counter Mod 2, Left2, Left1)
itemx.Caption = TmpCourseArray(counter)
If TmpCourseArray(counter) = "About" Then
IniRead.INIFileName = GetDir & strLangINI
itemx.Caption = IniRead.GetIniKey("frmMain", "$About")
itemx.Tag = "About"
End If
itemx.Visible = True
Next

'载入公告
IniRead.INIFileName = GetDir & strOptionINI
With frmMain.lblAnnounce
.Caption = Replace(IniRead.GetIniKey("General", "$Announce"), "crlf", vbCrLf)
.Font.Size = IniRead.GetIniKey("Announce", "Size")
.Font.Bold = IniRead.GetIniKey("Announce", "Bold")
.Font.Name = IniRead.GetIniKey("Announce", "Font")
.ForeColor = IniRead.GetIniKey("Announce", "Color")
End With

注意分发是基于GNU GPL的哦

[此贴子已经被作者于2007-8-30 6:24:06编辑过]

2007-08-30 05:44
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 

本人愚昧.冒昧的问下,这个程序哪地方用到钩子?


[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-08-30 09:05
multiple19O2
Rank: 1
等 级:新手上路
帖 子:326
专家分:0
注 册:2007-8-29
收藏
得分:0 
中键激活(模仿VStart的按下鼠标中键激活本系统的功能 有时会挂)
2007-08-30 10:29
BEARBEN
Rank: 1
等 级:新手上路
帖 子:114
专家分:0
注 册:2007-7-7
收藏
得分:0 
为什么跟我的UDiskLook[School]有些像???

2007-08-30 11:17
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
如有雷同算我抄你
2007-08-30 11:57
lisypro
Rank: 4
等 级:业余侠客
威 望:3
帖 子:695
专家分:216
注 册:2005-9-25
收藏
得分:0 

这是做什么的呀


长期承接管理系统
代做各种vb/ / vc小程序
QQ:82341763
手机:13623290828
群号 11619730
2007-08-30 12:00
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
用于中学班级电脑方便课堂教学的玩意
2007-08-30 12:02
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 

对1楼和2楼的ID有兴趣?好像一样?


快上课了……
2007-08-30 12:07
BEARBEN
Rank: 1
等 级:新手上路
帖 子:114
专家分:0
注 册:2007-7-7
收藏
得分:0 

呵呵 是啊 真好玩

[此贴子已经被multiple1902于2007-8-30 12:32:02编辑过]


2007-08-30 12:22
快速回复:[原创]智能电教辅助系统
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023864 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved