[VB.NET] แจกโค้ดฟรีการทำ Tile Layout ของฟรีจากค่าย Syncfusion

thongkorn

ไม่พูดเยอะ เจ็บคอ ... ศึกษาดูวิธีการทำได้จากโค้ดเลยครับผม ... ดาวน์โหลด Syncfusion Community ได้ฟรีที่ Syncfusion Essential รุ่น Community

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com/webboard (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/CommonIndy (Worldwide)
   
7. ' / Purpose: Test TileLayout in Syncfusion Community with VB2010
   
8. ' /
   
9. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
   
10. ' / You can modify and/or distribute without to inform the developer.
    
11. ' / --------------------------------------------------------------------------------
    
12. 
    
13. Imports Syncfusion.Windows.Forms
    
14. 
    
15. Public Class frmTileLayout
    
16.     Dim MyToolTip As ToolTipAdv = Nothing
    
17.     Dim MySize As Size
    
18. 
    
19.     Public Sub New()
    
20.         ' This call is required by the designer.
    
21.         InitializeComponent()
    
22.         ' Add any initialization after the InitializeComponent() call.
    
23.         ' Instantiate a ToolTipAdv
    
24.         MyToolTip = New ToolTipAdv(Me)
    
25.     End Sub
    
26. 
    
27.     ' / --------------------------------------------------------------------------------
    
28.     '// Sample Click Event and Driven in Visual Basic.
    
29.     Private Sub ImageStreamer1_Click(sender As System.Object, e As System.EventArgs) Handles ImageStreamer1.Click
    
30.         System.Diagnostics.Process.Start("C:\")
    
31.     End Sub
    
32. 
    
33.     Private Sub frmTileLayout_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
34.         Me.Dispose()
    
35.         Application.Exit()
    
36.     End Sub
    
37. 
    
38.     ' / --------------------------------------------------------------------------------
    
39.     Private Sub frmTileLayout_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
40.         Me.TileLayout1.Text = "I love Visual Basic"
    
41.         Me.TileLayout1.ForeColor = Color.White
    
42. 
    
43.         '// imageStremaer1
    
44.         With Me.ImageStreamer1
    
45.             '// Images for slide
    
46.             .Images.Add(Image.FromFile(strPathImages + "\1.png"))
    
47.             .Images.Add(Image.FromFile(strPathImages + "\2.png"))
    
48.             .Images.Add(Image.FromFile(strPathImages + "\3.png"))
    
49.             .AllowDragging = True
    
50.             .TabIndex = 0
    
51.             .SubText.Text = "Slider Sample"
    
52.             .SubText.Location = New Point(0, .Height - (MySize.Height + 15))
    
53.             .SubText.Visible = True
    
54.             .Text = "Slider Sample"
    
55.             '// Open Slide
    
56.             .SlideShow = True
    
57.             .SliderSpeed = 2000    ' 1000 millisecond = 1 second.
    
58.         End With
    
59. 
    
60.         '// imageStremaer2
    
61.         With Me.ImageStreamer2
    
62.             .Images.Add(Image.FromFile(strPathImages + "\c.png"))
    
63.             .AllowDragging = True
    
64.             .InternalBackColor = System.Drawing.Color.Yellow
    
65.             .Location = New System.Drawing.Point(130, 0)
    
66.             .Name = "imageStreamer2"
    
67.             .Size = New System.Drawing.Size(120, 120)
    
68.             .TabIndex = 1
    
69.             .Text = "imageStreamer2"
    
70.             .TextAnimationDirection = Syncfusion.Windows.Forms.Tools.ImageStreamer.TextStreamDirection.RightToLeft
    
71.         End With
    
72. 
    
73.         '// imageStreamer3
    
74.         With Me.ImageStreamer3
    
75.             .Images.Add(Image.FromFile(strPathImages + "\Syncfusion.jpg"))
    
76.             .AllowDragging = True
    
77.             .InternalBackColor = System.Drawing.Color.Red
    
78.             .Location = New System.Drawing.Point(5, 125)
    
79.             .Name = "imageStreamer3"
    
80.             .Size = New System.Drawing.Size(120, 120)
    
81.             .TabIndex = 2
    
82.             .Text = "imageStreamer3"
    
83.             .TextAnimationDirection = Syncfusion.Windows.Forms.Tools.ImageStreamer.TextStreamDirection.RightToLeft
    
84.         End With
    
85. 
    
86.         '//imageStreamer4
    
87.         With Me.ImageStreamer4
    
88.             .Images.Add(Image.FromFile(strPathImages + "\6.png"))
    
89.             .SubText.Text = "Music"
    
90.             .SubText.Visible = True
    
91.             .BackColor = Color.DarkMagenta
    
92.             .SubText.Location = New Point(0, .Height - (MySize.Height + 15))
    
93.             .TabIndex = 3
    
94.             '// Add Event Handler
    
95.             AddHandler ImageStreamer4.Click, AddressOf ImageStreamer4_Click
    
96.         End With
    
97. 
    
98.         '//
    
99.         With Me.ImageStreamer5
    
100.             .Images.Add(Image.FromFile(strPathImages + "\g.png"))
     
101.             .BackColor = Color.CadetBlue
     
102.             .SubText.Text = "Sample Text"
     
103.             .SubText.ForeColor = Color.Black
     
104.             MySize = TextRenderer.MeasureText(ImageStreamer5.SubText.Text, Me.Font)
     
105.             .SubText.Location = New Point(0, .Height - (MySize.Height + 5))
     
106.         End With
     
107. 
     
108.         '// Exit
     
109.         Me.pictureBox1.Image = Image.FromFile(strPathImages + "\Exit.png")
     
110. 
     
111.     End Sub
     
112. 
     
113.     Private Sub ImageStreamer4_Click(sender As Object, e As System.EventArgs)
     
114.         Dim myMusicPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
     
115.         System.Diagnostics.Process.Start(myMusicPath)
     
116.     End Sub
     
117. 
     
118.     Private Sub pictureBox1_Click(sender As Object, e As System.EventArgs) Handles pictureBox1.Click
     
119.         Me.Dispose()
     
120.     End Sub
     
121. 
     
122.     Private Sub pictureBox1_MouseEnter(sender As Object, e As System.EventArgs) Handles pictureBox1.MouseEnter
     
123.         Me.Cursor = Cursors.Hand
     
124.         Dim pt As Point = Me.PointToScreen(New Point(Me.pictureBox1.Bounds.X + 10, Me.pictureBox1.Bounds.Y + Me.pictureBox1.Height + 10))
     
125.         Me.MyToolTip.Text = "Close"
     
126.         Me.MyToolTip.ShowPopup(pt)
     
127.     End Sub
     
128. 
     
129.     Private Sub pictureBox1_MouseLeave(sender As Object, e As System.EventArgs) Handles pictureBox1.MouseLeave
     
130.         Me.Cursor = Cursors.Default
     
131.         Me.MyToolTip.HidePopup()
     
132.     End Sub
     
133. 
     
134.     Private Sub ImageStreamer3_Click(sender As System.Object, e As System.EventArgs) Handles ImageStreamer3.Click
     
135.         Process.Start("http://www.syncfusion.com/downloads/latest-version")
     
136.     End Sub
     
137. 
     
138. End Class

คัดลอกไปที่คลิปบอร์ด

โมดูลหากินอีกแล้ว modFunction.vb ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Microsoft Visual Basic .NET (2010)
   
8. ' /
   
9. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
   
10. ' / You can modify and/or distribute without to inform the developer.
    
11. ' / --------------------------------------------------------------------------------
    
12. Imports Microsoft.VisualBasic
    
13. Module modFunction
    
14.     '// Images Path
    
15.     Public strPathImages As String = MyPath(Application.StartupPath) & "Images"
    
16. 
    
17.     ' / --------------------------------------------------------------------------------
    
18.     ' / Get my project path
    
19.     ' / AppPath = C:\My Project\bin\debug
    
20.     ' / Replace "\bin\debug" with ""
    
21.     ' / Return : C:\My Project\
    
22.     Function MyPath(AppPath As String) As String
    
23.         '/ MessageBox.Show(AppPath);
    
24.         AppPath = AppPath.ToLower()
    
25.         '/ Return Value
    
26.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
27.         '// If not found folder then put the \ (BackSlash) at the end.
    
28.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
29.     End Function
    
30. 
    
31. End Module

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

Oplot

ขอบคุณครับ

optimized

ขอบคุณครับ