《Visual Basic 程序设计教程》第10章：控件数组与菜单-教学课件（非AI生成）.ppt

第10章控件数组与菜单*控件数组控件数组是指在一个窗体上共同享用同一名称、同一事件过程的一组同类型控件。控件数组中的每一个控件的Name属性值相同，由其Index属性的值（正整数）唯一确定。（如果一个控件不是控件数组中的一个元素，则Index属性无值。）控件数组中各个控件的Index属性值不要求连续，但一定要唯一。*控件数组创建控件数组的方法是，先在窗体中添加一个控件，把它复制到剪贴板，然后不断地粘贴，直到产生所需个数的控件。默认情况下，控件数组各控件的Index属性值是以0开始，并连续。控件数组中的各个控件对同一个事件使用同一个事件过程。控件数组中的控件的事件过程都比一般控件的事件过程多一个参数“IndexAsInteger”，并且，这个参数总是事件过程的第一个参数，它用来告知事件过程是控件数组中的哪个控件引发的此事件。有时，使用控件数组可以显著简化程序的编制工作，如计算器。*作业：使用控件数组编制一个简单的计算器。txtDisplaycmdNumber（控件数组）cmdPNcmdCalc（控件数组）cmdBackcmdEqual*OptionExplicitDimstr1AsString,str2AsStringDimstatusAsBooleanDimoperateAsIntegerPrivateSubcmdCalc_Click(IndexAsInteger)txtDisplay.Text=str2status=Trueoperate=IndexEndSubPrivateSubcmdEqual_Click()Dimdbl1AsDoubleDimdbl2AsDoubledbl1=Val(str1)dbl2=Val(str2)SelectCaseoperateCase0txtDisplay.Text=dbl1+dbl2Case1txtDisplay.Text=dbl1-dbl2Case2txtDisplay.Text=dbl1*dbl2Case3txtDisplay.Text=dbl1/dbl2EndSelectstr1=0str2=0status=FalseEndSubPrivateSubcmdBack_Click()IfNotstatusThenIfLen(str1)1Thenstr1=Left(str1,Len(str1)-1)Elsestr1=0EndIftxtDisplay.Text=str1ElseIfLen(str2)1Thenstr2=Left(str2,Len(str2)-1)*Elsestr2=0EndIftxtDisplay.Text=str2EndIfEndSubPrivateSubcmdPN_Click()IfNotstatusThenIfLeft(str1,1)=-Then str1=Right(str1,Len(str1)-1)Else str1=-+str1EndIftxtDisplay=str1ElseIfLeft(str2,1)=-Then str2=Right(str1,Len(str2)-1)Else str2=-+str2EndIftxtDisplay=str2EndIfEndSubPrivateSubForm_Activate()txtDisplay.Text=str1EndSubPrivateSubForm_Load()str1=0:str2=0:status=FalseEndSubPrivateSubcmdNumber_Click(IndexAsInteger)IfNotstatusThenIfIndex10ThenIfstr1=0Thenstr1=str1=str1+CStr(Index)