Jump to content
leo2012

[Resolvido] como capturar dimensoes de uma imagem?

Recommended Posts

leo2012

Eu abro uma imagem,e mostra em um textbox,a localização dela,ai como eu faço pra pegar tambem a largura e a altura,e mostrar isso em outros dois textbox ?

Tentei assim,mas só mostra o tamanho do arquivo,no total,e nao as dimensoes (altura e largura)

Dim information As System.IO.FileInfo
    information = My.Computer.FileSystem.GetFileInfo(TextBox1.Text)
    TextBox2.Text = (information.Length)

Share this post


Link to post
Share on other sites
renafi
Dim imagem as new Bitmap("localização do ficheiro")
textbox1.text = imagem.Width
textbox2.text = imagem.Height


Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist

Share this post


Link to post
Share on other sites
thoga31

Carregando a imagem numa variável do tipo Image ou Bitmap, poderás obter os valores Height e Width. ;)


Knowledge is free!

Share this post


Link to post
Share on other sites
leo2012

valeu cara,muito obrigado mesmo. Olha,esse site tem me ajudado muito,todos aqui são muito inteligentes.

Eu so estava com um problema,quando tentei inserir esse código,pra colocar os valores em um numeric up,pois ele tinha um limite,era 100,ai fui mechendo e vi qe era so colocar NumeriUp.maximum = 200 ,ou quanto eu precisasse a mais,muito obrigado

Share this post


Link to post
Share on other sites
leo2012

Sim,obrigado,o código ficou assim :

OpenFileDialog1.ShowDialog()
 TextBox1.Text = OpenFileDialog1.FileName
 NumericUpDown1.Maximum = 1000
 NumericUpDown2.Maximum = 1000
 Dim imagem As New Bitmap(TextBox1.Text)
 NumericUpDown1.Value = imagem.Height
 NumericUpDown2.Value = imagem.Width

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.