Mover objetos (bot�es) no form

Question

Salve!!! Estou fazendo meu projeto final para a faculdade, e em uma das aplica��es, precisarei que o usu�rio possa alterar a posi��o dos bot�es. Como fazer isso?...

L�u · Answer

Ol�,Se for o que entendi.Coloque o c�digo no evento MouseMove do But�o.VB 6If Button = 1 ThenSeuBut�o.Left = SeuBut�o.Left + XSeuBut�o.Top = SeuBut�o.Top + YEnd IfVB 2005Dim X, Y As Single        X = e.Location.X        Y = e.Location.Y        If e.Button = Windows.Forms.MouseButtons.Left Then            SeuBut�o.Left = SeuBut�o.Left + X            SeuBut�o.Top = SeuBut�o.Top + Y        End If...

Tzapquiel · Answer

Adorei o codigo mas gostaria de saber como salvo a posi��o do bot�o pra quando abrir denovo o programa?...

Groove · Answer

depende de onde quer que seja salvo essas configura��esbanco de dadosarquivo de texto ou xml (heheh)chave de registrocada um deles � um modo diferente...

Tzapquiel · Answer

gostaria de salvar no xml assim o programa pode carregar a posi��o na hora que abre  :lol:...

Groove · Answer

primeiramente fiz em c# funcionou blz, gravando o XML na raiz C:, depois fiz VBnet mas precisa testar pra ve se funciona legal

Private Function MontaXML(ByVal X As Integer, ByVal y As Integer) As String
        �estancia a variavel para escrever o xml
        Dim stringbuilder As StringBuilder = New StringBuilder
        � ESCREVE O XML 
        stringbuilder.Append("<MontaXML>")
        stringbuilder.Append(("<Horizontal>"  _
                        + (X + "</Horizontal>")))
        stringbuilder.Append(("<Vertical>"  _
                        + (y + "</Vertical>")))
        stringbuilder.Append("</MontaXML>")
        � RETORNA UMA STRING NO FORMATO XML 
        Return stringbuilder.ToString
    End Function
    
    Private Sub GravaXML()
        Dim NomeArquivoXML As String = "c:\\ConfiguraPosicaoBotao.xml"
        �aqui passei valores ficticios no qual ser� passa a posicao atual q est� o bot�o
        Dim XML As String = MontaXML(20, 20).ToString
        �estanciando a variavel oFile pedindo permiss�o para gravar no arquivo
        Dim oFil As FileStream = New FileStream(NomeArquivoXML, FileMode.Append, FileAccess.Write)
        �estanciando a variavel oWriter
        Dim oWrite As StreamWriter = New StreamWriter(oFil)
        �escrevento no arquivo
        oWrite.WriteLine(XML)
        �fechando
        oWrite.Close
        oFil.Close
    End Sub

n�o deixe de responder se funcionou!!!

Valew

Tomara eu ter ajudado

Groove · Answer

Alias o codigo acima vc vai incluido uma linha ( ou melhor uma configura��o abaixo da outra como um texto)
exemplo:

MontaXML><Horizontal>20</Horizontal><Vertical>30</Vertical></MontaXML>

para q isso n�o aconte�a um modo r�pido de fazer e excluir o arquivo pois ele cria outro automaticamente, basta inserir a linha

File.Delete(NomeArquivoXML)

antes da linha

Dim oFil As FileStream = New FileStream(NomeArquivoXML, FileMode.Append, FileAccess.Write)

Groove · Answer

[quote:f225557162=�GROOVE�]Alias o codigo acima vc vai incluido uma linha ( ou melhor uma configura��o abaixo da outra como um texto) exemplo:[code:1:f225557162]MontaXML>2030[/code:1:f225557162]para q isso n�o aconte�a um modo r�pido de fazer e excluir o arquivo pois ele cria outro automaticamente, basta inserir a linha [code:1:f225557162]File.Delete(NomeArquivoXML)[/code:1:f225557162]antes da linha[code:1:f225557162]Dim oFil As FileStream = New FileStream(NomeArquivoXML, FileMode.Append, FileAccess.Write)[/code:1:f225557162][/quote:f225557162]desculpe mas como aqui naum podemos editar tive q postar novamenteo exemplo certo seria assim[code:1:f225557162]2030305060204070[/code:1:f225557162]...

Tzapquiel · Answer

mano vc � o cara mesmo!! hehehelegal olha eu vou fazer alguns testes pra ver mas na primeira tentativa funfou legal mano!!vc n�o quer me ajudar com o outro topico de exibir os icones de uma pasta ?...

F�rum Mover objetos (bot�es) no form #19721