برنامه سازی2 خطی

کلیک راست و چپ

Private Sub
Command1_MouseDown(Button As

Integer, Shift As Integer, X As Single, Y As
Single)

If Button = 2 Then

("کلیکراست ")msgbox

ElseIf Button = 1 Then

(" کلیک چپ")msgbox

ElseIf Button = 4 Then

("وسط")msgbox

End If

خطی

GENERALتو قسمت

Dim a(5), i, c, tmep As Integer

اول 5 عدد ورودی بهش میدهیم

روی فرم است

Private Sub Form_Load()

For i = 0 To 5

("")a (i) =InputBox

(Lst1.AddItem a(i

Next

بعد برنامه خطی

Private Sub Command1_Click()

("")p = InputBox

(For i = LBound(a) To UBound(a

If Lst1.List(i) = p Then

Lst1.ListIndex = i

c = 1

End If

Next

(If c = 1 Then MsgBox ("found

"(If c = 0 Then MsgBox ("notfound