用HTML写五百行代码,比比谁写一个（500行）的方法需要多少时间？

短命女 2022-10-06 12:45 100阅读 0赞

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

发个简单的渐变按钮,用户控件

Imports System.IO

Imports System.Text

Public Class MyButton

Inherits Windows.Forms.UserControl

Private Function mydraw(ByVal image As Bitmap, ByVal result\_bm As Bitmap, ByVal ALPHA As Integer, ByVal x As Integer, ByVal y As Integer)

Dim watermark\_bm As Bitmap = image

Dim clr As Color

For py As Integer = 0 To watermark\_bm.Height - 1

For px As Integer = 0 To watermark\_bm.Width - 1

clr = watermark\_bm.GetPixel(px, py)

If clr <> Color.FromArgb(0, 0, 0, 0) Then

watermark\_bm.SetPixel(px, py, Color.FromArgb(ALPHA, clr.R, clr.G, clr.B))

End If

Next px

Next py

Dim a As Bitmap = result\_bm

Dim gr As Graphics = Graphics.FromImage(a)

gr.DrawImage(watermark\_bm, New Rectangle(0, 0, x, y))

Return a　　End Function　　Public Event Click(sender As Object, e As EventArgs)

Public WithEvents timer1 As New Timer

Public WithEvents timer2 As New Timer

Public mypics1(15) As Stream

Public num As Integer = 0

Public num2 As Integer = 0

Public WithEvents mybutton As New PictureBox

Public mypic1 As Bitmap

Public mypic2 As Bitmap

Public Zhenshu As Integer = 15

Public Property Zhennum() As Integer

Get

Return Zhenshu

End Get

Set(ByVal value As Integer)

Zhenshu = value

End Set

End Property

Public Property Timertick As Integer

Get

Return timer1.Interval

End Get

Set(ByVal value As Integer)

timer1.Interval = value

timer2.Interval = value

End Set

End Property

Public Property Picture1() As Bitmap

Get

Return mypic1

End Get

Set(ByVal value As Bitmap)

mypic1 = value

End Set　　End Property

Public Property Picture2() As Bitmap

Get

Return mypic2

End Get

Set(ByVal value As Bitmap)

mypic2 = value

End Set

End Property

Private Sub PictureBox1\_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter

timer1.Start()

End Sub

Private Sub PictureBox1\_Mouseleave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave

timer2.Start()

End Sub

Private Sub MyButton\_Load(sender As Object, e As EventArgs) Handles MyBase.Load

On Error Resume Next

PictureBox1.Image = mypic1

Me.Size = mypic1.Size

ReDim mypics1(Zhenshu - 1)

For i = 0 To Zhenshu - 1 Step 1

Dim temp As Bitmap = mydraw(mypic1, mypic2, i \* (255 / Zhenshu), mypic1.Width, mypic1.Width)

Dim ms As New System.IO.MemoryStream

temp.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)

mypics1(i) = ms

End Sub

Private Sub Timer1\_Tick(sender As Object, e As EventArgs) Handles timer1.Tick　　　　On Error Resume Next

Dim a As Bitmap = Bitmap.FromStream(mypics1(15 - num))

PictureBox1.Image = a

num = num + 1

If num = Zhenshu Then

num = 0

timer1.Stop()

End If

End Sub

Private Sub Timer2\_Tick(sender As Object, e As EventArgs) Handles timer2.Tick

On Error Resume Next

Dim a As Bitmap = Bitmap.FromStream(mypics1(num2))

PictureBox1.Image = a

num2 = num2 + 1

If num2 = Zhenshu Then

num2 = 0

timer2.Stop()

End If

End Sub

Private Sub PictureBox1\_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click, MyBase.Click

RaiseEvent Click(sender, e)

End Sub

End Class

用HTML写五百行代码,比比谁写一个（500行）的方法需要多少时间？

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关帮写行落叶的代码

相关写一行html表白代码

相关 806. 写字符串需要的行数

相关 806. 写字符串需要的行数

相关 100 行代码写一个图片验证码组件

相关用HTML写五百行代码,比比谁写一个（500行）的方法需要多少时间？

相关用html代码写一个表白语言,HTML写代码表白 – 爱心

相关 LeetCode806. 写字符串需要的行数

相关 100行代码手写模拟一个ArrayList

相关 100行代码手写模拟一个LinkedList