سلام
میخوام رشته ای از نوع استرینگ ایجاد کنم که علاوه بر نوشته های معمولی حاوی خط کسری ، صورت و مخرج هم باشه
میخوام پاسش بدم به کامپوننتی خارج از محیط برنامم
چیزی شبیه به این
سلام
میخوام رشته ای از نوع استرینگ ایجاد کنم که علاوه بر نوشته های معمولی حاوی خط کسری ، صورت و مخرج هم باشه
میخوام پاسش بدم به کامپوننتی خارج از محیط برنامم
چیزی شبیه به این
در واقع شما میخواین جاهایی که تقسیم هست رو مشخص کنید و اونارو جا کرده و پاس بدین درسته ؟ خب در این صورت میتونید ی علامتی رو برا خودتون برا تقسم در نظر بگیرید که احتمال اینکه تو رشته بخواد از اون علامت در جاهای دیگه استفاده بشه وجود نداشته باشه و بعد بر اساس اون مقادیر مورد نظر رو جدا کنید از / که نمیشه استفاده کرد چون استفاده های دیگه هم داره ی چیزی ترکیبی میتونید در نظر بگیرید مثل &/ و یا $/ یا هر چیز دیگه
این سکوت یعنی تایید این مطلب که دات نت نمی تونه اینجور خروجی تولید کنه ؟!!
یه چیزی تو همین مایه ها...
بگرد شاید کامپوننت باشه واسه این کار چون لیبل و تکست باکس و حتی richtextbox هم جواب نداد حتی کاراکتر "∜"رو هم نمیتونن نگه دارن اگه کامپوننت پیدا کردی بزار همینجا ما هم بهره ببریم...
بهتره اون جاهایی که میخوای از عکس استفاده کنی یا از این فونت های ریاضی...(ازینا که مثلا مینویسی "A" نشون میده "≤")
برای نمایش یا ارسال میتونی از کد هگزشون استفاده کنی:
http://www.javascripter.net/faq/mathsymbols.htm
ولی مشکل همون خط کسریه که میخواین اونو نمیشه در اورد...شاید دوستان راهی بلد باشن(من سعی کردم اما نشد)
با سلام
دوست عزیز حتما باید بصورت متنی باشه؟؟؟ اگر بصورت ایمج قبول داری من با وی بی دات پیاده سازیش کردم (گفتم شاید برای گزارشگیری بخوای بدردت بخوره)
اینم یک ایده هست البته سعی کردم کدها رو یکم ساده بنویسم
566.jpg
Dim Text1 As String = TextBox1.Text
Dim Text2 As String = TextBox2.Text
Dim FontColor As Color = Color.Black
Dim BackColor As Color = Color.White
Dim FontName As String = "b nazanin"
Dim FontSize As Integer = 16
Dim Height As Integer = 70
Dim Width As Integer = 300
Dim FileName As String = "MyImage"
Dim objBitmap As New Bitmap(Width, Height)
Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)
Dim objColor As Color
Dim objFont As New Font(FontName, FontSize)
Dim objPoint As New PointF(8.0F, 5.0F)
Dim objPoint2 As New PointF(8.0F, 30.0F)
Dim objBrushForeColor As New SolidBrush(FontColor)
Dim objBrushBackColor As New SolidBrush(BackColor)
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
objGraphics.DrawString(Text1, objFont, objBrushForeColor, objPoint)
objGraphics.DrawString(Text2, objFont, objBrushForeColor, objPoint2)
Dim p1 As New Point(5, 32)
Dim p2 As New Point(80, 32)
objGraphics.DrawLine(Pens.Black, p1, p2)
objBitmap.Save(Application.StartupPath & FileName & ".JPG", ImageFormat.Jpeg)
PictureBox1.Load(Application.StartupPath & FileName & ".JPG")
آخرین ویرایش به وسیله shahryari : پنج شنبه 07 شهریور 1392 در 12:22 عصر
سلام
واقعا ممنون بابت وقتی که گذاشتی
ظاهرا تنها راه باقیمونده همین پیشنهاد شماس
ببنید طول متن متغیره
آیا این مشکلی بوجود نمیاره؟
تشکر