رویداد Click دکمه Event

Private sub cmdse_ click()

Dim intno As Integer, intsum As integer

For intno = 20 to 2 step -2

Print intno

Intsum = intsum + intno

Next intno

Print " sum = " ; intsum

End sub

رویداد  دکمه Compute

Private sub cmdCompute _ click()

Dim intno As Integer

Dim strdata As String

Intno = 1

While ( intno>0 )

Strdata = inputbox( " Enter Your Number : " , " Enter Data " , 0 )

Intno = val(strdata)

lblresult.caption = intno*1000

Wend

End sub

رویداد  دکمه Compute

Private sub Form_Activate()

Dim lngi  As Long

Dim lngno As Long

Dim strinput As String

Strinput = inputbox ( " Enter Your Number : " , " Input DATA " , 0)

Lngno = val(strinput)

Do

Lngi = lngno mode 10

If lngi mode 2 = 1 then print lngi

Lngno = lngno

Loop While ( lngno>0)

End sub

رویداد Click دکمه فرمان

Private sub cmdshow_ click()

Dim inti As Integer

Dim intj As Integer

For inti = 1 To 4

For intj = 1 To 5

Print " *";

Next intj

Print

Next inti

End sub

رویداد Click دکمه فرمان

Private sub cmdshow_ click()

Dim inti As Integer

Dim intno As Integer

Dim intcount As Integer

Dim lngsum As long

Intno = val(text1.text)

For inti = 1 to intno

If intno mod inti = 0 and inti mode 2 = 0 then

Intcount = intcount+1

Lngsum = lngsum + inti

End if

Next inti

lblsum.caption = lblsum.caption +str(lngsum)

lblsum.caption = lblsum.caption +str(lngsum)

End sub

رویداد Click دکمه Ok

Private sub cmdok_click()

If (val(textday.text)>0 And val ( textday.text)<=31 And (val(textmonth.text)>0 And val(textmonth.text)<=12)

And (val(textyear.text)1900 And val(textyear.text)<=3000) then

Data = Trim(textmonth.text) + String (1 , "/")+ Trim (textday.text)+String(1,"/")+Trim(textyear.text)

Else

Msgbox " Invalid Data ! " , , "ERROR"

End if

End sub

رویداد Click دکمه Ok

Private Function strcompare (strstring1 As String , strstring2 As String ) As Boolean

If Strcomp(strstring1 , strstring2 , vbtextCompare) = 0 then

Strcompare = True

Else

Strcompare = False

End Function

رویداد Click دکمه Ok

Private Function insertpace (BY Val strtext As String ) As String

Dim inti As Integer , strresult As String

For inti = 1 To Len (strtext)

If Mid(strtext , inti , 1) = " " then

Strresult = strresult + Space

Else

Strresult = strresult + Mid(strtext , inti , 1 )

End if

Next inti

Insertspace = strresult

End Function

رویداد Click دکمه فرمان  calcualte

Private sub cmdcalcualte _ click()

Dim dblarea As Double

Dim curpay As Currency

Dblarea = 2 * val (text1.text) * val ( text3.text) + 2 * val (text2.text) * val (text3.text)+ val ( text1.text) *_  val(text2.text)

Curpay = dblarea * 40000

lblar.caption = str(dblarea)+ " M2 "

lblpay.caption = str(curpay) + " Rials "

End sub