دانلود پاور پوینت تحقیق در باره عنصرLISTBOX

LISTBOX عنصر عنصر :LISTBOX خواص : خاصيت :MULTISELECTبا استفاده از اين گزينه مي توان تععين كرد در اين عنصر چند گزينه را مي توان انتخاب كرد . خاصيت : STOREDبا استفاده از اين خاصيت مي توان تععين كرد كه آيا گزينه هاي عنصر LISTBOXبه صورت مرتب شده نمايش داده شوند ويا خير . خاصيت :LISTآرايه اي است كه شامل گزينه هاي عنصر LISTBOXمي باشد . خاصيت :STYLEاين خاصيت براي تععين نوع نمايش LISTBOXبه كار مي رود. متدها : متد : CLEARاين متد تمام گزينه هاي عنصر LISTBOXرا حذف مي كند .اين متد به صورت زير بكار مي رود . .CLEAR نام عنصر متد :ADDITEMبا استفاده از اين متد مي توان يك گزينه به گزينه هاي عنصر LISTBOXاضافه كرد .كاربرد متد ADDITEM به صورت زير است : عبارت . ADDITEMنام عنصر ]شماره انديس,["LIST1.ADDITEM "ITEM1 متد :REMOVEITEMبا استفاده از اين متد مي توان گزينه اي را از عنصر LISTBOXحذف كرد .اين متد به صورت زير بكار مي رود : انديس گزينه . REMOVEITEMنام عنصر  را نمايش داده و10 تا1 برنامه اي بنويسيد كه اعداد: تمرين . را نمايش دهد10 تا1 سپس مجموع مربعات اعداد )(Private Sub Form_Load List1.Clear Sum = 0 For i = 1 To 10 Sum = Sum + i ^ 2 List1.AddItem (i) Next Label1.Caption = "sum" + Str(Sum) End Sub عنصر : MSFLEXGRID با اين عنصر مي توان اطالعات متني را به صورت جدول نمايش داد .هر جدول زل تعدادي سطر و ستون تشكيل شده است . براي افزودن اين عنصر به جعبه ابزار : از منوي PROJECTگزينه COMPONENTرا انتخاب كنيد در ليست ظاهر شده گزينه MICROSOFT FLEXGRID CONTROLرا اننخاب كنيد و دكمه ‌Okرا كليك كنيد. . را نمايش دهد10*10 برنامه اي بنويسيد كه جدول ضرب: تمرين )(Private Sub Form_Load For i = 1 To 10 For j = 1 To 10 MSFlexGrid1.Row = i - 1 MSFlexGrid1.Col = j - 1 MSFlexGrid1.Text = i * j Next j, i End Sub عنصر checkbox : اين عنصر براي تعريف گزينه هايي با دو انتخاب استفاده مي شود . خاصيت : valueاين خاصيت براي تععين وضعيت checkboxبكار مي رود . تمرين :برنامه اي بنويسيد كه يك عدد را خوانده مجموع اعداد زوج تا آن عدد يا مچموع اعداد فرد تا آن عدد را محاسبه كند .عنصر checkboxتعيين ميكند چه عملي انجام شود .اگر فعال باشد مجموع اعداد فرد و اگر فعال نباشد مجموع اعداد زوج محاسبه مي شود . )(Private sub display_click up = Val(Text1.Text) :10 If up < 1 Then GoTo 10 If Check1.Value = 1 Then i=1 Else i -2 End If Sum = 0 List1.Clear Do List1.AddItem (Str(i)) Sum = Sum + i i=i+2 Loop Until i > up label2.Caption = "sum is =" + Str(Sum) End Sub عنصر :optionbutton اين عنصر باري ايجاد مجموعه اي از گزينه ها بكار مي رود . خاصيت :valueبا استفاده از اين خاصيت مي توان تععين كرد كه ايا عنصر انتخاب شده است و يا خير . دستور :SELECT CASE >عبارت< SELECT CASE >عبارت < 1CASE مجموعه دستورات 1 >عبارت< 2CASE مجموعه دستورات 2 ‏CASE ELSE مجموعه دستورات N ‏END SELECT تمرين :برنامه اي بنويسيد كه روزهاي هفته را با استفاده از دكمه هاي OPTIONنمايش مي دهد .با انتخاب يك دكمه از Optionنام روز هفته و شماره روز هفته را نمايش مي دهد و با ورود يك عدد ، نام روز هفته را نمايش مي دهد و دكمه Optionمربوط به آن را فعال مي كند . )(Private Sub Command1_Click )num = Val(Text1.Text ‏Select Case num ‏Case 1 "Label1.Caption = "saturday ‏Option1.Value = True ‏Case 2 "Label1.Caption = "sunday ‏Option2.Value = True "Label1.Caption = "monday Option3.Value = True Case 4 "Label1.Caption = "tuesday Option4.Value = True Case 5 "Label1.Caption = "wendenesday Option5.Value = True Case 6 "Label1.Caption = "thursday Option6.Value = True Case 7 "Label1.Caption = "friday Option7.Value = True End Select End Sub )(Private Sub Command2_Click If Option1.Value = True Then Label1.Caption = "saturday": Text1.Text = 1 If Option2.Value = True Then Label1.Caption = "sunday": Text1.Text = 2 If Option3.Value = True Then Label1.Caption = "monday": Text1.Text = 3 If Option4.Value = True Then Label1.Caption = "tuesday": Text1.Text = 4 If Option5.Value = True Then Label1.Caption = "wendenesday": Text1.Text = 5 End Sub