Mover Imagem No Picturebox

[Lucas Phillip]

Olá

bom, eu to fazendo uma especie de visualizador de imagens, só q eu quero q o picture box fique com um tamanho definido... só q quando a imagem é maior do q ele, ela fica cortada...

ai eu queria saber como eu faço pra imagem mover quando as setas do teclado forem precionadas, para q o resto da imagem seja visualizada?

vlw

[Graymalkin]

Já fiz isso uma vez e foi da seguinte maneira: utilizando o método PaintPicture você tem como copiar o pedaço de uma picturebox para outra, então a idéia é guardar a imagem toda em uma picturebox do tamanho da própria e depois só copiar a parte que deseja ser visualizada para outra picturebox.

Abraços,

Graymalkin

[Lucas Phillip]

ae, eu tentei fazer o q você falou, e ta quase funcionando

olha como fico

    Select Case KeyCode
        Case vbKeyLeft
            mapa.PaintPicture nmap.Picture1, Y, Z, , , Y - 100
        Case vbKeyRight
            mapa.PaintPicture nmap.Picture1, Y, Z, , , Y + 100
        Case vbKeyUp
            mapa.PaintPicture nmap.Picture1, Y, Z, , , , Z - 100
        Case vbKeyDown
            mapa.PaintPicture nmap.Picture1, Y, Z, , , , Z + 100
    End Select

o problema é q por algum motivo, só da pra clica 1 vez pra cada lado, depois não adianta mais clicar

como eu arrumo isso?

vlw

edit:

ah, tem outro problema tb... quando eu ponho pra cima, depois ponho pra esquerda, ao invés da imagem ir pra cima e depois pra esquerda, ela vai pra cima depois na diagonal pra baixo e esquerda... isso acontece em todas as direções

[Graymalkin]

Quanto ao primeiro problema, note que você ou soma 100 ou diminui 100. Deveria haver uma multiplicação ali, ou seja, 100*1 para a 1ª vez, 100*2 para a 2ª vez, 100*3 para a 3º e assim por diante. O mesmo vale para a subtração.

Abraços,

Graymalkin

[Lucas Phillip]

ae... deu certo mas acabo q eu fiz um poco diferente do que você falo...

fico assim:

Select Case KeyCode
        Case vbKeyLeft
            load_player
            Plado = Plado + 100
            mapa.PaintPicture nmap.Picture1.Picture, C + Plado, V + Pcima
        Case vbKeyRight
            load_player
            Plado = Plado - 100
            mapa.PaintPicture nmap.Picture1.Picture, C + Plado, V + Pcima
        Case vbKeyUp
            load_player
            Pcima = Pcima + 100
            mapa.PaintPicture nmap.Picture1.Picture, C + Plado, V + Pcima
        Case vbKeyDown
            load_player
            Pcima = Pcima - 100
            mapa.PaintPicture nmap.Picture1.Picture, C + Plado, V + Pcima
    End Select

vlw!!

[Lucas Phillip]

aew, só me tira mais uma duvida...

quando a imagem é carregada, a parte q aparece no picturebox e a parte de cima e mais a esquerda da imagem...

como eu faço pra carregar o meio da imagem, ao invés do canto superior a esquerda?

(fico meio esquisita a explicação , mas acho q da pra entender )

vlw

[Graymalkin]

Acho que entendi, mas para isso você teria que usar o PaintPicture (ou a API Bitblt) e estabelecer a posição no meio.

Certo?

Graymalkin

[Lucas Phillip]

bom... eu nunca tinha usado bitblt antes... ai dei uma pesquisada pra ver se aprendia e tal, mas acho q não deu mt certo não... sera q não dava pra você me dar um exemplo usando bitblt? isso facilitaria mt pra mim aprender como usar

vlw!

[Graymalkin]

bom... eu nunca tinha usado bitblt antes... ai dei uma pesquisada pra ver se aprendia e tal, mas acho q não deu mt certo não... sera q não dava pra você me dar um exemplo usando bitblt? isso facilitaria mt pra mim aprender como usar

vlw!

Ok, vou ver se consigo e depois te dou um retorno.

Abraços,

Graymalkin

[Graymalkin]

Dê uma olhada no exemplo: http://www.graymalkin.globalhosts.com.br/stuff/Bitblt.zip

Abraços,

Graymalkin

[Lucas Phillip]

nossa.... cara... você sabe q eu te amo ne?

fiz umas pequenas modificações só pra fica do jeitim q eu queria e ta perfeito agora

vlw!

[ramon]

nossa.... cara... você sabe q eu te amo ne?

vlw!

Que papo chato este hein

[Graymalkin]

nossa.... cara... você sabe q eu te amo ne? 

vlw!

Que papo chato este hein

Hehehehe... .

Abraços,

Graymalkin