通过编写《我的日志》来学习(面向对象的程序设计)

通过编写《我的日志》来学习(面向对象的程序设计)

由于我是从vb转换过来,以前对vb也不咋地,所以对(面向对象的程序设计)比较模糊,希望通过编写《我的日志》来请大家指点迷津:

程序介绍:由于我是个拖拉的人,什么事情都往后拖,没少吃“苦头”,这个毛病该改改了。使用winpim这样的管理软件吧,家里的安排和单位安排不能汇集到一起,因此便想写一个能存放在U盘上的日程安排软件。包含{工作日志}{学习日志}{备忘录},趁着再学习学习xml,就用xml文件存放数据吧!

编写平台:winxp+sp2,vs.net2003
图    片:http://blog.csdn.net/images/blog_csdn_net/jdsbjcailei/124648/t_mylog.JPG

代码:代码贴上太长了,只贴一下clslog.vb部分框架吧,其它的下载

Imports System.Xml

Namespace CaiLei
    Public Class ClsLog
        '日志类
        Enum emLogType
            Log_Study '学习
            Log_Work '工作
            Log_Other '其它
        End Enum

        '日志纪录存放目录
        Private _LogPath As String = Application.StartupPath & "/Log"

        Sub New()
                    End Sub

        '具有Save方法
        Public Function SaveLog() As Boolean()

'保存日志
        End Function

        '日志类型
        Private _LogType As emLogType
        Public Property LogType() As emLogType
        End Property

        '属性
        Private _CreateDate As Date
        '创建日期
        Public Property CreateDate() As Date
        End Property

        Private _Title As String
        '标题
        Public Property Title() As String
        End Property

        Private _LogValue As String
        '日志内容
        Public Property LogValue() As String
        End Property

        Private _State As Boolean
        '完成状态
        Public Property State() As Boolean
        End Property

    End Class

    Public Class ClsLogs

        Inherits CollectionBase
        '日志集合

        '日志纪录存放目录
        Private _LogPath As String = Application.StartupPath & "/Log"

        '集合增加
        Public Sub Add(ByVal obj As ClsLog)
        End Sub

        '集合删除
        Public Sub Remove(ByVal obj As ClsLog)
        End Sub

        '项目
        Public Property Item(ByVal index As Integer) As ClsLog
            Get
            End Get
            Set(ByVal Value As ClsLog)
            End Set
        End Property

        '如何实现呢????
        'Public Property Item(ByVal name As String) As ClsLog

        '    Get
        '    End Get
        '    Set(ByVal Value As ClsLog)
        '    End Set
        'End Property

        Public Function FindLog(ByVal sDate As Date) As ClsLogs

       '用到readxmlog
        End Function

        Private Sub ReadXmlLog(ByVal xmlFile As String)
            '读取xml文件
        End Sub

    End Class

End Namespace


代码作用:
ClsLog.vb:类clslog和集合clslogs
frmMylog.vb:窗体frmmylog
modStar.vb:模块
clsEncrypt.vb:加密接口
说明:
1、clslogs.findlogs返回一个clslogs集合,包含存在的clslog对象(这个用语言怎么描述,我咋感觉恁别扭)
2、读写xml文件的地方写的对不对?

求解:
1、哪里符合(面象对象的程序设计)
2、哪里不符合(面象对象的程序设计)
3、如果不要clslogs集合,只设计clslog类,增加一Find方法返回clslog类,这样行不行,符合(面象对象的程序设计)吗?
4、在clslogs集合中如何实现item("name")属性
5、如何实现向vb6中muExit_Click事件call frmMyLog_Closing(sender, e),而不再重复写代码呢?
6、接口,该接口将对日志内容进行加密解密字符串。方式对不对?如何设计成为插件形式呢?
7、还有什么不对的地方请说一下

下载地址:由于没有地方上传,放到我的网络硬盘了:http://jdsbj.ys168.com/

这个是复制的下载地址(很长呀!呵呵):http://upserver2.ys168.com/ys168up/D1/ys1.aspx?f=MyLog.rary71z70f8b3f8b3b0b3z95b6b1b7b0b6f5f8b6b3b5b3b2f6e14z97e14e24b1f9f2b0b3b7f6f9f8b1z

阅读更多
个人分类: 学习目录
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