ยังเลยครับ ส่วนตัวอันไหนผมพอเขียนเองได้ก็เขียน
อันไหนทำไม่ได้ค่อยไปหาคลาสอื่นมาช่วยครับ
(ใช้งาน Framework เขาไม่เต็มประสิทธิภาพเล๊ย)
ตัวโครงสร้างโปรแกรมส่วนGUIยังไม่แน่นอนครับ
กำลังชั่งใจครับอยู่ว่าจะตัดแถบ Asset อะไรออกหมด
เหลือแค่ TableAccout กับ Account
โยก Accout Type ไปเป็นไอค่อนอยู่ด้านซ้าย
แล้ว Calendar ไปอยู่ด้านขวาดีไหม
เพราะตัวโปรแกรมมันโล่งเหลือเกิน ไม่รู้จะยัดอะไรเข้าไปดี = ="
อันนี้เป็น Root Class สำหรับ Animation ที่ผมใช้ทั้งหมดครับ
เป็น BaseTimer นิสัยเสียติดมาจากตอนทำเกมส์เมื่อก่อน
-
- MustInherit Class Anime
-
- #Region "Value and Struction"
- Delegate Sub RunEngin(ByVal IsIn As Boolean, ByVal Input$, _
- ByRef Control As sw.UIElement, ByVal FpsRate#)
-
- Private WithEvents Timer As AferAccount.Wpf.TimeLine _
- = New AferAccount.Wpf.TimeLine With {.FPS = 60}
- #End Region
- #Region "Property and Delegate"
- Protected Update As Gate.Zub = AddressOf Gate.Idle.Zub
- Protected RuningCore As RunEngin = AddressOf Gate.Idle.Zub
-
- ReadOnly Property Fps#()
- Get
- Return Timer.FPS
- End Get
- End Property
-
- MustOverride Property Inputer$()
- #End Region
- #Region "Connector"
- Public Sub Start()
- Timer.Start()
- End Sub
- Public Sub [Stop]()
- Timer.Stop()
- End Sub
-
- Public Sub Run(ByVal IsIn As Boolean, _
- ByRef Control As sw.UIElement, Optional ByVal FpsRate# = 1)
- RuningCore(IsIn, Inputer, Control, FpsRate)
- End Sub
-
- Protected Sub CheckInput(ByVal Input$, ByVal ReqCount%)
- If Input.ToDblA.Length < ReqCount Then _
- Throw New System.Exception("Input Error")
- End Sub
- #End Region
- #Region "Inner Active"
- Private Sub Refresh() Handles Timer.Tick
- Update()
- End Sub
- #End Region
-
- End Class