求VB高手編程……急……囧

請把下面代碼保存為Form1.frm文件，然後打開並運行即可。

VERSION?5.00

Begin?VB.Form?Form1?

BorderStyle?=3?'Fixed?Dialog

Caption?="像素編輯器"

ClientHeight=4875

ClientLeft?=45

ClientTop=435

ClientWidth?=5550

LinkTopic="Form1"

MaxButton=0'False

MinButton=0'False

ScaleHeight?=4875

ScaleWidth?=5550

StartUpPosition?=3?'窗口缺省

Begin?VB.CommandButton?Command1?

Caption?="&Reset"

Height?=495

Left=4320

TabIndex=3

Top?=4200

Width=1095

End

Begin?VB.Frame?Frame1?

Caption?="選擇顏色"

Height?=3975

Left=4320

TabIndex=1

Top?=120

Width=1095

Begin?VB.Label?Label4?

BackColor=&H80000008&

Height?=375

Index=0

Left=300

TabIndex=6

Top?=360

Width=495

End

End

Begin?VB.PictureBox?Picture1?

BorderStyle?=0?'None

Height?=4020

Left=120

ScaleHeight?=4020

ScaleWidth?=4020

TabIndex=0

Top?=120

Width=4020

Begin?VB.Label?Label1?

BackColor=&H80000012&

Height?=375

Index=1

Left=120

TabIndex=2

Top?=120

Width=375

End

End

Begin?VB.Label?Label3?

BackColor=&H80000008&

Height?=375

Left=2640

TabIndex=5

Top?=4320

Width=495

End

Begin?VB.Label?Label2?

Caption?="當前顏色："

Height?=255

Left=1560

TabIndex=4

Top?=4440

Width=975

End

End

Attribute?VB_Name?=?"Form1"

Attribute?VB_GlobalNameSpace?=?False

Attribute?VB_Creatable?=?False

Attribute?VB_PredeclaredId?=?True

Attribute?VB_Exposed?=?False

Option?Explicit

'/question/154693590.html

Private?Sub?Command1_Click()

Dim?i?As?Integer

For?i?=?1?To?100

Label1(i).BackColor?=?vbBlack

Next

End?Sub

Private?Sub?Form_Load()

Dim?i?As?Integer,?j?As?Integer,?k?As?Integer,?kd?As?Integer

kd?=?30

With?Label1(1)

.Width?=?(Picture1.Width?-?11?*?kd)?/?10

.Height?=?(Picture1.Height?-?11?*?kd)?/?10

.Top?=?0

.Left?=?0

.BackColor?=?vbBlack

End?With

Label3.Width?=?Label1(1).Width

Label3.Height?=?Label1(1).Height

Label4(0).Width?=?Label1(1).Width

Label4(0).Height?=?Label1(1).Height

For?i?=?1?To?10

For?j?=?1?To?10

If?(i?-?1)?*?10?+?j?>?1?Then?Load?Label1((i?-?1)?*?10?+?j)

With?Label1((i?-?1)?*?10?+?j)

.Top?=?kd?+?(i?-?1)?*?(.Height?+?kd)

.Left?=?kd?+?(j?-?1)?*?(.Width?+?kd)

.Visible?=?True

End?With

Next

Next

For?i?=?1?To?7

Load?Label4(i)

With?Label4(i)

.Top?=?Label4(i?-?1).Top?+?Label4(i?-?1).Height

.Left?=?Label4(i?-?1).Left

.Width?=?Label4(i?-?1).Width

.Height?=?Label4(i?-?1).Height

.Visible?=?True

Select?Case?i

Case?1

.BackColor?=?RGB(255,?0,?0)

Case?2

.BackColor?=?RGB(0,?255,?0)

Case?3

.BackColor?=?RGB(0,?0,?255)

Case?4

.BackColor?=?RGB(255,?255,?0)

Case?5

.BackColor?=?RGB(0,?255,?255)

Case?6

.BackColor?=?RGB(255,?0,?255)

Case?7

.BackColor?=?RGB(255,?255,?255)

End?Select

End?With

Next

Label3.BackColor?=?Label4(3).BackColor

End?Sub

Private?Sub?Label1_Click(Index?As?Integer)

Label1(Index).BackColor?=?Label3.BackColor

End?Sub

Private?Sub?Label4_Click(Index?As?Integer)

Label3.BackColor?=?Label4(Index).BackColor

End?Sub

上一篇:如何開啟gzip壓縮

下一篇:random.uniform(a,b)的作用是