تشکر از _H2_ , عدد فارسی و shape در vb2008

از کاربر _H2_ برای راهنمایی هاشون تشکر می کنم . بالاخره اون ساعت آنالوگ رو درست کردم .دیگه زحمت نکشید
راهنماییتون کافی بود
یک لیبل روی فرم داریم .فرمی که پس زمینه ندارد و از زیر آن تمام تصاویر دیده می شود و از فرم فقط همان لیبل دیده می شود که رنگ
ForeColor لیبل سیاه است وقتی که فرم روی دسکتاپ هست و عکس پس زمینه ی دسکتاپ روشن است لیبل به خوبی دیده می شود ولی به محض اینکه عکس پس زمینه ی دسکتاپ رنگ تیره و یا سیاه قرار گیرد .دیگه نمیشه لیبل رو دید . میخوام ببینم راهی برای حل این مشکل وجود داره
میخوام وقتی دستور زیر رو توی یک دکمه قرار میدم
Label1.Text=10
عدد 10 که در لیبل چاپ میشه به صورت عدد فارسی باشه .نه به حروف فارسی مثلا عدد دو رو به 2 فارسی نشون بده.
در ویبی 6 چیزی به نام shape وجود داشت که میشد باهاش دایره درست کرد و دور یک لیبل قرار داد .من میخوام یه چنین کاری رو توی
وی بی 2008 انجام بدم .میشه راهنمایی ام کنید . می خوام دور یک لیبل که مثلا عدد 20 در آن نوشته شده است رو یک دایره قرار قرار بدم
ویا یم مستطیل. وقتی BorderStyle لییبل رو برابر مقدار FixedSingle قرار میدهیم .یه چیزی مثل همون


خواهشا جواب ها در ویبی 2008 باشه


جواب سوال عدد فارسی رو پیدا کردم .ممنون میشم که علاوه بر سوالات بالا سوالات پایین رو هم جواب بدید.
سوالات مربوط به VB 2008 هست .
1- نحوه ی Always OnTop یک فرم و خارج کردن فرم از این حالت چه جوریه؟
2- حرکت دادن فرم با کلیک بر روی فرم یا یک لیبل مثلا فرم نوار ابزار بالایی رو که دکمه های خروج و مینیمایز روش هست رو نداره چه جوریه ؟
3- من میخوام یه برنامه تقویم درست کنم که فایل Xml می خوام که بتونم توش کار های زیر رو انجام بدم:
رخداد ها رو توش ثبت کنم . مثلا یک بخش باشه واسه 1 فروردین که اطلاعتی نظیر رخداد اون روز ، آدرس یک عکس ، یک بخش مربوط به اینکه روز تعطیل هست یا نه . و همین طور برای روز های دیگه و ماه های دیگه .
و یه پروژه می خوام که بتونه اطلاعات این فایل Xml رو بازیابی کنه و از توش بتونه جستجو کنه هم بر اساس روز و هم بر اساس رخداد
واینکه وقتی جستجو می کنم بتونم بفهمم که در روز 1 فروردین 2 رخداد ثبت شده و اگه خواستم رخداد ها رو جدا به من تحویل بده و اگه خواستم با هم.
ممنون میشم که هم فایل Xml رو بذارید و هم اون پروژه رو. می دونم درخواست زیادیه ولی چیکار کنم که بهش احتیاج دارم .
4- چه طور میشه فهمید چند روز به شروع سال جدید باقی مونده؟

سلام
این چند وقته کارم شده شرمنده دوستان شدن و عضر خواهی کردن ... !
میبخشید خیلی بد وقت خالی پیدا میکنم و نتوانستم زیاد انلاین باشم ...

نقل قول:

---

در ویبی 6 چیزی به نام shape وجود داشت که میشد باهاش دایره درست کرد و دور یک لیبل قرار داد .من میخوام یه چنین کاری رو توی
وی بی 2008 انجام بدم .میشه راهنمایی ام کنید . می خوام دور یک لیبل که مثلا عدد 20 در آن نوشته شده است رو یک دایره قرار قرار بدم
ویا یم مستطیل. وقتی BorderStyle لییبل رو برابر مقدار FixedSingle قرار میدهیم

---

مایکروسافت یک بسته نرم افزاری کنترلری به نام VisualBasicPowerPacks عرضه کرده که ان کنترلرهای قدیمی VB6 را برای VB.Net پیاده سازی میکند.
این بسته را میتوانید در زیر دانلود کنید:
go.microsoft.com/fwlink/?LinkID=108166

