|
|
Post by G Softwares on Jan 16, 2017 16:08:40 GMT
Hello, for my Project Remix I want to make a cool taskbar icon animation with a resizing panel (like in the picture), but I don't know how can I do it! Can someone help me? Thanks.  Remix OS taskbar |
|
New Member
|
Post by gizidda74 on Jan 16, 2017 18:48:45 GMT
can you give more details? what kind of animation u want to realize? how the resizing would be? in the image we only see static icons
|
|
New Member
|
Post by FreeApp Software on Jan 17, 2017 13:06:27 GMT
Animated resizing is
While a < 300 Do '300 is width
Panel1.Width = Panel1.Width + 1 'Panel name
a = a + 1
Loop
|
|
|
|
Post by G Softwares on Jan 17, 2017 13:44:49 GMT
Animated resizing is
While a < 300 Do '300 is width
Panel1.Width = Panel1.Width + 1 'Panel name
a = a + 1
Loop
It doesn't work |
|
|
|
Post by G Softwares on Jan 17, 2017 13:45:48 GMT
can you give more details? what kind of animation u want to realize? how the resizing would be? in the image we only see static icons An animation that changes the size of a panel. Imagine that the white lines in the picture are animated from short to long. |
|
New Member
|
Post by gizidda74 on Jan 17, 2017 18:04:51 GMT
can you give more details? what kind of animation u want to realize? how the resizing would be? in the image we only see static icons An animation that changes the size of a panel. Imagine that the white lines in the picture are animated from short to long. Oh ok i thought those were like progress bars. I understand you have used some panels under the icons, and you want them to grow simulating a progress bar... You need to use relative coordinates, that is: panale1.width = panel1.width + x or something like this... I used this code in my OS: 1) In the _load event of the form i use: Panel1.Width = 50 (you change it to whatever initial width you want) 2) in the click code, or in a timer, or whatever triggers your resizing, use: Do Until Panel1.Width = 200 Panel1.Width = Panel1.Width + 5 Loop Obviuosly, if this is the case, the resizing will be very fast and the efect will be like show/hide. I suggest to put everything in a Timer where you can set the speed by increasing the interval. |
|
|
|
Post by G Softwares on Jan 17, 2017 20:58:01 GMT
An animation that changes the size of a panel. Imagine that the white lines in the picture are animated from short to long. Oh ok i thought those were like progress bars. I understand you have used some panels under the icons, and you want them to grow simulating a progress bar... You need to use relative coordinates, that is: panale1.width = panel1.width + x or something like this... I used this code in my OS: 1) In the _load event of the form i use: Panel1.Width = 50 (you change it to whatever initial width you want) 2) in the click code, or in a timer, or whatever triggers your resizing, use: Do Until Panel1.Width = 200 Panel1.Width = Panel1.Width + 5 Loop Obviuosly, if this is the case, the resizing will be very fast and the efect will be like show/hide. I suggest to put everything in a Timer where you can set the speed by increasing the interval. It works! But in the Timer2_Tick event the panel becomes short and long and repeating this in a loop! Help meh! Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Panel1.Width = 10
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Do Until Panel1.Width = 70
Panel1.Width = Panel1.Width + 1
Me.Refresh()
Loop
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Do Until Panel1.Width = 10
Panel1.Width = Panel1.Width - 1
Me.Refresh()
Loop
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer2.Start()
End Sub
End Class
|
|
|
|
Post by G Softwares on Jan 17, 2017 21:00:59 GMT
Oh ok i thought those were like progress bars. I understand you have used some panels under the icons, and you want them to grow simulating a progress bar... You need to use relative coordinates, that is: panale1.width = panel1.width + x or something like this... I used this code in my OS: 1) In the _load event of the form i use: Panel1.Width = 50 (you change it to whatever initial width you want) 2) in the click code, or in a timer, or whatever triggers your resizing, use: Do Until Panel1.Width = 200 Panel1.Width = Panel1.Width + 5 Loop Obviuosly, if this is the case, the resizing will be very fast and the efect will be like show/hide. I suggest to put everything in a Timer where you can set the speed by increasing the interval. It works! But in the Timer2_Tick event the panel becomes short and long and repeating this in a loop! Help meh! Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Panel1.Width = 10
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Do Until Panel1.Width = 70
Panel1.Width = Panel1.Width + 1
Me.Refresh()
Loop
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Do Until Panel1.Width = 10
Panel1.Width = Panel1.Width - 1
Me.Refresh()
Loop
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer2.Start()
End Sub
End Class
Okay I've solved this mess with a TimerX.Stop() at the end of the timers. Thanks for all. Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Panel1.Width = 10
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Do Until Panel1.Width = 70
Panel1.Width = Panel1.Width + 1
Me.Refresh()
Loop
Timer1.Stop()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Do Until Panel1.Width = 10
Panel1.Width = Panel1.Width - 1
Me.Refresh()
Loop
Timer2.Stop()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer2.Start()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer1.Stop()
Timer2.Stop()
End Sub
End Class
|
|
