PedroBarreto

Manu passa esse codigo para eu antes que eu quebro meu computadorr

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X Text2.Text = Y End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.CurrentX = X Picture1.CurrentY = Y End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text3.Text = X Text4.Text = Y Picture1.Line = (Text3.Text) - (Text1.Text) Picture1.Line = (Text5.Text) - (Text2.Text) End Sub Eu queria que ele criasce a linha mais não cria, da erro. alguém pode me ajuda? post ae

Ae galera se o Pset inicia um quadrado, qual finaliza os pontos?

Eu entendi Você primeiro de tudo tem que criar o text1 onde o cara inseriu o login dele depois voce cria o o form2 e nele você poem um text exeplo text2 Dai quando a pessoa clicar no botao logar acontece a seguinte açao... Private Sub Command1_Click() Form2.Show 'Abre o Form2 Form2.Text1.Text = Me.Text1.Text 'O texto do form2 sera igual ao do form1 ou seja o "me" End Sub Espero que posso ter te ajudado abraços Pedro Barreto

velho pasa o ccodigo por favor eu não consigoooooooooooooooooooo

bl tem sobre o pset no forum?

passa o codigo aeeeeeeee

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) For n = 0 To 20 picture1.PSet shape(n), y, x Next End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.CurrentX = X Picture1.CurrentY = Y End Sub Passei muito longe ou valeu a tentativa?

velho passa ocodigo vai

Como eu faço para que o cara desenhe um shape do tipo quadrado no meu picture1? eu não quero que voces passam o codigo e sim darem uma dica

Passei errado dinovo o certo é www.codigovb.com.br

Cara passei o meu site errado o certo é www.comdigovb.com.br ainda estamos em construçao

Cara usa o VB6 porque ele é mais simples para iniciantes ele é bem mais facil de mexer Abraços Pedro Barreto My Webpage

Cara responde ae por favor praciso muito disso

Explique melhor oque você qué

Private Sub Command1_Click() numeros = Int((10 * Rnd) + 1) ' O sortei sera entra 1 a 10 Text1.Text = numero 'no text1 ira aparecer os numero sorteados End Sub Abraços Pedro Barreto www.codigosvb.com.br Ta Em Construçao Ainda

cara passa ocodigo

passa aew velho

nem vi passa denovo

ta não precisa chinga mais passa o codigo para eu entende

ate hj não sei oque significa parametros e nem funcoes eu vo tudo no chute esplica aew

tentei isso mais eu sei que passei longe Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.Text = "" Then picture1.PaintPicture (image5.Picture x end y) End If End Sub

calma não sai daqui eu vo tenta daqui exatamente 3 min eu volto ok?

onde o cara clicou na picture 1 no programa tm tem o codigo: Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.CurrentX = X Picture1.CurrentY = Y End Sub

a posiçao que o cara clicar certo?