الحاق متن و تصویر در VB

[soleil]

سلام یه سوال داشتم.
چطور میشه در ویژوال بیسیک ، یک متن رو با تصویر الحاق کرد به این صورت که یه برچسب دارم که روی یک جعبه تصویر قرار گرفته میخوام این تصویر رو جوری ذخیره کنم که متن روی برچسب هم با آن ذخیره بشه و وقتی تصویر ذخیره شده را باز میکنم متن برچسب روی تصویر ذخیره شده باشه.

[yasin_d]

روشی که فعلا به ذهنم می رسه اینکه محدوده pic_box و label رو به صورت یک عکس ذخیره کنی.
این عمل در دلفی با تابع canvas انجام میشه ولی توی VB نمی دونم.

دوستانی که VB یاد دارند معادل Canvas در VB چی هست؟

[rezazd]

سلام یه سوال داشتم.
چطور میشه در ویژوال بیسیک ، یک متن رو با تصویر الحاق کرد به این صورت که یه برچسب دارم که روی یک جعبه تصویر قرار گرفته میخوام این تصویر رو جوری ذخیره کنم که متن روی برچسب هم با آن ذخیره بشه و وقتی تصویر ذخیره شده را باز میکنم متن برچسب روی تصویر ذخیره شده باشه.:(
ببینید یه داستانی توی ویندوز داریم به اسم GDI تمام این مسایل را ساپورت میکند

برای نوشتن یک متن روی تصویر باید روی Canvas ان تصویر از تابع TextOut استفاده کنید

اینهم نمونه اش به سی


// Obtain the window's client rectangle
GetClientRect(hwnd, &r); // THE FIX: by setting the background mode
// to transparent, the region is the text itself //
SetBkMode(hdc, TRANSPARENT);
// Bracket begin a path
BeginPath(hdc); // Send some text out into the world
TCHAR text[ ] = "Defenestration can be hazardous";
TextOut(hdc,r.left,r.top,text, ARRAYSIZE(text)); // Bracket end a path
EndPath(hdc); // Derive a region from that path
SelectClipPath(hdc, RGN_AND); // This generates the same result as
SelectClipPath() //
SelectClipRgn(hdc, PathToRegion(hdc)); // Fill the region with grayness
FillRect(hdc, &r, GetStockObject(GRAY_BRUSH));

نمونه به بیسیک دات نت


Public Sub DrawString()
Dim formGraphics As System.Drawing.Graphics = Me.CreateGraphics()
Dim drawString As String = "Sample Text"
Dim drawFont As New System.Drawing.Font("Arial", 16)
Dim drawBrush As New _
System.Drawing.SolidBrush(System.Drawing.Color.Bla ck)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawFormat As New System.Drawing.StringFormat
formGraphics.DrawString(drawString, drawFont, drawBrush, _
x, y, drawFormat)
drawFont.Dispose()
drawBrush.Dispose()
formGraphics.Dispose()
End Sub

ببخشید نمی دونم چطوری توی این فرم ها میشه راست نویس چپ نویس توام داشت که کد ها بهم نخورد
یکی دیگه


Private Sub RenderText1(ByVal e As PaintEventArgs)
TextRenderer.DrawText(e.Graphics, "Regular Text", _
Me.Font, New Point(10, 10), SystemColors.ControlText)
End Sub

[abc_ramak]

ببخشید نمی دونم چطوری توی این فرم ها میشه راست نویس چپ نویس توام داشت که کد ها بهم نخورد
End Sub
می تونین از علامت # استفاده کنین و کد ها رو بین تگ <code> بنویسین
ممنون به خاطر اطلاعات خوبتون، استفاده کردیم :gol:

[rezazd]

می تونین از علامت # استفاده کنین و کد ها رو بین تگ <code> بنویسین
ممنون به خاطر اطلاعات خوبتون، استفاده کردیم :gol:

مرسی از راهنمایی شما ولی مثل اینکه در ویراش درست کار نمیکه

[abc_ramak]

چرا الان که پست قبلیتون درست شده :razz: