Salam Doostan
Khob Armin Ramzani E Aziz Ye Source Code Gozashte Boodi Vase Harkate Matn Ba WebView
Man Khastam Hamin Amoozesh Ro Bedoone WebView Bezaram Dar Kootah Tarin Code Nevisie Momken:
Faghat Ye Label Ro Az Design Add Konid.
Harkate Matn Az Paein Be Bala ( Vase Text Haye English Khube )
In Code Ro Kafie Tooye Timer_tick Etoon Bezarid:
In Ham Vase Harkate Matn Az Bala Be Paein Vase Text Haye Farsi:
Be Hamin Soorat Mitoonid Tanzim Konid Vase Rast Be Chap Ya Chap Be Rast.
( Tavaqo Daram Ye Nafar Right To Left Va Left Ro Right Ro Codesho Bezare )
Ye Nokte Begam
Man Inja Umadam Interval Ro 20 Gozashtam.
Shoma Mitoonid Masalan Interval Ro Konid 150 Vali +1 Ya -1 Ro Bishtar Konid. Masalan +5 Ya -5
Soali Bood Dar Khedmatam
Age Bedoonid Ba Che Dandoon Dardi In Amoozesh Ro Neveshtam Daram Mimiram
Khob Armin Ramzani E Aziz Ye Source Code Gozashte Boodi Vase Harkate Matn Ba WebView
Man Khastam Hamin Amoozesh Ro Bedoone WebView Bezaram Dar Kootah Tarin Code Nevisie Momken:
Faghat Ye Label Ro Az Design Add Konid.
- Code:
Sub Globals
Dim timer1 As Timer
Private Label1 As Label
End Sub
- Code:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("harkatematn")
timer1.Initialize("timer1",20)
timer1.Enabled = True
End Sub
Harkate Matn Az Paein Be Bala ( Vase Text Haye English Khube )
In Code Ro Kafie Tooye Timer_tick Etoon Bezarid:
- Code:
Label1.Top =Label1.Top - 1
If Label1.Top = -15%y Then
Label1.Top = 101%y
End If
In Ham Vase Harkate Matn Az Bala Be Paein Vase Text Haye Farsi:
- Code:
Label1.Top =Label1.Top + 1
If Label1.Top = 101%y Then
Label1.Top = -15%y
End If
Be Hamin Soorat Mitoonid Tanzim Konid Vase Rast Be Chap Ya Chap Be Rast.
( Tavaqo Daram Ye Nafar Right To Left Va Left Ro Right Ro Codesho Bezare )
Ye Nokte Begam
Man Inja Umadam Interval Ro 20 Gozashtam.
Shoma Mitoonid Masalan Interval Ro Konid 150 Vali +1 Ya -1 Ro Bishtar Konid. Masalan +5 Ya -5
Soali Bood Dar Khedmatam
Age Bedoonid Ba Che Dandoon Dardi In Amoozesh Ro Neveshtam Daram Mimiram