在做一个vb画曲线的组件,遇到三个问题
1.默认坐标原点在左上角,写程序往下移比较烦琐,有没有其他办法
2.vb里的颜色和web里的颜色不一样如(vbblack和#000000)除用RGB()外还有没有转换的办法?
3.vb里的大小单位是缇,web里常用的是像素,如何转换的?
1.默认坐标原点在左上角,写程序往下移比较烦琐,有没有其他办法
2.vb里的颜色和web里的颜色不一样如(vbblack和#000000)除用RGB()外还有没有转换的办法?
3.vb里的大小单位是缇,web里常用的是像素,如何转换的?
Dim tip As Long
Dim pixel As Long
Form1.ScaleMode = 1
tip = Form1.ScaleHeight
Form1.ScaleMode = 3
pixel = Form1.ScaleHeight
MsgBox tip / pixel
End Sub
Picture1提供了scale方法,可以自定义坐标系。Private Sub Command1_Click()
Picture1.ScaleMode = 3
Picture1.Scale (0, Picture1.ScaleHeight)-(Picture1.ScaleWidth, 0)
Picture1.Line (0, 0)-(50, 50), vbRed '起点在左下角
End Sub//2.vb里的颜色和web里的颜色不一样如(vbblack和#000000)除用RGB()外还有没有转换的办法?
还有QBColor函数与颜色有关