در این آموزش قصد داریم یک پیام حاوی چند گزینه بسازیم. یعنی یک کادر محاوره ای حاوی چند گزینه مانند لیست ویو داشته باشیم. برای این کار نیاز به کتابخانه id دارید که می توانید از اینجا دانلود کنید. آموزش به صورت زیر می باشد.
ابتدا کتابخانه Id را تیک زده و کد زیر را درون Sub دلخواه قرار دهید.
ابتدا کتابخانه Id را تیک زده و کد زیر را درون Sub دلخواه قرار دهید.
#Region listview dialog #End Region
کد هایی که در ادامه این آموزش گفته می شود را باید بین دو خط بالا بنویسید.
یک متغیر از نوع ID ، یگ متغیر از نوع Int و یگ متغیر از نوع String تعریف کنید:
Dim id1 As id Dim i As Int Dim st2() As Stringبعد متغیر st2 را برابر با لیست آیتم های خودتان قرار دهید:
st2 = Array As String("ویرایش","حذف","تغییر نام","خروج") سپس متغیر i رو برار قرار بدید با id1.inputlist1 : i = id1.InputList1(st2,"نوع عملکرد")
در آرگومان اول نام آرایه را قرار داده و در آرگومان دوم عنوان تیتر ( Subject ) را وارد کنید.
برای اینکه تشخیص بدهید روی کدام گزینه کلیک شده است باید از دستور If به شمل زیر استفاده کنید:
If i = 0 Then Else If i = 1 Then Else ......
آیتم اول برابر با 0 و آیتم دوم برابر با 1 و بعدی 2 و ...