បង្កើតនូវImages TransitionជាមួយVB.NET Programming

សំរាប់ចុង សប្តាហ៍នេះ អាយធីជនបទ បាននាំមកនូវមេរៀនផ្នែកភាសាកម្មវិធី(Programming) ដែលជាភាសាVB.NET។ យើងបានប្រើប្រាស់VB.Net Languageសំរាប់បង្កើតនូវApplicationមួយសំរាប់ធ្វើជាTransition អាចនិយាយបានថា ជាSlideរូបភាព។ តោះប្រញាប់ទៅដើរលេងផង! ចាប់ផ្តើមទាំងអស់គ្នា៖

1. បង្កើតនូវProjectថ្មីក្នុង Visual Studio រួច Add Tool ដូចខាងក្រោម៖
1. Button ចំនួន២៖​ btnStart និង btnStop
2. PictureBox ចំនួន២៖​ PictureBox1 និង PictureBox2 ដោយត្រូវកំណត់ទំហំរបស់ពួកវាឲ្យស្មើគ្នា
3. Timer ចំនួន១ ដោយឲ្យIntervalស្មើនឹង ១០០ (បើចង់ឲ្យមានល្បឿនលឿន អាចបន្ថយIntervalបាន)
2. ក្នុងនេះ យើងមានរូបភាពចំនួន ៣សំរាប់ធ្វើជាTransition ដូចនេះ យើងបានImportពួកវាចូលទៅក្នុងProject របស់យើង ហើយរូបភាពទាំង៣នោះស្ថិតក្នុង Resources
3. បន្ទាប់មកអនុវត្តជាមួកូដតែម្តង៖

1. Public Class Form1
2. Dim img As New List(Of Image) សំរាប់ផ្ទុករូបភាពសំរាប់ធ្វើTransition
3. Dim index As Integer សំរាប់ចាប់យករូបភាពម្តងមួយៗ
4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
5. img.Add(My.Resources._01) ដាក់រូបភាពចូលទៅក្នុង កន្លែងផ្ទុក ដែលរូបភាពស្ថិតក្នុង Resources
6. img.Add(My.Resources._02)
7. img.Add(My.Resources._03)
8. PictureBox2.Left = Me.Left + Me.Width កំនត់ឲ្យPictureBox2 នៅខាងស្តាំ នោះ Transitionរបស់យើងនឹងរត់ពីខាងស្តាំមកខាងឆ្វេង
9. End Sub
10. Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
11. index = 0
12. Timer1.Start()
13. End Sub
14. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
15. Timer1.Stop()
16. PictureBox2.Left = Me.Left + Me.Width
18. End Sub
19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
MyMove() End Sub
កូដសំរាប់Transition
20. Sub MyMove()
21. If PictureBox2.Left <= PictureBox1.Left Then
22. PictureBox2.Left = Me.Left + Me.Width
23. PictureBox1.Image = PictureBox2.Image
24. If index < img.Count - 1 Then
25. index = index + 1
26. Else
27. index = 0
28. End If
29. PictureBox2.Image = img(index)
30. Else
31. PictureBox2.Left = PictureBox2.Left - 10
32. End If
33. End Sub
34. End Class

លទ្ធផល