لوحة رقمية للطباعة بالغة الفرنسية برمجتها ب vb6

لوحة رقمية لطباعة بالغة الفرنسية برمجتها ب vb6

الرابط

سبحان الله
العظيم
Private Sub AA_Click()
Clipboard.Clear
Clipboard.SetText
(Text1.SelText)
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text =
Text1 + "a"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1 + "p"
End
Sub
Private Sub Command11_Click()
Text1.Text = Text1 + "q"
End
Sub
Private Sub Command12_Click()
Text1.Text = Text1 + "s"
End
Sub
Private Sub Command13_Click()
Text1.Text = Text1 + "d"
End
Sub
Private Sub Command14_Click()
Text1.Text = Text1 + "f"
End
Sub
Private Sub Command15_Click()
Text1.Text = Text1 + "g"
End
Sub
Private Sub Command16_Click()
Text1.Text = Text1 + "h"
End
Sub
Private Sub Command17_Click()
Text1.Text = Text1 + "j"
End
Sub
Private Sub Command18_Click()
Text1.Text = Text1 + "k"
End
Sub
Private Sub Command19_Click()
Text1.Text = Text1 + "l"
End
Sub
Private Sub Command2_Click()
Text1.Text = Text1 + "z"
End
Sub
Private Sub Command20_Click()
Text1.Text = Text1 + "m"
End
Sub
Private Sub Command21_Click()
Text1.Text = Text1 + "w"
End
Sub
Private Sub Command22_Click()
Text1.Text = Text1 + "x"
End
Sub
Private Sub Command23_Click()
Text1.Text = Text1 + "c"
End
Sub
Private Sub Command24_Click()
Text1.Text = Text1 + "v"
End
Sub
Private Sub Command25_Click()
Text1.Text = Text1 + "b"
End
Sub
Private Sub Command26_Click()
Text1.Text = Text1 + "n"
End
Sub
Private Sub Command27_Click()
Text1.Text = Text1 + "é"
End
Sub
Private Sub Command28_Click()
Text1.Text = Text1 + "à"
End
Sub
Private Sub Command29_Click()
Text1.Text = Text1 + "ç"
End
Sub
Private Sub Command3_Click()
Text1.Text = Text1 + "e"
End
Sub
Private Sub Command30_Click()
Text1.Text = Text1 + "*"
End
Sub
Private Sub Command31_Click()
Text1.Text = Text1 + "1"
End
Sub
Private Sub Command32_Click()
Text1.Text = Text1 + "2"
End
Sub
Private Sub Command33_Click()
Text1.Text = Text1 + "3"
End
Sub
Private Sub Command34_Click()
Text1.Text = Text1 + "4"
End
Sub
Private Sub Command35_Click()
Text1.Text = Text1 + "5"
End
Sub
Private Sub Command36_Click()
Text1.Text = Text1 + "6"
End
Sub
Private Sub Command37_Click()
Text1.Text = Text1 + "7"
End
Sub
Private Sub Command38_Click()
Text1.Text = Text1 + "8"
End
Sub
Private Sub Command4_Click()
Text1.Text = Text1 + "r"
End
Sub
Private Sub Command40_Click()
Text1.Text = Text1 + "0"
End
Sub
Private Sub Command41_Click()
Text1.Text = saveText1
End
Sub
Private Sub Command42_Click()
Text1.Text = Text1 + "("
End
Sub
Private Sub Command43_Click()
Text1.Text = Text1 + ")"
End
Sub
Private Sub Command44_Click()
Text1.Text = Text1 + "="
End
Sub
Private Sub Command45_Click()
Text1.Text = Text1 +
"+"
End Sub
Private Sub Command46_Click()
Text1.Text = Text1 + "-"
End
Sub
Private Sub Command47_Click()
Text1.Text = Text1 + "."
End
Sub
Private Sub Command48_Click()
Text1.Text = Text1 + ":"
End
Sub
Private Sub Command49_Click()
Text1.Text = Text1 + ";"
End
Sub
Private Sub Command5_Click()
Text1.Text = Text1 + "t"
End
Sub
Private Sub Command50_Click()
Text1.Text = Text1 + ","
End
Sub
Private Sub Command51_Click()
Text1.Text = Text1 + "/"
End
Sub
Private Sub Command52_Click()
Text1.Text = Text1 + " "
End
Sub

Private Sub Command53_Click()
Text1.Text = "www." + Text1 +
".com"
End Sub

Private Sub Command54_Click()
MsgBox "sortire de programme?",
vbOKCancel
End
End Sub
Private Sub Command55_Click()
Text1.Text = "khalidboutam
boutamkhalid@gmaim.com "
End Sub
Private Sub Command56_Click()
Text1.Text = Time
End
Sub
Private Sub Command57_Click()
Clipboard.SetText
Text1.Text
End Sub
Private Sub Command58_Click()
Text1.Text = Date
End
Sub

Private Sub Command6_Click()
Text1.Text = Text1 + "y"
End
Sub
Private Sub Command60_Click()
Form3.Show
Form2.Hide
End
Sub
Private Sub Command7_Click()
Text1.Text = Text1 + "u"
End
Sub
Private Sub Command8_Click()
Text1.Text = Text1 + "i"
End
Sub
Private Sub Command9_Click()
Text1.Text = Text1 + "o"
End
Sub
Private Sub EE_Click()
Text1.SelText =
Clipboard.GetText()
End Sub
Private Sub Image1_Click()
Skin1.ApplySkin Me.hWnd
End
Sub
Private Sub Text2_Change()
Text2.Text = Time
End
Sub
Private Sub Timer1_Timer()
Interval = 1000
End
Sub
Private Sub ZZ_Click()
Clipboard.Clear
Clipboard.SetText
(Text1.SelText)
Text1.SelText = ""
End
Sub

مشكورة نادين تميز وابدااااااااااااااااااااااااع

زؤؤؤؤؤؤؤؤؤؤؤؤ نادين تسلم ايديك

زؤؤؤؤؤؤؤؤؤؤ نادين شكرا

زؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤ عالي نادين مشكورة

زؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤ اختي بانتظار جديدك

شششششششششششششششكرا