BasharVS

مرحباً أخي الكريم : إنك كنت تقصد أنك تريد الـ StatusBar يعرض دائماً في نقطة مركز الفورم مع إعادة تحجيمه بالنسبة لخظ العرض, يمكنك تغير الخاصية الإفتراضية Dock = DockStyle.Bottom إلى Dock = DockStyle.None ومن ثم تغير الخاصية Anchor والتي تحوي في مربع تحريرها ( أ…

مرحباً أخي الكريم . يمكنك استخدام العملية ( DrawToBitmap ) ومن ثم إستخدام ( PrintDocument ) كالتالي : Imports System.Drawing.Printing Public Class Form1 Private WithEvents DocToPrint As New PrintDocument Dim Bmp As Bitmap Private Sub DocToPrint_PrintPage(ByVal…

تسلم الله يخليك ... واجبنا :D

مرحباً أخي الكريم . بدون Label ممكن لكن بدون Timer غير محبذ :S . المثال التالي يحتاج منك إضافة StatusBar إلى الـ Form1, أعلم أنك ستجد الكود طويل لكن صدقني كُل المحتوى لشكل منسق ( Graphics ) . Public Class Form1 Private WithEvents Timer1 As New Timers.Timer(900…

مرحياً أخي الكريم . استخدم الحدث ( AfterCheck ) أو ( BeforeCheck ) أي ( بعد أو قبل التحديد ) .. المثال التالي يظهر نص لـNode التي يتم نغيير حالتها إلى Checked = True : Private Sub TreeView1_AfterCheck(ByVal Sender As Object _ , ByVal E As System.Windows.Forms.…

I appreciated what you've done . Thanks :D Best Regards, BVS>

مرحباً أخي الكريم . أعتقد أن عليك ( فقط ) إستخدام : PictureBox1.Image = Nothing بدون الحاجز الشرطي ( If Not PictureBox1.Image Is Nothing Then ) . تحياتي BasharVS .

مرحباً أخي الكريم . DataGridView1.FirstDisplayedScrollingRowIndex = (DataGridView1.Rows.Count - 1) تحياتي BasharVS .

مرحباً أختي الكريمة . أعتقد أن http://www.webservicex.net يخولك إستخدام العديد من خدمات الـWeb كالتحويل بين العملات أو حالة الطقس, الخ... تحياتي BasharVS

مرحباً أخي الكريم . ببساطة يمكنك إستخدام : System.Diagnostics.Process.Start("C:\Boot.ini") أو System.Diagnostics.Process.Start("notepad.exe", "C:\boot.ini") لفتح مجلد ما : System.Diagnostics.Process.Start(Environment.GetFolderPath(Environment.SpecialFo lder.De…

مرحباً أخي الكريم . يمكن إستخدم PrintDocument من المكتبة System.Drawing.Printing مثال : Imports System.Drawing.Printing Public Class Form1 Private WithEvents DocToPrint As New PrintDocument Dim I As Integer = 0 Private Sub DocToPrint_PrintPage(ByVal Sender As …

مرحباً أخي الكريم . يمكن معرفة نوع كائن ما بإستخدام العملية ذات المرجع ( Type ) كالتالي : مثال : Public Class Form1 Private _MyObject As Object Private Sub Button1_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles Button1.Click _MyObjec…

What a perfect question ! > Can you please elaborate this scenario ?

أخي الكريم, عند تغير أي قيمة من خلية ما من التحكم DataGridView1 ينفجر الحدث CellValueChanged والذي يعني تغير قيمة خلية ما . لقد صرحنا أو اعتبرنا أن Cell هي جسم ما ( غير معلوم مانوعه ) As Object, وهذا الجسم عائد من العمود E.ColumnIndex والصف E.RowIndex . ملاحظة…

مرحباً أخي الكريم . هذا مثال عن كيفية عمل مستعرضات الصور, أرجو منك فهمه و إكماله : Private Sub BtnOpen( Byval Sender As System.Object, Byval E As System.EventARgs ) Handles Btn.Click Dim SupportedExtensions As String() = {"*.jpg", "*.bmp" , "*.png", "*.tiff", …

مرحباً أخي الكريم . إن حلك مثالي بشكل ما للغات برمجة أخرى . لكن ببساطة يمكنك إستخدام الحدث CellValueChanged كالتالي : Public Class Form1 Private WithEvents DGV As New DataGridView Private Sub DataGridView1_CellValueChanged( ByVal Sender As Object , ByVal E As …

مرحباً . يمكنك قراءة أسئلة الأعضاء . D:

أو بإستخدام نظام ( ARGB ) كالتالي : Label1.BackColor = Color.FromArgb(0, 255, 255, 255) BasharVS.

مرحباً أخي الكريم, لحساب عدد Nodes وتوابع كل واحدة منها عليك إستخدام حلقة تكرارية ( For Each, Next ) . Private Sub Button1_Click( Byval Sender As SYstem.OBject, Byval E As System.EventArgs ) Handles Button1.Click Dim Count As Integer TreeNodesCount( TreeView1,…

مرحباً أخي الكريم . السبب أنك تحاول تغييره برمجياً >>> صحيح ؟ حسناً, إليك الصف ( أعتذر عن قصر مراجعة هذه الامور ) . الأن يمكنك تحديد الهيئة التي تريد عرضها بـصندوق النص, مثال Format = "0000" أو Format = "0000000000000000000" علماً أنك قادر على تغيرها من المصمم…