809
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim i As Long
Dim j As Long
Dim X As Long
Dim Y As Long
Dim fnt As Long
Dim txt As Variant
Dim dd As Variant
Dim xx
Dim yy
Dim colvb
Dim wp
Public Function xp(colvb As Variant, xx As Variant, yy As Variant, txt As Variant)
Picture1.ForeColor = colvb
Picture1.CurrentX = xx
Picture1.CurrentY = yy
Picture1.Print txt '
End Function
Private Sub Form_Activate()
colvb = vbWhite
xx = 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
yy = 350
txt = "150"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 1350
txt = "100"
wp = xp(colvb, xx, yy, txt)
yy = 2350
txt = " 50"
wp = xp(colvb, xx, yy, txt)
xx = 300
yy = 3350
txt = "0"
wp = xp(colvb, xx, yy, txt)
xx = 100
yy = 4350
txt = "-50"
wp = xp(colvb, xx, yy, txt)
xx = 0
yy = 5350
txt = "-100"
wp = xp(colvb, xx, yy, txt)
xx = 0
yy = 6350
txt = "-150"
wp = xp(colvb, xx, yy, txt)
xx = 10800 + 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
yy = 350
txt = "150"
wp = xp(colvb, xx, yy, txt)
xx = 10800 + 200
yy = 1350
txt = "100"
wp = xp(colvb, xx, yy, txt)
yy = 2350
txt = " 50"
wp = xp(colvb, xx, yy, txt)
yy = 3350
xx = 10800 + 300
txt = "0"
wp = xp(colvb, xx, yy, txt)
xx = 10800 + 100
yy = 4350
txt = "-50"
wp = xp(colvb, xx, yy, txt)
xx = 10800 + 0
yy = 5350
txt = "-100"
wp = xp(colvb, xx, yy, txt)
yy = 6350
txt = "-150"
wp = xp(colvb, xx, yy, txt)
'真空坐标
colvb = vbRed
xx = 11400
yy = 150
txt = "Pa"
wp = xp(colvb, xx, yy, txt)
yy = 350
txt = "10000"
wp = xp(colvb, xx, yy, txt)
xx = 11500
yy = 1850
txt = "1000"
wp = xp(colvb, xx, yy, txt)
yy = 3350
xx = 11600
txt = "100"
wp = xp(colvb, xx, yy, txt)
xx = 11700
yy = 4850
txt = "10"
wp = xp(colvb, xx, yy, txt)
xx = 11500
yy = 6350
txt = " 1"
wp = xp(colvb, xx, yy, txt)
xx = 500
yy = 150
txt = "Pa"
wp = xp(colvb, xx, yy, txt)
yy = 150
xx = 2200
txt = "6hr"
wp = xp(colvb, xx, yy, txt)
xx = 4000
txt = "12hr"
wp = xp(colvb, xx, yy, txt)
xx = 5800
txt = "18hr"
wp = xp(colvb, xx, yy, txt)
xx = 7600
txt = "24hr"
wp = xp(colvb, xx, yy, txt)
xx = 9400
txt = "30hr"
wp = xp(colvb, xx, yy, txt)
xx = 13000
txt = "42hr"
wp = xp(colvb, xx, yy, txt)
xx = 14800
txt = "48hr"
wp = xp(colvb, xx, yy, txt)
xx = 16600
txt = "54hr"
wp = xp(colvb, xx, yy, txt)
xx = 18400
txt = "60hr"
wp = xp(colvb, xx, yy, txt)
xx = 20200
txt = "66hr"
wp = xp(colvb, xx, yy, txt)
xx = 22000
txt = "72hr"
wp = xp(colvb, xx, yy, txt)
xx = 23800
txt = "78hr"
wp = xp(colvb, xx, yy, txt)
xx = 25600
txt = "84hr"
wp = xp(colvb, xx, yy, txt)
xx = 27400
txt = "90hr"
wp = xp(colvb, xx, yy, txt)
xx = 29200
txt = "96hr"
wp = xp(colvb, xx, yy, txt)
yy = 350
txt = "10000"
wp = xp(colvb, xx, yy, txt)
xx = 600
yy = 1850
txt = "1000"
wp = xp(colvb, xx, yy, txt)
yy = 3350
xx = 600
txt = "100"
wp = xp(colvb, xx, yy, txt)
xx = 700
yy = 4850
txt = "10"
wp = xp(colvb, xx, yy, txt)
xx = 600
yy = 6350
txt = "1"
wp = xp(colvb, xx, yy, txt)
xx = 22100
yy = 350
txt = "10000"
wp = xp(colvb, xx, yy, txt)
yy = 1850
txt = "1000"
wp = xp(colvb, xx, yy, txt)
yy = 3350
txt = "100"
wp = xp(colvb, xx, yy, txt)
yy = 4850
txt = " 10"
wp = xp(colvb, xx, yy, txt)
yy = 6350
txt = " 1"
wp = xp(colvb, xx, yy, txt)
'画格
'Picture1.ForeColor = vbWhite
'Picture1.Line (450, 700)-(500, 700)
'Picture1.Line (450, 1000)-(500, 1000)
'Picture1.Line (450, 1300)-(500, 1300)
'Picture1.Line (450, 1600)-(500, 1600)
Picture1.ForeColor = vbRed
Picture1.Line (500, 1900)-(29300, 1900)
Picture1.Line (500, 4900)-(29300, 4900)
Picture1.Line (500, 566.7)-(550, 566.7)
Picture1.Line (500, 733.3)-(550, 733.3)
Picture1.Line (500, 900)-(550, 900)
Picture1.Line (500, 1066.7)-(550, 1066.7)
Picture1.Line (500, 1233.3)-(550, 1233.3)
Picture1.Line (500, 1400)-(550, 1400)
Picture1.Line (500, 1566.7)-(550, 1566.7)
Picture1.Line (500, 1733.3)-(550, 1733.3)
Picture1.Line (500, 2066.7)-(550, 2066.7)
Picture1.Line (500, 2233.3)-(550, 2233.3)
Picture1.Line (500, 2400)-(550, 2400)
Picture1.Line (500, 2566.7)-(550, 2566.7)
Picture1.Line (500, 2733.3)-(550, 2733.3)
Picture1.Line (500, 2900)-(550, 2900)
Picture1.Line (500, 3066.7)-(550, 3066.7)
Picture1.Line (500, 3233.3)-(550, 3233.3)
Picture1.Line (500, 3566.7)-(550, 3566.7)
Picture1.Line (500, 3733.3)-(550, 3733.3)
Picture1.Line (500, 3900)-(550, 3900)
Picture1.Line (500, 4066.7)-(550, 4066.7)
Picture1.Line (500, 4233.3)-(550, 4233.3)
Picture1.Line (500, 4400)-(550, 4400)
Picture1.Line (500, 4566.7)-(550, 4566.7)
Picture1.Line (500, 4733.3)-(550, 4733.3)
Picture1.Line (500, 5066.7)-(550, 5066.7)
Picture1.Line (500, 5233.3)-(550, 5233.3)
Picture1.Line (500, 5400)-(550, 5400)
Picture1.Line (500, 5566.7)-(550, 5566.7)
Picture1.Line (500, 5733.3)-(550, 5733.3) '000
Picture1.Line (500, 5900)-(550, 5900)
Picture1.Line (500, 6066.7)-(550, 6066.7)
Picture1.Line (500, 6233.3)-(550, 6233.3)
Picture1.ForeColor = vbWhite
Picture1.Line (450, 400)-(29300, 400)
Picture1.Line (450, 1400)-(29300, 1400)
Picture1.Line (450, 2400)-(29300, 2400)
Picture1.Line (450, 3400)-(29300, 3400)
Picture1.Line (450, 4400)-(29300, 4400)
Picture1.Line (450, 5400)-(29300, 5400)
Picture1.Line (450, 6400)-(29300, 6400)
For i = 1 To 30
Picture1.Line (450, 400 + i * 200)-(500, 400 + i * 200)
Next
Picture1.Line (500 + 0, 400)-(500 + 0, 6400)
Picture1.Line (1400 + 0, 400)-(1400 + 0, 6400)
Picture1.Line (2300 + 0, 400)-(2300 + 0, 6400)
Picture1.Line (3200 + 0, 400)-(3200 + 0, 6400)
Picture1.Line (4100 + 0, 400)-(4100 + 0, 6400)
Picture1.Line (5000 + 0, 400)-(5000 + 0, 6400)
Picture1.Line (5900 + 0, 400)-(5900 + 0, 6400)
Picture1.Line (6800 + 0, 400)-(6800 + 0, 6400)
Picture1.Line (7700 + 0, 400)-(7700 + 0, 6400)
Picture1.Line (8600 + 0, 400)-(8600 + 0, 6400)
Picture1.Line (9500 + 0, 400)-(9500 + 0, 6400)
Picture1.Line (10400 + 0, 400)-(10400 + 0, 6400)
Picture1.Line (11300, 400)-(11300, 6400)
Picture1.Line (12200, 400)-(12200, 6400)
Picture1.Line (13100, 400)-(13100, 6400)
Picture1.Line (14000, 400)-(14000, 6400)
Picture1.Line (14900, 400)-(14900, 6400)
Picture1.Line (15800, 400)-(15800, 6400)
Picture1.Line (16700, 400)-(16700, 6400)
Picture1.Line (17600, 400)-(17600, 6400)
Picture1.Line (18500, 400)-(18500, 6400)
Picture1.Line (19400, 400)-(19400, 6400)
Picture1.Line (20300, 400)-(20300, 6400)
Picture1.Line (21200, 400)-(21200, 6400)
Picture1.Line (22100, 400)-(22100, 6400)
Picture1.Line (23000, 400)-(23000, 6400)
Picture1.Line (23900, 400)-(23900, 6400)
Picture1.Line (24800, 400)-(24800, 6400) '000
Picture1.Line (25700, 400)-(25700, 6400) '000
Picture1.Line (26600, 400)-(26600, 6400) '000
Picture1.Line (27500, 400)-(27500, 6400) '000
Picture1.Line (28400, 400)-(28400, 6400) '000
Picture1.Line (29300, 400)-(29300, 6400)
End Sub
Private Sub Form_Load()
Picture1.BackColor = vbBlack
End Sub