موقع حسن دشتي

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

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

Share on Facebook

كود لعمل 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

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

Share on Facebook