الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لدي مجموعة أكواد ! ممكن شرح معناها؟؟

بدأه angel-jed في 31 يناير 2009 · 1 رد · 709 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

Region " Windows Form Designer generated code "

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

InitializeComponent

MyBase.Dispose(disposing)

Me.GroupBox2.Controls.Add(Me.TextBox8)

Me.Button1.UseVisualStyleBackColor = False

Me.TopMost = True

Me.GroupBox1.ResumeLayout(False)

Me.GroupBox1.PerformLayout()

<System.Diagnostics.DebuggerStepThrough()>

Dim resources As System.ComponentModel.ComponentResourceManager

cmd.CommandText = "select top 1 id from Personal order by id desc"

da = cmd.ExecuteReader

addtostatic()

addtodynamic()

cmd.ExecuteNonQuery()

Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Horizontal

connec()

fillresult()

Dim resources As System.ComponentModel.ComponentResourceManager

= New System.ComponentModel.ComponentResourceManager(GetType(Form7))

Me.MenuItem10.Index = 0

Me.ToolTip1.SetToolTip(Me.PictureBox6, "البحث في معلومات المرضى للدفع")

CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()

Dim oCommandBuilder As New OleDb.OleDbCommandBuilder(adapt)

Me.DataGrid1.PreferredColumnWidth = 100

ReDim Preserve darray(i)

ReDim Preserve Carry(i)

ReDim Preserve Sarray(i)

#2
ReDim Preserve darray(i)

ReDim Preserve Carry(i)

ReDim Preserve Sarray(i)

لإعــــآدهـ تحجيم مصفوفه نستخدم ReDim و للحفــآظ على القيـم المدخله مسبقاً نستخدم Preserve ..

و يمكننآ إعآدهـ التحجيم بدون المحآفظه على القيم نستخــدم ReDim فقـــــط ..

..

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 1 فبراير 2009 في 22:43

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

مواضيع مشابهة