ولی من شخصاً استفاده نمیکنم و پیشنهاد هم نمیکنم.
دستورات گرافیکی دات نت بسیار قوی است و اصلاض با قابلیتهای گرافیکی VB6 قابل قیاس نیست.
شما به راحتی میتوانید اشکال مورد نیاز خودتان را مستقیماً ترسیم کنید ...
متن و اشکال دایره و خط و... و...
کافی است نحوه استفاده از System.Drawing.Graphics را بلد باشید.

نقل قول:

---

ForeColor لیبل سیاه است وقتی که فرم روی دسکتاپ هست و عکس پس زمینه ی دسکتاپ روشن است لیبل به خوبی دیده می شود ولی به محض اینکه عکس پس زمینه ی دسکتاپ رنگ تیره و یا سیاه قرار گیرد .دیگه نمیشه لیبل رو دید . میخوام ببینم راهی برای حل این مشکل وجود داره

---

درست یادم نیست ولی گمانم یکبار دیگر هم پرسیده بودید ...
این را هم میتوانید با همان دستورات گرافیکی حل کنید و سعی کنید یک حاشیه هم به متنان بدهید تا تضمین کند همیشه از پسضمینه متمایز خواهد ماند.

نقل قول:

---

- نحوه ی Always OnTop یک فرم و خارج کردن فرم از این حالت چه جوریه؟

---

TopMost = True/False

نقل قول:

---

2- حرکت دادن فرم با کلیک بر روی فرم یا یک لیبل مثلا فرم نوار ابزار بالایی رو که دکمه های خروج و مینیمایز روش هست رو نداره چه جوریه ؟

---

در همان مثال ساعت عقربه ای که دانلود کردید یک نمونه کد ساده بود.
ولی کد خوب و مناسب این کار چنین است:

کد:

---

Private Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

Private Declare Function ReleaseCapture Lib "user32.dll" () As Boolean

Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs ...
    If (e.Button = System.Windows.Forms.MouseButtons.Left) Then
          ReleaseCapture()
          SendMessageW(Handle, 161, New IntPtr(2), IntPtr.Zero)
    End If
End Sub

---

نقل قول:

---

- من میخوام یه برنامه تقویم درست کنم که فایل Xml می خوام که بتونم توش کار های زیر رو انجام بدم:
رخداد ها رو توش ثبت کنم . مثلا یک بخش باشه واسه 1 فروردین که اطلاعتی نظیر رخداد اون روز ، آدرس یک عکس ، یک بخش مربوط به اینکه روز تعطیل هست یا نه . و همین طور برای روز های دیگه و ماه های دیگه .
و یه پروژه می خوام که بتونه اطلاعات این فایل Xml رو بازیابی کنه و از توش بتونه جستجو کنه هم بر اساس روز و هم بر اساس رخداد
واینکه وقتی جستجو می کنم بتونم بفهمم که در روز 1 فروردین 2 رخداد ثبت شده و اگه خواستم رخداد ها رو جدا به من تحویل بده و اگه خواستم با هم.
ممنون میشم که هم فایل Xml رو بذارید و هم اون پروژه رو. می دونم درخواست زیادیه ولی چیکار کنم که بهش احتیاج دارم .

---

میبخشید ولی این سوالتان خودش یک برنامه است و با شرمندگی بسیار فرصت کافی برای کمک در این مورد را ندارم, البته شاید دوستان دیگر بتوانند کمک کنند.

نقل قول:

---

4- چه طور میشه فهمید چند روز به شروع سال جدید باقی مونده؟

---

کد:

---

Public Function GetDaysFronNewYear(ByVal dt As Date) As Integer
    Dim cal As New System.Globalization.PersianCalendar()
    Return cal.GetDaysInYear(cal.GetYear(dt)) - cal.GetDayOfYear(dt) + 1
End Function
یا
Public Function GetDaysFronNewYear(ByVal year As Integer, ByVal month As Integer, ByVal day As Integer) As Integer
    Dim cal As New System.Globalization.PersianCalendar()
    Return cal.GetDaysInYear(year) - cal.GetDayOfYear(cal.ToDateTime(year, month, day, 0, 0, 0, 0)) + 1
End Function

---

کد فوق با احتصاب سال های کبیسه هم صحیح کار میکند.
فقط بهتر است متغیر cal یکبار در سطح کلاس تعریف شود و هر بار در توابع فوق new نشود.

=====

موفق باشید و شب بخیر.