📄 form1.frm
字号:
Case 9
M = 5
nM = 3
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 * 100 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 10
M = 4
nM = 3
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssy / Hssx) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 11
M = 22
nM = 20
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Cos(Log(Abs((Hssy) + 0.000001)))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * ((Log((dL2 / dL1 * Hssx * Hssy + 0.000001)))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * ((Cos(Log(Abs((Hssx) + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 12
M = 14
nM = 13
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1
temp1 = Atn(((Hssy / Hssx))) + dL2
temp2 = Atn(((Hssx / Hssy))) - dL2
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Abs(temp1)) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * Log(Abs(Atn(Log(Abs(Sin(dL2) * Sin(Hssx) + Cos(Hssy)))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Abs(temp2) - Abs(temp1)) * 2 ^ Kn2) Mod 512 - 256))
Case 13
M = 10
nM = 9
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 + 3
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * Log(Abs(Sin(Cos(dL3)))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * Log(Abs(Cos(Sin(dL3)))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * Log(Abs(Sin(dL3))) * 2 ^ Kn2) Mod 512 - 256))
Case 14
M = 1000
nM = 1
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 + 3
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * Log(Abs(Sin(Cos(Log(dL4))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * Log(Abs(Cos(Sin(Log(dL4))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * Log(Abs(Sin(Log(dL4)))) * 2 ^ Kn2) Mod 512 - 256))
Case 15
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 23
nM = 21
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 3.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs(Hssx ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((10 * Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs(Hssy ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 16
M = 1000
nM = 11
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 12
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(M - i / 1000# + Log(Abs(dL2) + Log(Abs(dL1))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(M - i / 1000# + Log(Abs(dL2) + Log(Abs(dL3))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(M - i / 1000# + (Abs(dL2)))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 17
M = 1000
nM = 11
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 9
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Log(dL1 + 0.001 * dL2)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Log(dL1 + 0.001 * dL2)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Log(dL2 + 0.001 * dL2)) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 18
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
temp1 = Sin(x0)
temp2 = Sin(y0)
x0 = temp1
y0 = temp2
M = 23
nM = 21
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 3.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs(Hssx ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((10 * Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs(Hssy ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 19
M = 1000
nM = 11
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 9
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * Tan(Abs(Log(Log(dL2 + dL3) + Sin(Log(dL1 + dL3))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * Tan(Abs(Log(Log(dL2 + dL3) + Sin(Log(dL1 + dL3))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * Tan(Abs(Log(Log(dL2 + dL3) + Sin(Log(dL1 + dL3))))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 20
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 5
nM = 3
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1#
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 * 100 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 21
M = 1000
nM = 15
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 10
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(1 / i) + Log(Abs(dL2)))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(1 / i) + Log(Abs(dL2)))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(1 / i) + Log(Abs(dL2)))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 22
M = 1000
nM = 15
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 10
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(10 / i) + Log(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(10 / i) + Log(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(10 / i) + Log(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 23
temp1 = (x0 ^ 2) - (y0 ^ 2)
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
Call Zshang(0.7, 0, x0, y0, temp1, temp2)
x0 = temp1
y0 = temp2
M = 1000
nM = 30
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 10
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(100 / i) + Sin(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(100 / i) + Sin(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(100 / i) + Cos(Abs(Log(Abs(dL2)))))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 24
M = 1000
nM = 30
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 10
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(100 / i) + 1 / (Sin(Abs(Log(Abs(dL2))))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(100 / i) + 1 / (Sin(Abs(Log(Abs(dL2))))))) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(100 / i) + 1 / (Cos(Abs(Log(Abs(dL2))))))) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 25
M = 1000
nM = 10
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 11
temp1 = Tan(Abs(Sin(Abs(Log(Abs(dL4))))))
temp2 = Tan(Abs(Sin(Abs(Log(Abs(dL2))))))
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(100 / i) + temp1)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(100 / i) + temp2)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(100 / i) + temp1)) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 26
M = 1000
nM = 30
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 11
temp1 = Tan(Abs(Sin(Abs(Log(Abs(dL4))))))
temp2 = Tan(Abs(Sin(Abs(Log(Abs(dL2))))))
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (Sin(Log(100 / i) + temp1)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (Cos(Log(100 / i) + temp2)) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (Sin(Log(100 / i) + temp1)) * 2 ^ Kn2 / M) Mod 512 - 256))
Case 27
temp1 = (x0 ^ 2) - (y0 ^ 2)
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
Call Zshang(0.7, 0, x0, y0, temp1, temp2)
x0 = temp1
y0 = temp2
M = 5
nM = 3
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssy / Hssx) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 28
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 4
nM = 2
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssx) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 * 100 + Hssy + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 29
temp1 = Tan(x0 / 1.5)
temp2 = Tan(y0)
x0 = temp1
y0 = temp2
M = 13
nM = 11
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs(Hssy ^ 2.5 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs(Hssx ^ 2.5 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 30
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 23
nM = 21
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 3.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs(Hssx ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((3 * Log((dL2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs(Hssy ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 31
Call fz2(x0, y0, 0, 1, temp1, temp2, 2)
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 5
nM = 3
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1#
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 * 100 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssx + Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case 32
Call fz2(y0, x0, 0.3, 0.3, temp1, temp2, 4)
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
temp1 = x0 ^ 2 - y0 ^ 2
temp2 = 2 * x0 * y0
x0 = temp1
y0 = temp2
M = 4
nM = 2
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = (SeData(0, 9)) / 2 - 1.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (((Log(Abs((Hssx) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (((Log((dL2 * 100 + Hssy + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (((Log(Abs((Hssy) ^ 2 + 0.000001))))) * 2 ^ Kn2) Mod 512 - 256))
Case Else
M = 10000
nM = 11
i = MMi(x0, y0, Int(SeData(0, 13)), M, nM, Hssx, Hssy, dL1, dL2, dL3, dL4) 'i
Kn2 = SeData(0, 9) + 11.5
se = RGB(256 - Abs(Abs(Se1 - (2 * Se2 - 256) * (M - i) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se2 - (2 * Se3 - 256) * (M - i) * 2 ^ Kn2 / M) Mod 512 - 256), _
256 - Abs(Abs(Se3 - (2 * Se1 - 256) * (M - i) * 2 ^ Kn2 / M) Mod 512 - 256))
End Select
If Mang <> Tmang Then '防止同时运行多个本线程的代码
Mang = -1
Exit Sub
End If
temp = SetPixelV(frmMain.Picture2.hdc, A, B, se)
'因为单独的绘图操作占整个显示图像的时间比很少，所以这里没有做优化， _
但用API的函数还是比VB自带的快很多倍，（SetPixelV比SetPixel快）
Next B
DoEvents
If Mang <> Tmang Then '防止同时运行多个本线程的代码
Mang = -1
Exit Sub
End If
'Picture2保存绘制的图像（实际的图形），Picture1用来显示，以下代码实现显示，并尽量减少绘图操作。
tempA = Int(A * frmMain.Picture1.ScaleWidth / frmMain.Picture2.ScaleWidth)
If (tempA <> temp1 And tempA <> temp2) Then
temp2 = temp1: temp1 = tempA
frmMain.Picture1.PaintPicture frmMain.Picture2.Image, _
tempA, _
0, _
Int(1# * frmMain.Picture1.ScaleWidth / frmMain.Picture2.ScaleWidth + 0.999999999999), _
frmMain.Picture1.ScaleHeight, _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -