If (option1.value-true) then
يطلع لي تحت كلمة option1 خط احمر وهالكلمه تستعمل في 6 شنو البديل عنها في 5
وإذا مآعليكم امر الي يعرف يحول الشيفره كلها فيجول بيسك 5 اكون شاكره لكم
[ تمت الإجابة ]تحويل شيفره من فيجول 6 الي فيجول بيسك 2005
نفس المشكله اخوي يطلع Option1 خط احمر
مرحباً .
عليك إضافة ( PictureBox, RadioButton, (2)TextBox ) الى الـ Form1
PictureBox1, RadioButton1, TextBox1, TonTextBox
إذا كان TonTextBox متغير نصي, عليك استبدال ( TonTextBox.Text ) بـ ( TonTextBox ) وتصريح المتغير, أي ( Dim TonTextBox As String )ز
Private Sub PictureBox1_Click(Byval Sender As System.Object, Byval E AS System.EventArgs ) Handles PictureBox1.Click
If RadioButton1.Checked Then
TextBox1.Text = "
"
Else
TextBox1.Text = ""
End If
With My.Computer.Clipboard
.SetText(TextBox1.Text, TextDataFormat.Text)
If Not .GetText(TextDataFormat.Text) = String.Empty Then TonTextBox.Text = .GetText()
End With
End Sub
تحياتي BasharVS .
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
Bashar Rabat
مشكـــــــوور أخوي يعطيـــــــــــــــــــك العآفيه ضبط معي
الله يسعـــــــــــدك دنيآ وآخرره