Mover texto - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Mover texto

OLIMPIA
SP - BRASIL

ENUNCIADA !

Postada em 24/07/2004 22:50 hs

tenho dois forms, gostaria de clicar em um item de list q esta no 1º form e arrastar para o 2º form, quando soltar o texto selecionado no 2º form ele criar um text com o valor do texto q cliquei no list do 1º form

Não sei muito, mas o pouco que sei passo para outras pessoas.

Rochª

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 25/07/2004 13:48 hs

Tente

form 1

Private Sub Form_Load()
    ' Esconde a textbox
    Text1.Visible = False
    ' Preenche a List1Origem
    List1Origem.AddItem "Ana"
    List1Origem.AddItem "Beatriz"
    List1Origem.AddItem "Carla"
    List1Origem.AddItem "Denise"
    List1Origem.AddItem "Eliane"
    List1Origem.AddItem "Flavia"
    List1Origem.AddItem "Gabriela"
End Sub

Private Sub List1Origem_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    If List1Origem.Text = "" Then
        Exit Sub    'Não há nada selecionado
    End If
    Text1.Top = Y + List1Origem.Top
    Text1.Left = X + List1Origem.Left
    Text1.Drag
End Sub

No segundo form

Private Sub List2Destino_DragDrop(Source As Control, _
     X As Single, Y As Single)
    On Error GoTo Fim
    List2Destino.AddItem form1.List1Origem.Text
    form1.List1Origem.RemoveItem form1.List1Origem.ListIndex
Fim:
End Sub

Testei e funcionou direitinho, Coloquei os form como child e um form para ser a mae. Se quizer te mando o o projeto funcionando. Não esqueca do load do form mae chamar os filhos. Form1 e form2. Coloquei na troca de arquivo no forum com nome de Drag-Drop.

__________________________________________________________________________

Qualquer coisa post

Rochª

TÓPICO EDITADO

OLIMPIA
SP - BRASIL

ENUNCIADA !

Postada em 25/07/2004 16:38 hs

valeu Rochª
blz fiz isso e deu certo, mas eu gostaria de quando soltar no form2 o item q selecionei no form1, fosse criado um objeto text, pois estou desenvolvendo um gerador de relatório, onde o usuario seleciona o campo e depois solta ele em qualquer local no form2, e automaticamente surgiará um objeto text em tempo de execução no local q ele soltou o q tinha selecionado no form1

Não sei muito, mas o pouco que sei passo para outras pessoas.

OLIMPIA
SP - BRASIL

ENUNCIADA !

Postada em 25/07/2004 18:07 hs

peguei um exemplo de criar objetos em runtime

Private WithEvents TextObj As TextBox

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

Set btnObj = Controls.Add("VB.TextBox", "TextObj")

TextObj.Visible = True
textObj.text = Form1.List1.text
TextObj.Top = Y
textObj.Left = X
End Sub

so q tenho q definir antes do Form_DragDrop o nome do campo, gostaria de fazer um campo com index, cada vez q adicionace um textBox, ele criaria um index automatico

mas nao consegui

como posso fazer

Não sei muito, mas o pouco que sei passo para outras pessoas.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR