在VB中,都是界面左上角为(0,0)点,怎么才能把它变成我们常规的左下角是(0,0点呢?
參考答案:使用Scale 方法:
Private Sub Form_Click()
Dim y As Single
y = 80
Line (0, 0)-(0, -1 * y), vbYellow
Line (0, 0)-(0, 1 * y), vbRed
Line (0, 0)-(50, 0), vbBlue
End Sub
Private Sub Form_Load()
Me.Scale (-10, -100)-(90, 0)' 设定自定义座标系统
End Sub