Ir para conteúdo
Fórum Script Brasil

PedroBarreto

Membros
  • Total de itens

    216
  • Registro em

  • Última visita

Tudo que PedroBarreto postou

  1. PedroBarreto

    Image

    ou da uma aulinha de esse negosio de ajustar o lugar onde vai fika exemplo esse Image1.Top = Picture1.Top + Picture1.Height Image1.Left = Picture1.Left + Picture1.Width - Image1.Width da uma aulinha plisss
  2. é backcolor mesmo mais se voce quiser que a pessoa muda a cor do fundo voce abre o componente common dialog 6.0 troca o nome por "com" e fais assim: com.showcolor form1.backcolor = com.color
  3. PedroBarreto

    Image

    e tenho outra pergunta qual é o comando de altura e largura?
  4. PedroBarreto

    Image

    eu sei mais eu não sei calcular da uma dica niso por favor
  5. PedroBarreto

    Image

    olha pessoal eu quuero que cuando clique no botao a image6 fica em baixo no lado diteito fa picture1 tipo assim ____________________ | | | | | | | | | picture1 | | | | | | | |___________________ | ______ | | |image6| |_____ |
  6. cara é so pensar porque se o codigo for Private Sub Command1_Click() If Text1.Text = "oi" Then MsgBox "oi tudo bem?" Else MsgBox "Digite oi" End If End Sub se o cara colocar oi aprece a mensagem "oi tudo bem?" masi se não for oi aparece "Digite oi" agora é so pensa valeu
  7. PedroBarreto

    Texto

    velho não consegui nenhuma das duas coisa nem muda a cor e nem salvar, nma verdade salvar eu consegui mais ele não salva o texto em cima da imagem ajuda eu aew plisssssssss passa os codigos
  8. PedroBarreto

    Texto

    manu o negosio de salvar não da scerto olha: Private Sub Image4_Click() Com.FileName = "" 'Definir o filtro de tipos de arquivos Com.Filter = "Arquivo BMP |*.bmp" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Exportado!" Else MsgBox "O Arquivo Exportado é : " & Com.FileName 'Salva arquivo com nome que você criou na COM SavePicture Picture1.Image, (Com.FileName) End If End Sub e pra eu fasse para que o texto inserido na imagem seja da cor escolhida na palheta. oke tem de errado? Private Sub Image3_Click() Com.ShowColor Picture1.Print "teste" Picture1.Print Color = (Com.FileName) End Sub
  9. PedroBarreto

    Texto

    ae cara valeu mais ele não salva o bmp com o texto ve oque há de errado Private Sub Image4_Click() Com.FileName = "" 'Definir o filtro de tipos de arquivos Com.Filter = "Arquivo BMP |*.bmp" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Exportado!" Else MsgBox "O Arquivo Exportado é : " & Com.FileName 'Salva arquivo com nome que você criou na COM SavePicture Picture1.Image, Com.FileName End If End Sub e eu tambem quero sabe como fais para abrir a palheta de cor pelo common dialog
  10. PedroBarreto

    Texto

    como eu faço para que as pessoas possão escrever algo dentro da picture1 e quando salvar a imagem é salva com aquele texto em cima plisss me ajudem valeww
  11. e aquele negosio do defaltext eu acabei de coloca *.si mais ainda da erro ele fala que salva mais não salva ajuda eu ae por favor tem que se logo
  12. cara valeu mesmo mais eu ainda não consegui faze o negosso de ele fica no meio eu tentei mais não deu olha oque eu tentei Picture1.Top = Form1.Top + "1680" cara não precisa responde mais da uma dica pra en entende mais tem que se ate as 6:00 por favor valeu mesmo
  13. aew galera eu estou kom mais uma duvida... eu quero ke o programa abre um arquivo de imagem kualke mais salva komo .si oke tme de errado ? Private Sub Image1_Click() 'Definir o filtro de tipos de arquivos Com.Filter = "Pictures (*.bmp;*.ico)|*.bmp;*.ico|Todos (*.*)|*.*" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowOpen If Com.FileName = "" Then MsgBox "Nenhum Arquivo Selecionado !" Else MsgBox "O Arquivo Selecionado é : " & Com.FileName End If Picture1.Picture = LoadPicture(Com.FileName) End Sub Private Sub Image2_Click() 'Definir o filtro de tipos de arquivos Com.Filter = "*.si" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Salvo !" Else MsgBox "O Salvo é : " & Com.FileName End If End Sub valeu galera presiso de respostas rapidas
  14. komo eu faço pra que o picture1 tenha o mesmo tamanho da imagem aberta no showopen? e eu tambem quero saber como que fais para que o picture sempre fique no centro da tela independente o tamanho do form galera responde ate hj plissss
  15. aew agalera passa o kodigo plisss
  16. aew galera como eu faço pra que fike uma picture aberta no form a pessoa vai na lista a aperta na pasta dai a kada veis ke ela aperta avançar vai aparecenu as imagem no picturo uma a uma tem geito´ plis ´´e urgenteeee
×
×
  • Criar Novo...