oobject102306.htm

UML基础(好)

              </font><font face="Comic Sans MS" color="#000000">FCaption </font><font color="#000000">不會被任意的存取。現在我們再看看下面 
              </font><font face="Comic Sans MS" color="#000000">VB </font><font color="#000000">的程式碼。</font></p>
              <div style="BORDER-RIGHT: 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: 2px solid; PADDING-LEFT: 4px; PADDING-BOTTOM: 1px; BORDER-LEFT: 2px solid; PADDING-TOP: 1px; BORDER-BOTTOM: 2px solid; BACKGROUND-COLOR: #ffccff">
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Option 
                Explicit</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Private 
                pMember() As String</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Private 
                pCount As Integer</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Private 
                Sub Class_Initialize()</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pCount = 0</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Sub</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Property Get Count() As Variant</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Count = pCount</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Property</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Sub Add(vNewValue As String)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pCount = pCount + 1</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                ReDim Preserve pMember(pCount - 1)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pMember(pCount - 1) = vNewValue</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Sub</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Sub Clear()</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pCount = 0</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                ReDim pMember(pCount)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Sub</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Sub MoveItem(vIdx As Integer)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Dim i As Integer</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                For i = vIdx To UBound(pMember) - 1</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                pMember(i) = pMember(i + 1)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Next</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pCount = pCount - 1</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                ReDim Preserve pMember(pCount)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Sub</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Function IndexOF(vSearch As String) As Integer</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Dim i As Integer</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                IndexOF = -1</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                For i = LBound(pMember) To UBound(pMember)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                If vSearch = pMember(i) Then</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                IndexOF = i</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                Exit Function</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                End If</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Next</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Function</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Function Item(vIdx As Integer) As String</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                Item = pMember(vIdx)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Function</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">Public 
                Sub SetItem(vIdx As Integer, ByVal vNewValue As Variant)</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">&nbsp;&nbsp; 
                pMember(vIdx) = vNewValue</font></span></p>
                <p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">End 
                Sub</font></span></p>
              </div>
              <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt"><span lang="EN-US"><font face="Comic Sans MS" color="#000000">&nbsp;</font></span></p>
              <p class="MsoNormal" style="MARGIN: 6pt 0cm 12pt; TEXT-INDENT: 24pt"><font color="#000000">以上是我用 
              </font><font face="Comic Sans MS" color="#000000">VB </font><font color="#000000">寫的一個 
              </font><font face="Comic Sans MS" color="#000000">cls </font><font color="#000000">檔</font><font face="Comic Sans MS" color="#000000">(</font><font color="#000000">即是 
              </font><font face="Comic Sans MS" color="#000000">VB </font><font color="#000000">的物件類別模組</font><font face="Comic Sans MS" color="#000000">)</font><font color="#000000">，用以實做一個 
              </font><font face="Comic Sans MS" color="#000000">TSingleList</font><font color="#000000">，雖然它不是所謂的