Andrew

Private Sub Command1_Click() Printer.FontName = "Tahoma" Printer.FontSize = 10 Printer.Print "الفريق العربي للبرمجة " Printer.Print "123456789" Printer.Print "قسم فيجوال بيسك 6" Printer.EndDoc End Sub و لو عايز تطبع BarCode ب نفس الطريقة بس هتختار خط BarCode

Private Sub Label1_DblClick(Index As Integer) Form2.Show Form1.Hide Form2.Text1 = Index + 1 End Sub

شوف الملف ده ممكن يفيدك Signal.rar

لو ينفع ترفع المثال

أزى أخذ جزء من صورة و أجعلة صورة جديدة

تسلم يدك يا رب يكون الكتاب مفيد شكراً و يا أبو فهيد الحمدو لله انك بتفهم عربى أنا ولا عربى ولا انجليزى انا فى الكلمتين دول بقالى نصف ساعة

شكرا لكى لمعلمواتك و أحب أن أوضح لكى ما أريد أنا عايز أبعت سجنال لكل الأجهزة بدون عمل Connect عشان ال مش عايز أهرف مبن من الأجهزة أون لين و أنا شوفتها معمولة عن طريق 0.255.255.255 بس أنا فى حاجة نقصة عندى مش عرفها و بألنسبة للكتاب شوفتو و كله بيتكلم عن الConne…

عايز أعرف لماذا المثال ده مش شغال WinSock.rar

عايز أعرف لماذا المثال ده مش شغال

SendKeys "{backspace}" SendKeys "{delete}" SendKeys "{F1}"

Create Form With Many Test Box And At Each Keyascii Event Write this If KeyAscii = 13 Then SendKeys "{tab}" And This mean I Press Tab

أنا أسف يا mSayed2004 وشكراً على مساعدتك ليه و كان عندى سؤال تانى هل فى برنامج تعرفة بيعمل العاب 3D و يكون الكود قريب من Vb مش Java Or C++

أقراء التعقيب داخل الكود و إن شاء الله هتفهم و تساعدنى و متشكر اوى غلى مساعدتك السريعة ده و لو عندك MSDN Help we katabt ContainerHwnd haigblak ely 2asdy 3aleh UserControl.rar

انا هشراحلك الموضوع كلة أنا بعمل OCX option button فعايز ألف على ال Controls ألى فى فرام أو الفورم ألى هيتحت فيها My Control و OCX لها دالة ContainerHwnd و فى الهلب قلى أستخدم خاصية API تديها HWND و ترجعلك الControl مهما كام Form Or Frame Or Tab Any thing

انا عايز API مش عارف أسمها بتاخد Hwnd ل Control و ترجع Object عشان بعمل OCX و Container lel OCX بيكون Hwnd و انا عايز Object

مفيش حاجة INSERT Statement يكون فيه Where

1 - El Id beta3ak string lazem te7ot ' Single Cout 2 - Anta makontehs 3amle Connectionwala me3araf RecordSet 3 - Matsamesh Field 2amso Id wala Name __________.rar

x = IIf(InStr(x, ".") > 0, Split(x, ".")(1), 0)

MOmken bel DataReport Te3mil Insert el Data ely fe el Grid fe Temp table we terbot el temp table be ely datareport

Ana katabt el Comment Fe el code Sorry walahy el Keyboard mehs 3aiz yekteb Arabic we bel Nesba lel A7' alt anta 3aiz shar7 el Code dah wala shar7 le 2ezai te3mil Save lel Picture Nafsaha Pic_from_Data.rar