在做一个vb画曲线的组件,遇到三个问题
1.默认坐标原点在左上角,写程序往下移比较烦琐,有没有其他办法
2.vb里的颜色和web里的颜色不一样如(vbblack和#000000)除用RGB()外还有没有转换的办法?
3.vb里的大小单位是缇,web里常用的是像素,如何转换的?

解决方案 »

  1.   

    15缇=1像素Private Sub Command1_Click()
    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
      

  2.   

    //默认坐标原点在左上角,写程序往下移比较烦琐,有没有其他办法
    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函数与颜色有关