REDIMENSIONAR CAPTION E TXTBOX TEMPO REAL

USUARIO.EXCLUIDOS 18/10/2010 09:49:04
#355346
Bom dia.

Bom já procurei e não encontrei algo que fosse o que queria, então peço a ajuda da galera aqui do forum.

seguinte gostaria que ao abrir o form, aparecesse um imputbox perguntando em que posição o caption ficaria, o nome do caption e CHAVE, isso porque colocaria a caption no ponto superior do form e essa poderia baixa até 18,5 cm.

exemplo: abra o form e aparece o imputbox, ae digito 17,5 cm, ae essa caption aparecera 17,5 cm abaixo do ponto superior onde ela estava.

fico no aguardo obrigado a todos.
MARCELO.TREZE 18/10/2010 10:39:16
#355350 Resposta escolhida
é algo básico

Private Sub Form_Load()
Dim altura
altura = InputBox([Ô]Digite a posição[Ô])
Label1.Top = altura * 567 [txt-color=#007100][ô]o 567 converte a posição de centimetros para twips[/txt-color]
End Sub
USUARIO.EXCLUIDOS 18/10/2010 14:21:43
#355372
Boa tarde, amigo Marcelo, era isso mesmo que queria, porem quero redimensiona varios captions e textbox de uma vez, to colocando o codigo abaixo mais só redimensiona a ultimo caption.

Private Sub Form_Load()
Dim altura
altura = InputBox([Ô]Digite a posição do Carimbo[Ô])
Label1.Top = altura * 567 [ô]o 567 converte a posição de centimetros para twips
Label3.Top = altura * 567
Label4.Top = altura * 567
Label5.Top = altura * 567
Label6.Top = altura * 567 - so redimensiona esse captionEnd Sub
MARCELO.TREZE 18/10/2010 14:26:34
#355373
eles estão em colunas diferentes?
USUARIO.EXCLUIDOS 18/10/2010 14:37:38
#355375
De uma olhada na imagem.
MARCELO.TREZE 18/10/2010 14:43:52
#355378
faz assim

Private Sub Form_Load()
Dim altura
altura = InputBox([Ô]Digite a posição do Carimbo[Ô])
Label1.Top = altura * 567 [ô]o 567 converte a posição de centimetros para twips
Label3.Top = Label1.Top + (altura * 567)
Label4.Top = Label3.Top + (altura * 567)
Label5.Top = Label4.Top + (altura * 567)
Label6.Top = Label5.Top + (altura * 567) [ô] - so redimensiona esse caption
End Sub
USUARIO.EXCLUIDOS 18/10/2010 14:55:05
#355380
não deu certo amigo Marcelo. parece simples mais ta me deixando com dor de de cabeça
USUARIO.EXCLUIDOS 18/10/2010 15:21:34
#355385
deu certo assim, amigo Marcelo.

Dim altura
altura = InputBox([Ô]Digite a posição do Carimbo[Ô])
Label1.Top = altura * 567 [ô]o 567 converte a posição de centimetros para twips
Label3.Top = altura * 592
Label4.Top = altura * 620
Label5.Top = altura * 648
Label6.Top = altura * 674

valeu pela ajuda, foi otima
MARCELO.TREZE 18/10/2010 15:21:41
#355386
desculpe já sei

é assim

Private Sub Form_Load()
Dim altura
altura = InputBox([Ô]Digite a posição do Carimbo[Ô])
Label1.Top = label1.top + (altura * 567) [ô]o 567 converte a posição de centimetros para twips
Label3.Top = label3.Top + (altura * 567)
Label4.Top = Label4.Top + (altura * 567)
Label5.Top = Label5.Top + (altura * 567)
Label6.Top = Label6.Top + (altura * 567) [ô] so redimensiona esse caption
End Sub


tenta novamente, uma hora a gente acerta, rs
USUARIO.EXCLUIDOS 18/10/2010 16:23:04
#355390
mais aquele que te falei antes deu certo, tava agradeço pô, rsrsrsrs
brigadão mais uma vez, vc é o cara, até já passou a dor de cabeça. rsrsrs
FILMAN 18/10/2010 17:00:12
#355394
Se te ajudou encerre o tópico




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