مشکل AutoSize [بایگانی] - برنامه نویس

hosein320

سه شنبه 24 بهمن 1391, 19:55 عصر

سلام یه برنامه نوشتم که وقتی به یه کارکتر خاص رسید یه عکس لود کنه
الان یه مشکل داره
من خاصیتAutoSize رو مساوی true قرار دادم
ولی همه عکسا طول و عرضشون یکسان میشه :ناراحت:
{Width=100, Height=50}

xxnagin

سه شنبه 24 بهمن 1391, 20:02 عصر

سلام
منظورتون چیه
بیشتر توضیح بده

hosein320

سه شنبه 24 بهمن 1391, 20:03 عصر

این سرس برنامه (http://s2.picofile.com/file/7655029993/Test_UserControl.rar.html)

hosein320

سه شنبه 24 بهمن 1391, 20:51 عصر

کسی نمیتونه کمک کنه:ناراحت:

xxnagin

سه شنبه 24 بهمن 1391, 22:37 عصر

شما اگه از خاصیت image استفاده میکردی درست نشون میداد
در ضمن شما در قسمت زیر
Public Sub CreatPicture(ByVal xp As Integer, ByVal yp As Integer)
اصلا این دو xp,yp را چجوری حسابش کردی و تو send ازش استفاده کردی
اینم کدت برای جایگزینی

Public Sub CreatPicture(ByVal xp As Integer, ByVal yp As Integer)
Dim pic As New PictureBox
pic.SizeMode = PictureBoxSizeMode.AutoSize
pic.Image = Image.FromFile(UPic)
pic.BackColor = Color.Transparent
pic.Left = x
t2.Text += x.ToString + ","
xp = pic.Size.Width
yp = pic.Size.Height
Dim s As New Size(xp, yp)
t3.Text += s.ToString + ","
'MsgBox("pic", x)
x += pic.Width
'MsgBox(x)
pic.Top = 10
Me.Controls.Add(pic)
End Sub