Mover objetos (botões) no form
24/04/2007
0
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?
Zeh
Posts
06/09/2007
Léu
Se for o que entendi.
Coloque o código no evento MouseMove do Butão.
VB 6
If Button = 1 Then
SeuButão.Left = SeuButão.Left + X
SeuButão.Top = SeuButão.Top + Y
End If
VB 2005
Dim 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
07/04/2008
Tzapquiel
07/04/2008
Groove
banco de dados
arquivo de texto ou xml (heheh)
chave de registro
cada um deles é um modo diferente
07/04/2008
Tzapquiel
08/04/2008
Groove
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
08/04/2008
Groove
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)
08/04/2008
Groove
MontaXML><Horizontal>20</Horizontal><Vertical>30</Vertical></MontaXML>
File.Delete(NomeArquivoXML)
Dim oFil As FileStream = New FileStream(NomeArquivoXML, FileMode.Append, FileAccess.Write)
desculpe mas como aqui naum podemos editar tive q postar novamente
o exemplo certo seria assim
<MontaXML><Horizontal>20</Horizontal><Vertical>30</Vertical></MontaXML> <MontaXML><Horizontal>30</Horizontal><Vertical>50</Vertical></MontaXML> <MontaXML><Horizontal>60</Horizontal><Vertical>20</Vertical></MontaXML> <MontaXML><Horizontal>40</Horizontal><Vertical>70</Vertical></MontaXML>
08/04/2008
Tzapquiel
legal 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 ?
Clique aqui para fazer login e interagir na Comunidade :)