16,556
社区成员
发帖
与我相关
我的任务
分享
Imports System.Drawing
Public Class LoginProgressBar
Private Bp As Bitmap
Private Rote As Double = 0
Private LightValue As Integer = -171
Private TitleSize As Double = 0
Private IsMax As Boolean = False
Private Sub LoginProgressBar_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EnabledChanged
Timer1.Enabled = Me.Enabled
End Sub
Private Sub LoginProgressBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub LoginProgressBar_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Width = 202
Me.Height = IIf(Me.Height Mod 2 <> 0, Me.Height, Me.Height - 1)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If DesignMode = False Then
Rote = IIf(Rote + 5 >= 360, 0, Rote + 5)
LightValue = IIf(LightValue + 5 >= Me.Width + 171, -171, LightValue + 5)
If Bp IsNot Nothing Then Bp.Dispose()
Bp = New Bitmap(Me.Width, Me.Height)
Using tmpB2 As New Bitmap(209, 209)
Using tmpB As New Bitmap(CType(DYrc.GetRcByName("Lgfrm_Loading_Layer3"), Bitmap))
Using G As Graphics = Graphics.FromImage(tmpB2)
G.TranslateTransform(59, 59)
G.RotateTransform(Rote)
DYdr.Image_DrawImage(G, tmpB, New Point(-59, -59))
End Using
End Using
Using G As Graphics = Graphics.FromImage(Bp)
DYdr.Image_DrawImage(G, DYrc.GetRcByName("Lgfrm_Loading_Layer0"), New Point(0, (Me.Height - 41) / 2))
DYdr.Image_DrawImage(G, DYrc.GetRcByName("Lgfrm_Loading_Layer1"), New Point(LightValue, (Me.Height - 16) / 2))
DYdr.Image_DrawImage(G, DYrc.GetRcByName("Lgfrm_Loading_Layer2"), New Point(0, (Me.Height - 41) / 2))
G.DrawImage(tmpB2, New Rectangle(0, (Me.Height - 41) / 2, Me.Width, 41), New Rectangle(0, 0, 118, 118), GraphicsUnit.Pixel)
If TitleSize >= 20 Then
IsMax = True
ElseIf TitleSize <= -20 Then
IsMax = False
End If
Select Case IsMax
Case False
TitleSize += 0.5
Case True
TitleSize -= 0.5
End Select
Dim t1, t2 As Integer
t1 = (Me.Width - 85 - TitleSize) / 2 : t2 = Me.Height - 31 - TitleSize
'DYdr.Image_DrawImage(G, DYrc.GetRcByName("Lgfrm_DLZ"), New Point(t1, t2), New Size(85 + TitleSize, 31 + TitleSize))
End Using
End Using
Me.BackgroundImage = Bp
End If
End Sub
End Class