منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مشروع] بسيط لاظهار الفورم واخفاء جزء منه فقط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] بسيط لاظهار الفورم واخفاء جزء منه فقط (/showthread.php?tid=30924)

الصفحات: 1 2


بسيط لاظهار الفورم واخفاء جزء منه فقط - سعود - 16-08-19



الزر الايسر ذو الرقم 7 عند النقر عليه ينزل الفورم اسفل ويظل هذا الجزء ظاهر للنقر على الزر مرة اخرى ليعود
دردشة مع الاكواد فقط لا اكثر.
لا يوجد شيء بالمشروع الا هذه الجزئية فقط و نافذة حول

PHP كود :
Public Class Form1
    Dim Todown 
As Boolean False

    Private Sub Form1_Load
(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        Me
.Top My.Computer.Screen.WorkingArea.Bottom
        Me
.Left My.Computer.Screen.WorkingArea.Right - (My.Computer.Screen.WorkingArea.Width 2) - (Me.Width 2)
 
       Timer1.Start()
 
   End Sub

    Private Sub Timer1_Tick
(sender As System.ObjectAs System.EventArgsHandles Timer1.Tick
        Me
.Top -= 10
    End Sub

    Private Sub Form1_Move
(sender As ObjectAs System.EventArgsHandles Me.Move
        If Me
.Bottom <= My.Computer.Screen.WorkingArea.Bottom Then Timer1.Stop() : Me.Top My.Computer.Screen.WorkingArea.Bottom Me.Height
        If Todown 
True Then
            If Me
.Top >= (My.Computer.Screen.WorkingArea.Bottom Button1.HeightThen Timer2.Stop()
 
       End If
 
   End Sub



   
    Private Sub Fend_Click
(sender As System.ObjectAs System.EventArgsHandles Fend.Click
        Me
.Hide()
 
       Me.Close()
 
   End Sub

    Private Sub Timer2_Tick
(sender As System.ObjectAs System.EventArgsHandles Timer2.Tick
        Me
.Top += 20
    End Sub

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        If Todown 
False Then
            Button1
.Text 8
            Todown 
True
            Timer2
.Start()
 
       Else
            Button1
.Text 7
            Todown 
False
            Timer1
.Start()
 
       End If

 
   End Sub

    Private Sub About_Click
(sender As System.ObjectAs System.EventArgsHandles About.Click
        Panel1
.Controls.Clear()
 
       Dim ab As New Aboutme
        Panel1
.Controls.Add(ab)
 
   End Sub
End 
Class 
المشروع مرفق.
[attachment=22574]



RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - ابو روضة - 17-08-19

بارك الله فيك اخى سعود دخول جميل للفورم...
لكن لاحظت ان مجلد الDebug لا يوجد به أى ملفات غير الملف التنفيذى فقط
حتى بعد ما عملت له بيلد ازاى هذا ؟



RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - سعود - 17-08-19

(17-08-19, 06:13 AM)ابو روضة كتب :
بارك الله فيك اخى سعود دخول جميل للفورم...
لكن لاحظت ان مجلد الDebug لا يوجد به أى ملفات غير الملف التنفيذى فقط
حتى بعد ما عملت له بيلد ازاى هذا ؟

وفيك بارك الله 
هذا من خصائص المشروع انظر لتبويب Debug  و compile







ونت راح تعرف شلون سويتها
الاخيرة بعد نقر زر Advance compile


RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - ابو روضة - 17-08-19

(17-08-19, 06:21 AM)سعود كتب :
(17-08-19, 06:13 AM)ابو روضة كتب :
بارك الله فيك اخى سعود دخول جميل للفورم...
لكن لاحظت ان مجلد الDebug لا يوجد به أى ملفات غير الملف التنفيذى فقط
حتى بعد ما عملت له بيلد ازاى هذا ؟

وفيك بارك الله 
هذا من خصائص المشروع انظر لتبويب Debug  و compile







ونت راح تعرف شلون سويتها
الاخيرة بعد نقر زر Advance compile


طب منا معلم على كل هذا لكن يوجد ملفات من الملف التنفيذى
ولا تقصد انزع التحديد من عليهم



RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - سعود - 17-08-19

إقتباس :طب منا معلم على كل هذا لكن يوجد ملفات من الملف التنفيذى
اخي الكريم اقصد قارنها باي مشروع افتراضي بتحصلها متعلم عليها لكن في مشروعي الغيتها.


RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - ابو روضة - 17-08-19

(17-08-19, 06:38 AM)سعود كتب :
إقتباس :طب منا معلم على كل هذا لكن يوجد ملفات من الملف التنفيذى
اخي الكريم اقصد قارنها باي مشروع افتراضي بتحصلها متعلم عليها لكن في مشروعي الغيتها.

ايوه ايوه أخى فهمتها الآن جزاك الله كل الخير.....
لكن هل هذا له فائدة أو ما فائدته ؟ معذرة أخى هذه معلومة جديدة تعلمتها منك الآن


RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - سعود - 17-08-19

إقتباس :لكن هل هذا له فائدة أو ما فائدته ؟ معذرة أخى هذه معلومة جديدة تعلمتها منك الآن
معذرة اخي الكريم لم استخدمها لاني اعلم عن فائدتها لكني انزعج من وجودها فقط هذا كل مافي الامر ...لانه يكفي ملف التكوين الاساسي الخاص بـvbp اجتهاد شخصي او مزاجSmile.


RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - ابو روضة - 17-08-19

(17-08-19, 06:45 AM)سعود كتب :
إقتباس :لكن هل هذا له فائدة أو ما فائدته ؟ معذرة أخى هذه معلومة جديدة تعلمتها منك الآن
معذرة اخي الكريم لم استخدمها لاني اعلم عن فائدتها لكني انزعج من وجودها فقط هذا كل مافي الامر ...لانه يكفي ملف التكوين الاساسي الخاص بـvbp اجتهاد شخصي او مزاجSmile.

ربنا يباركلك أخى سعود فأنت تتلاعب بالبرمجة كما تشاء وعلى مزاجك وكما تريد فى إكتشاف الجديد..



RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - سعود - 17-08-19

حسب ما فهمته من البرمجة انك ان اردت نسخ الملف التنفيذي  لنشره باي طريقة كانت فالافضل  تعديل مجلد الاخراج الى Release  لانه الانسب لانه يكون مهيأ للنشر  والله تعالى اعلم.


RE: بسيط لاظهار الفورم واخفاء جزء منه فقط - ابو روضة - 17-08-19

(17-08-19, 07:01 AM)سعود كتب : حسب ما فهمته من البرمجة انك ان اردت نسخ الملف التنفيذي  لنشره باي طريقة كانت فالافضل  تعديل مجلد الاخراج الى Release  لانه الانسب لانه يكون مهيأ للنشر  والله تعالى اعلم.

وهذا فعلا ما أقوم به أنا دائماً  وهذه المعلومة أول ما عرفتها فى البرمجة قرأتها فى ملزمة