iven
14-11-2005, 06:54 PM
:rolleyes: :rolleyes: :rolleyes: :rolleyes: :rolleyes: :rolleyes: :) :) :) :) هذه المحاضرة مهمة لاصحاب وهوات البرمجة الفيجوال بيسك
انها معلومات راح تشوفها سهلة بس لمن تريد تستنتجها الله يعلم!!!!!!!!
ااذا كنت تود ان تصنع معالج النصوص خاص بالهاتف فالرجاء اقراء
هذه المعلومات التي استنتجتها بعد جهد متعب اتمنى ان لا يذهب هدرا
افتح فورم جديد
ضع به تيكست ليكن مجموعهم 4
ضع مفتاح او انشئ قائمة حسب الرغبة بالديكور الذي تريدة
ضع الكود التالي داخل المفتاح او امرالذي خصصته في القائمة الذي
راح تسميه حفظ
Private Sub save_Click()
CommonDialog1.Filter = "nokia Text Message Editor (*.vmg)|*.vmg"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text2, Text1, Text4, Text3
Close #1
End If
End Sub
ضع الشفرة التالية في التيكست2
BEGIN:VMSG
VERSION:1.1
X-IRMC-STATUS:UNSENT
X-IRMC-BOX:INBOX
BEGIN:VCARD
VERSION:2.1
N:
TEL:
END:VCARD
BEGIN:VENV
BEGIN:VCARD
VERSION:2.1
N:
TEL:
END:VCARD
BEGIN:VENV
BEGIN:VBODY
Date:12:00:00 AM
ضع الشفرة التاليةفي التيكست3
END:VBODY
END:VENV
END:VENV
END:VMSG
لا تنسى ان تضع عداد الاحرف
الذي كوده هو
Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub
يا الله اترخص واتمنى ان ماقصرت معكم
مع تحيات المبرمج آيفن اشتن
من العراق-بصرة
للمزيد من المعلومات
ivenprvb@yahoo.com
سمعوني ارائكم بعد ماتنفذوه او تقروه
اووووووووووووووووووووووووووووووكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــي
انها معلومات راح تشوفها سهلة بس لمن تريد تستنتجها الله يعلم!!!!!!!!
ااذا كنت تود ان تصنع معالج النصوص خاص بالهاتف فالرجاء اقراء
هذه المعلومات التي استنتجتها بعد جهد متعب اتمنى ان لا يذهب هدرا
افتح فورم جديد
ضع به تيكست ليكن مجموعهم 4
ضع مفتاح او انشئ قائمة حسب الرغبة بالديكور الذي تريدة
ضع الكود التالي داخل المفتاح او امرالذي خصصته في القائمة الذي
راح تسميه حفظ
Private Sub save_Click()
CommonDialog1.Filter = "nokia Text Message Editor (*.vmg)|*.vmg"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text2, Text1, Text4, Text3
Close #1
End If
End Sub
ضع الشفرة التالية في التيكست2
BEGIN:VMSG
VERSION:1.1
X-IRMC-STATUS:UNSENT
X-IRMC-BOX:INBOX
BEGIN:VCARD
VERSION:2.1
N:
TEL:
END:VCARD
BEGIN:VENV
BEGIN:VCARD
VERSION:2.1
N:
TEL:
END:VCARD
BEGIN:VENV
BEGIN:VBODY
Date:12:00:00 AM
ضع الشفرة التاليةفي التيكست3
END:VBODY
END:VENV
END:VENV
END:VMSG
لا تنسى ان تضع عداد الاحرف
الذي كوده هو
Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub
يا الله اترخص واتمنى ان ماقصرت معكم
مع تحيات المبرمج آيفن اشتن
من العراق-بصرة
للمزيد من المعلومات
ivenprvb@yahoo.com
سمعوني ارائكم بعد ماتنفذوه او تقروه
اووووووووووووووووووووووووووووووكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــي