菜鸟捉虫(11)

  
2001年 11期

    “菜鸟捉虫”第二期解答：
　　    本题中，作者对Load事件理解错误。Load事件是当窗体装入到内存时，就自动触发的事件，一般将控件的默认值和窗体级代码放到Load事件。把判断语句放入到Load事件中，程序执行时就判断Label2.Width的值是否大于2500并且小于2550。因为Label2.Width的值定义为0，系统认为不满足条件，所以无法切换图片或关闭。应把判断语句放在定时器事件中。正确的程序段如下：
　　    Private Sub Form_Load（）
　　    Timer1.Enabled=True
　　    Label2.Width=0
　　    Label1.Caption=“秀美山川”
　　    Picture1.Picture=LoadPicture（“e:/1.jpg”）
　　    End Sub
　　    Private Sub Timer1_Timer（）
　　    Label2.Width=Label2.Width+30
　　    If Label2.Width>2500 And Label2.Width<2550 Then
　　    Label1.Caption=“潺潺流水”
　　    Picture1.Picture=LoadPicture（“e:/2.jpg”）
　　    ElseIf Label2.Width=5000 Then
　　    End
　　    Else
　　    End If
　　    End Sub
　　    由于本栏目推出后，受到了广大“菜鸟级”编程爱好者的喜爱，收到大量反馈信息。经研究约定，获奖读者名额增加至5名；自本期起，所给题目将不说明错误个数，并逐渐加大难度。以下是上期获奖者名单（奖品为《电脑报配套光盘2001年第2期》）：
　　    王翔  江苏常州  李华夏 湖南怀化
　　    李俊  广东东莞  刘军  四川德阳
　　    刘建群  陕西汉中
　　    本期题目：
　　    创建一个类名为“CEmployee”的类模块，在类中有以下的定义：
　　    Option Explicit
　　    Private m_lEmployeeNumber As Long
　　    Private m_Family（） As String
　　    Public Property Get EmployeeNumber（） As Long
　　    EmployeeNumber=m_lEmployeeNumber
　　    End Property
　　    Public Property Let EmployeeNumber（lNumber As Long）
　　    If lNumber<1000 Then
　　    Err.Raise 10，“Cemployee：EmployeeNumber”，“Invalid EmployeeNumber”
　　    Else
　　    m_lEmployeeNumber=lNumber
　　    End If
　　    End Property
　　    Public Property Get Family（） As String（）
　　    Family=m_Family
　　    End Property
　　    Public Property Let Family（arr As String）
　　    m_Family=arr
　　    End Property
　　    Private Function DisplayFamily（） As String
　　    Dim X
　　    Dim sTemp As String
　　    sTemp=“雇员号：”&CStr（m_lEmployeeNumber）&vbCrLf
　　    For Each X In m_Family
　　    sTemp=sTemp&X&vbCrLf
　　    Next
　　    DisplayFamily=sTemp
　　    End Function
　　    在主窗体中，添加以下代码：
　　    Option Explicit
　　    Private Lee As Cemployee
　　    Private Sub Form_Click（）
　　    Dim Lee As New CEmployee
　　    Lee.EmployeeNumber=100
　　    ReDim arr（0 To 2） As String
　　    arr（0）=“李明”
　　    arr（1）=“王丽丽”
　　    arr（2）=“李小明”
　　    Lee.Family=arr
　　    Print Lee.DisplayFamily
　　    End Sub
　　
　　 
 