none
自定义lab的底图 RRS feed

  • 问题


  •         OpenFileDialog1.Filter = "png文件 (*.png)|*.png" & "|所有文件 (*.*)|*.*"
            If OpenFileDialog1.ShowDialog = DialogResult.OK Then
                PictureBox1.ImageLocation = OpenFileDialog1.FileName
                Form1.Label1.Image = PictureBox1.Image
            End If
    好像不行~
    2010年8月18日 8:53

答案

  • 你好

     

    或者你可以嘗試以下的CODE

     OpenFileDialog1.Filter = "png文件 (*.png)|*.png" & "|所有文件 (*.*)|*.*"

            If OpenFileDialog1.ShowDialog = DialogResult.OK Then
    Dim i As Image
     i = Image.FromFile(OpenFileDialog1.FileName)

            Label1.Image = i
            End If
    Please correct me if my concept is wrong





    Chi
    • 已标记为答案 酷.睿 2010年8月18日 9:19
    2010年8月18日 9:05
    版主

全部回复