Ir para conteúdo
Fórum Script Brasil

RD12

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Sobre RD12

RD12's Achievements

0

Reputação

  1. Gente quando vou adicionar o componente winsock, aparece, local do arquivo não encontrado... Mas eu nem mudei o local. Como faço pro local ser o normal, acho q é system 32
  2. RD12

    Ajuda com Evento Click

    alguém me ajuda? já tentei usar o mouseDown e Mouse Up e o Mouse Move, mas não da, quando passo o mouse clicado em cima da picture, nada acontece. Eu criei 2 var: Dim Mapeando as boolean, e no mouse down, coloquei if button = vbLeftButton then Mapeando = true, e no mouse up coloquei if button = vbLeftButton then Mapeando = false, e no mouse move da picture, onde eu quero que quando passe o mouse clicado em cima, aconteça algo, coloquei if Mapeando = true then '....Código..., mas nada acontece.
  3. Não estou conseguindo fazer para que quando segure o botão esquerdo do mouse, e passar por cima de umas imagens, aconteça o código escrito. Só consigo fazer com Clique, ai teria que ficar clicando, clicando... Alguém por favor me ajuda? Agradeceria muito.
  4. Danleonhart Muito obrigado cara, você me ajudou muito vlw mesmo :D, nem sei como agradecer. Te devo uma. :D
  5. Vou tentar explicar o melhor possível, quero fazer isso: vai ter várias pictures de um lado esquerdo, vários quadradinhos, ai do outro lado direito vai ter outros vários quadradinhos. Os quad do lado esquerdo vão ter uma picture, os do lado direito vao ser em branco, quero que quando clique em um quadradinho do lado esquerdo, e clique em um do lado direito, o do lado direito fique com a mesma imagem do quadrado escolhido, é como se fosse um sistema de desenhar, de mapear. eu estou fazendo desse geito: Criei uma variavel global com o nome Tile ( Dim Tile As String ) No codigo da picture quadrada da esquerda, a que eu escolho para colocar na direita, coloquei esse codigo: Tile = T1 agora, no codigo do quadrado da direita, q é uma picture sem imagem, coloquei esse codigo: If Tile = T1 Then M1.Picture = T1.Picture Mas tem vários quadradinhos da direita, intao eu ia ter q fazer mais um If Tile = T2 Then M1.Picture = T2.Picture, e outro... Queria fazer sem ter que usar um if para cada quadradinho, tipo M1.Picture = Tile.Picture, Tile seria a variavel com o valor do nome do quadradinho da esquerda, por exemplo T1, T2.. ai eu iria precisar só colocar no codigo dos quad da esquerda Tile = T1, Tile = T2. ai o quadrad da direita iria ficar igual a variavel.picture. Por favor me ajudem se não intenderam dizem ai. Obrigado por lerem. :rolleyes:
×
×
  • Criar Novo...