السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع الاول الخاص بأكواد الادوات
'1- انشاء اداة التيكست بوكس اثناء زمن التشغيل
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim textBox1 As New TextBox()
textBox1.Size = New Size(101, 9)
textBox1.Location = New Point(89, 81)
Me.Controls.Add(textBox1)
End Sub
End Class
'1- انشاء اداة التيكست بوكس اثناء زمن التشغيل
'2- تحريك اداة تيكست اثناء زمن التشغيل
كود PHP:
Public Class Form1
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
TextBox1.Capture = False
Dim msg As Message = Message.Create _
(TextBox1.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
End Class
'2- تحريك اداة تيكست اثناء زمن التشغيل
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة sawsanmahmoud
