neoabd

اصنع صندوق خاص بك لتحقيق ذلك فلا اعتقد ان inputbox توفر لك الخيارات المذكورة

لقد اعددت لك المثال التالي لعله يساعدك في هدفك و اتمنى ان اكون قد فهمت قصدك Private Sub Command1_Click() Me.Cls n1 = Val(Text1.Text) xstar = 100 ' بداية الخط xend = 5320 ' نهاية الخط For X1 = xstar To xend Step xend / n1 PSet (X1, 1400), vbRed Next End Sub بال…

الا من مجيب وكأن المندى مغلق..................

استعمل اداة toolbar فهي الحل الوحيد لهذه البرامج

استعمل الأداة toolbar

اليك الكود الاتي اتمنى ان يفيدك Private Sub Command1_Click() Dim i Dim str As String i = InStr(1, Text2.Text, Text1.Text, vbTextCompare) If i <> 0 Then 'لتحديد النص Text2.SetFocus Text2.SelStart = 1 Text2.SelLength = 2 str = Text2.SelText '............. Else M…

السلام عليكم و رحمة الله تعالى و بركاته. انا بجاجة ماسة الى برنامج TOOLBOOK باي اصدار لذا ارجوا من الاخوة في المنتدى بحث كثيرا لكني لم اعثر الا على الرابط التالي و هو لايعمل ftp://63.251.167.213/toolbook/Instructor85trialCD.exe اعطائي رابط فعال للتحميل ..مع جز…

اقترح عليك الحل التالي انشئ اجراء يكون له علاقة بالرقم المدخل Private Sub Command1_Click() showform End Sub Public Sub showform() Dim c As Integer Randomize c = Int(4 * Rnd) + 1 Text1 = c Select Case c Case 1 Form1.Show Case 2 Form2.Show Case 3 Form3.Show Case…

السلام عليكم اخواني بالمنتدى انا بصدد اعداد برنامج تعليمي تفاعلي لدروس الفيزياء ، لكنني متردد بشان قدرة البيسيك في مثل هذا المجال ، فقد يصل عدد الفورمات الى 1000 رقم مخيف ، نظرا لان الدروس كثيرة و اغلبها يحوي اكثر من تجربة تفاعلية كالجاذبية و الانسحاب و السقوط…