Archive for VB.NET

التعامل مع GroupBox

GroupBox

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = “http://www.hasan-dashti.com”

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add(“http://www.hasan-dashti.com”)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
GroupBox1.Visible = True
GroupBox2.Visible = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
GroupBox2.Visible = True
GroupBox1.Visible = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

تحميل البرنامج

Comments

النسخ واللصق في .net

صورة البرنامج

كود لعمل copy لمحتويات textbox1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.SelectedText <> “” Then
Clipboard.SetDataObject(TextBox1.SelectedText)
Else
TextBox2.Text = “لا يوجد شيئ تم تحديده”

End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim hasan As IDataObject = Clipboard.GetDataObject()
If hasan.GetDataPresent(DataFormats.Text) Then
TextBox2.Text = CType(hasan.GetData(DataFormats.Text), String)
Else
TextBox2.Text = ” لا يوجد شيئ تم نسخة”

End If
End Sub
End Class

لتحميل البرنامج

Comments

5 visitors online now
5 guests, 0 members
Max visitors today: 5 at 06:39 am GMT
This month: 9 at 03-03-2010 06:06 pm GMT
This year: 10 at 02-02-2010 08:35 pm GMT
All time: 10 at 12-18-2009 11:08 pm GMT