MONTAR UMA TABELA EM UM PICTURE

DJOU 18/03/2004 12:31:41
#15890
Alguem saberia ou me daria uma ideia de como posso montar uma tabela dentro de um picture???
Desse tipo:
_________
| |
|-------------|
| |
|________|

(Pessimo desenho....)

Pensei criar ela com varias linhas....
alguem tem outra ideia??
Grato
LCSD 18/03/2004 12:57:33
#15894 Resposta escolhida
Djou

Utilize o Método Line da Picture


Private Sub Command1_Click()

' Se quiser um Retà¢ngulo Vazado
Picture1.Line (10, 10)-(250, 250), , B

' Se quiser um Retà¢ngulo Preenchido
Picture1.Line (10, 10)-(250, 250), , BF

End Sub


Espero ter ajudado. Até Breve
[S51]
LCSD 22/03/2004 13:22:52
#16445
Djou

Utilize o Código abaixo, ele desenha um Retà¢ngulo e linhas Verticais e Horizontais, o Método é o mesmo, só se retira o argumento B, indicando tratar-se de Linha e não retà¢ngulo a ser desenhado. O For .... Next percorre as coordenadas desenhando as linhas.


Private Sub Command1_Click()
Dim i As Integer
' Se quiser um Retà¢ngulo Vazado
Picture1.Line (10, 10)-(5000, 5000), , B

For i = 500 To 4500 Step 500
  Picture1.Line (i, 10)-(i, 5000)
Next

For i = 500 To 4500 Step 500
  Picture1.Line (10, i)-(5000, i)
Next

' Se quiser um Retà¢ngulo Preenchido
'Picture1.Line (10, 10)-(250, 250), , BF

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar