mordant_eagle21

طيب أخي اي واحد من هذول الاكواد صح : If 48 <= KeyAscii And KeyAscii <= 57 Then KeyAscii = 0 أم : If KeyAscii <= 48 And KeyAscii <= 57 Then KeyAscii = 0

أخي ضع هذا الكود في التايمر Select Case frame1.Visible Case True frame1.Visible = False Case False frame1.Visible = True End Select وهذا في Load Timer1.Interval = 100 حيث 100 هي سرعة التايمر والله أعلم

ممكن أعرف ماذا يعني هذا الكود If 48 <= KeyAscii And KeyAscii <= 57 Then KeyAscii = 0

اول شيء أتأكد ان الموديم متعرف واتبع خطواط الاخ TopSec . واذا كانت غير متعرفه كما في الشكل اتأكد ان الموديم مثبتة بشكل جيد على اللوحة الام وأدخل CD التعريف وعرفها من جديد

Open App.Path + "\mydata.dat" For Binary As #1 أقصد بهذا المسار انه ينشأ ملف جديد داخل مجلد البرنامج Put #1, , Image1 هنا انا لا أقصد بImage بمتغير ولكن هي اداة image يعني انا عايز اضع الصورة اللي في image في الملف . ارجو ان تكون الفكرة واضحة

مشكور أخي على الرد ... بالاول ما كنت فاهم Binary بس الحمد لله بعد ما حضرتك كتبت الكود انا بحثت عنه وفهمته وجربت ان اكتب كود بنفسي عنه لكن يظهر رسالة خطأ : كود الانشاء : Open App.Path + "\mydata.dat" For Binary As #1 كود الحفظ : Put #1, , Image1 Close #1 MsgBox…

نعم أخي انا نزلت النسخة من مايكروسوفت على هذا الرابط http://www.microsoft.com/express/download/ أو من هنا http://www.microsoft.com/downloads/details...;displaylang=en

السلام عليكم كيف حالكم اخواني وكيف حالك أخ Amir انا مبرمج فيجول بيسك 6.0 وأود ان أتعلم لغة الفيجول دوت نت 2008 وليس الانتقال :lol: ونزلت الفيجول بيسك من موقع مايكروسوف ..... وبصراحة شكلها لغة أحسن بكثير من الاصدار القديم. أريد منكم كتاب لهذه اللغة لاني بحثت عل…

اخواني : أريد حفظ صورة في قاعدة بيانات واسترجاعها ..... انا صار لي سنة وانا ببحث ولكن أكثر الاكواد معقدة كثييييييييييييير انا أرفقت المثال وارجو أن تساعدوني في الطريقة example.rar

اخي والله أعلم ان الرسالة الاولي تظهر عند الخطأ في كود moveNext أو Move Last . أما الرسالة الثانية في حالة انك كتبت حقل غير موجود في الجدول ....

اخواني هل نزل كتاب لهذه اللغة ؟؟؟

حضرتك موصل نت عن طريق الموديم ولا Lan ؟ وهل هذا حصل فجأة ولا بعد تنصيب الويندوز ؟

أخي اذا بتستخدم WindowsMediaPlayer فعليك ان تستخدم خاصية URL وليس File Name والله أعلم

اخواني أريد ان اجعل العناصر المختارة من الاداة تكون بلون مميز ... فهل هناك خطأ في هذا الكود؟ For i = 1 To List1.ListCount - 1 If List1.Selected(i) = True Then List1.ForeColor = QBColor(5) End If Next

مشكورين اخواني على تعاونكم ممكن أعرف طريقة كتابة Ascii code

وهل هذا يعني اني ممكن أكتب أسماء الازرار بدلا من tab ؟؟

مشكور أخي انا كنت فاهم الكود خطأ

أخواني انا كتبت هذا الكود لكن مش عارف ليه مش راضي يتنفذ Dim T As Byte T = 1 Do While T = 20 T = T + 1 Print T Loop

أخي تفضل هذا مثال ان شاء الله يفيدك test.rar

أخي انت ممكن تستخدم جملة IF وتقول ان لو الدرجة أقل من الصفر يعمل حاجه معينة والله أعلم