|
|
Postada em 15/07/2004 12:51 hs
Alguem aqui ja fez isso? Tenho um projeto e presciso colocar uma regua de referencia tanto na horizontal com vertical, em mm. Alguem tem uma ideia?? |
|
|
|
|
|
|
|
Postada em 15/07/2004 13:43 hs
Vc já tentou colocar o ScaleMode = 6-Millimeter ou 7-Centimeter?
Não vai ficar exatamente o nº certo, correspondente a Régua, pq isso depende de vários fatores, como o Tamanho do Monitor, Resolução da Tela, etc.
Qualquer coisa eu vejo se dá pra te fazer um exemplo.
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
|
Postada em 15/07/2004 14:19 hs
Eu consegui assim, uma vez que a minha regua vai ter tamnho fixo: Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
'Desenhar uma regua For dx = 0 To 8640 Step 114 Picture1.Line (dx, 0)-(dx, 150)
Picture2.Line (0, dx)-(150, dx)
Next
agora eu queria que a cada 1 cm a line ficasse maior que as outras. Será que dah? |
|
|
|
|
|
Postada em 15/07/2004 14:33 hs
Dim dx As Integer
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
For dx = 0 To Picture1.Width Step 114
Picture1.Line (dx, 0)-(dx, IIf((dx / 1140) = (dx | 1140), 300, IIf((dx / 570) = (dx | 570), 225, 150)))
Next
For dx = 0 To Picture2.Height Step 114
Picture2.Line (0, dx)-(IIf((dx / 1140) = (dx | 1140), 300, IIf((dx / 570) = (dx | 570), 225, 150)), dx)
Next
'Atenção onde está | substitua por barra invertida
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
|
Postada em 15/07/2004 15:03 hs
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
