Make your own free website on Tripod.com

فيجوال بيسك ومواقع الإنترنت

إعداد الدكتور / محمود بدر

مقدمة :

أداة مستعرض المواقع  Wep Browsing

الأداة Scriptlet

إعداد صفحة ويب Web باستخدام فيجوال بيسك

مشروع

مقدمة :

 

تمكنك فيجوال بيسك من تصميم نماذج Forms أو نوافذ مشاريع تعرض إعلانات    announcements ، و تعليمات خاصة ، وكل المعلومات المتكررة ، وسوف يتاح للمستخدم عرض المعلومات مباشرة ، فأداة مستعرض المواقع تمكنك من عرض المواقع من داخل تطبيقاتك –برامج الفيجوال بيسك- وأداة مستعرض المواقع تشبه مستعرض الإنترنت ، فيمكنها عرض صفحات HTML ، ومن الممكن معالجة الوثيقة في الأداة مباشرة من خلال الأداة IE Scripting حيث يمكنك كتابة تطبيقات الفيجوال بيسك التي تولد شفرة HTML ، بل وتضعها في أداة مستعرض المواقع ، وبعبارة أخري يمكنك تطوير تطبيقات فيجوال بيسك تنشئ وثائق HTML ، وتعرضها في مستعرض المواقع .

 

أداة مستعرض المواقع  Wep Browsing

يحتاج مبرمجو فيجوال بيسك لأداتين حتى يتمكنا من معالجة المواقع ، والربط الفائق hyperlink بتطبيقاتك ، لذا أنت بحاجة لأداتين في الوقت الحالي هما :

أ‌-     أداة مستعرض المواقع WepBrowser .

ب‌-أداة مستعرض الإنترنت InernetExplore .

والواقع أن أداة مستعرض الإنترنت هي ActiveX يمكنها عرض وثائق HTML ، بينما أداة مستعرض الإنترنت هي أداة OLE تستخدم في التحكم في مستعرض الإنترنت .

 

إضافة مستعرض المواقع WebBrowser :

انقر علي نافذة الأدوات بالزر الأيمن

 

 

اختر مكونات components سوف تظهر لك نافذة المكونات ، منها اختر أدوات مستعرض الإنترنت Microsoft Internet Controls

 

 

شكل الأداة علي نافذة المشروع

شكل الأداة علي نافذة الأدوات

 

ويجب أن تحدد الحجم المناسب للأداة علي نافذة الأدوات ، لأن المستخدم لن يمكنه تغيير حجمها في وقت التشغيل ، و حتى  تعرض صفحة ويب Wep Page في أداة مستعرض المواقع ، استخدم خاصية الإبحار Navigate ، ويمكنك التحرك عبر قائمة URL والتي تعرض من خلال الطريقتين GoBack ، و GoForward ، فأداة مستعرض المواقع تتذكر أوتوماتيكياً قائمة عناوين المواقع التي تم زيارتها :

 

المشروع :

ضع الأدوات التالية :

خواصها

 

الأداة

BrowserForm

name

الأسم

Form1

نافذة المشروع

9400

Width

الاتساع

 

 

7200

Height

الارتفاع

 

 

أخضر

BackColor

الخلفية

 

 

أداة مستعرض المواقع

Caption

العنوان

 

 

5715

Height

الارتفاع

WebBrowser1

مستعرض مواقع الانترنت

9400

Wdith

الاتساع

 

 

WebBrowser1

Name

الاسم

 

 

CommonDialog1

Name

الاسم

CommonDialog1

أداة المربعات الحوارية

HTML فتح ملف

Caption

 

Command2

أداة الأوامر

Command2

Name

 

 

 

 اعرض  URL

Caption

 

Command1

أداة الأوامر

Command1

Name

 

 

 

إيقاف العرض

Caption

 

Command3

أداة الأوامر

Command3

Name

 

 

 

خروج

Caption

 

Command4

أداة الأوامر

Command4

Name

 

 

 

Combo1

Name

الاسم

Combo1

أداة القائمة المركبة

مواقع الانترنت

Text

 

 

 

 

تعريف متغير منظومة بعده 4 ، و ه كعدد صحيح

Dim xxwep(4)

Dim i As Integer

في حدث النقر للقائمة المركبة  اكتب

Private Sub Combo1_Click()

If Combo1.ListIndex = 0 Then xxwep(0) = "http://www.ahmedbadr.bizland.com"

If Combo1.ListIndex = 1 Then xxwep(0) = "http://www.mbadr3630.bizland.com"

If Combo1.ListIndex = 2 Then xxwep(0) = "http://www.mbadr.hypermart.net"

If Combo1.ListIndex = 3 Then xxwep(0) = "http://www.mbadr.hypermart.net"

Label1.Caption = xxwep(0)

End Sub

وفي حدث النقر للزر Command1 أكتب :

Private Sub Command1_Click()

WebBrowser1.Navigate xxwep(0)

End Sub

وفي حدث النقر للزر Command1 أكتب :

Private Sub Command2_Click()

CommonDialog1.CancelError = True

On Error GoTo CancelOpen

CommonDialog1.Filter = "HTML Files|*.HTM|Text Files|*.TXT|All Files|*.*"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

    WebBrowser1.Navigate CommonDialog1.FileName

End If

Exit Sub

 

CancelOpen:

    Exit Sub

End Sub

وفي حدث النقر للزر Command3 أكتب :

Private Sub Command3_Click()

    WebBrowser1.Stop

End Sub

وفي حدث النقر للزر Command3 أكتب :

 

Private Sub Command4_Click()

    End

End Sub

وفي حدث تحميل نافذة المشروع أكتب :

Private Sub Form_Load()

    Combo1.AddItem "فيجوال بيسك للجميع"

    Combo1.AddItem "لوجو للجميع"

    Combo1.AddItem "تعليم الرياضيات"

    Combo1.AddItem "الكمبيوتر التعليمي"

    Combo1.ListIndex = 0

End Sub

 


الأداة Scriptlet

هذه الأداة تتيح لك عرض صفحة HTML – يمكن تصفحها علي مستكشف الإنترنت- ، و أبرز خواصها هي خاصية URL التي تتيح لك عرض الصفحة وسوف تشاهدها في طور التصميم ولكن لن تتمكن من التعامل معها إلي طور التشغيل ويجب أن تضبط حجم الأداة  وأن تراعي أن الأداة لا تتمتع بالخاصية Height

في نافذة المشروع

في نافذة الأدوات

 

ويمكنك كتابة عنوان صفحتك في الخاصية url والأداة لا تدعم تغيير العنوان أثناء التنفيذ ، وبالتالي سوف تري فقط العنوان الذي وضعته في أثناء التصميم

 

كيفية  وضع الأداة في نافذة الأدوات :

انقر نافذة الأدوات واختر مكونات components ثم علم المربع الذي يشير للأداة وهو :Microsoft HTML Object Library

 


إعداد صفحة ويب Web باستخدام فيجوال بيسك

    لنفرض أننا نرغب في إعداد صفحة ويب Wep ، وعرضها باستخدام أدوات فيجوال بيسك ، فأنت بحاجة لعدة أمور :

وضع أداة تدعم الحفظ بطريقة الأسكي ، وتوفر فيجوال بيسك أداتين هما أداة النص Text وأداة النص الثرية Rich Text Format والأخيرة جيدة لتعاملها مع الألوان .

 أداة مستعرض المواقع WebBrowser  و شفرة توضح ذلك وربما قائمة 

 

مشروع

ابدأ مشروع فيجوال بيسك جديد وضع أداة مستعرض المواقع علي نافذة المشروع ، وأداة نص غنية ، وقائمة تتيح تصحيح ما أدخلته وتحويل ما كتبته بلغة html إلي صفحة المستعرض

أ‌-       افتح أيقونة  بناء القوائم  واكتب الشفرة الموجودة كما يلي :

 

 

الاسم

نوعه

العنصر

FileMenu

رئيسي-1

ملف

FileNew

فرعي

جديد

FileOpen

فرعي

فتح

FileSave

فرعي

حفظ

FileSaveAs

فرعي

حفظ باسم

NavigateTo

فرعي

فتح عنوان إنترنت

FileExit

فرعي

خروج

EditMenu

رئيسي

تحرير

EditCopy

فرعي

نسخ

EditCut

فرعي

قص

EditPaste

فرعي

لصق

EditClear

فرعي

مسح

EditAll

فرعي

اختيار الكل

ShorcutSeparator1

فرعي

-

EditRender

فرعي

ترجمة وتحويل

 

لا تضع أسماء في المرحلة الحالية ، واضبط الأداتين بحيث تضع أداة النص الغنية في أعلي ، وأداة مستعرض المواقع في الجزء السفلي من نافذة المشروع وحيئذ سوف تبدو نافذة المشروع كما يلي :

 

 

ضع الشفرة التالية :

Dim RestoreText

Dim OpenFileName

Dim ResizeWindows As Boolean

Dim DragStartY As Integer

Dim HTMLHeight As Integer, WebHeight As Integer

 

Private Sub EditAll_Click()

اختيار كل محتوي أداة النص الغنية

    RichTextBox1.SelStart = 0 ‘بدء الاختيار من الحرف رقم صفر (الأول)

   RichTextBox1.SelLength = Len(RichTextBox1.Text) ‘نهاية الاختيار طول حروف محتوي الأداة

   

End Sub

 

Private Sub EditClear_Click()

تفريغ أداة النص من النصوص

    RichTextBox1.Text = ""

   

End Sub

 

Private Sub EditCopy_Click()

تنظيف محتوي كليبرت ووضع محتوي أداة النص المختار فيه

    Clipboard.Clear

    Clipboard.SetText RichTextBox1.SelText

   

End Sub

 

Private Sub EditCut_Click()

تفريغ كليبرت

    Clipboard.Clear

وضع المحتوي المختار بالحافظة كليبرت

    Clipboard.SetText RichTextBox1.SelText

تفريغ أداة النص من النصوص

    RichTextBox1.SelText = ""

 

End Sub

 

Private Sub EditPaste_Click()

 

وضع محتوي الحافظة كليبرت في المتغير Temp

    Temp = Clipboard.GetText(vbCFText)

    SelTextStart = RichTextBox1.SelStart ‘بداية الاختيار

    SelTextEnd = Len(Temp) ‘وضع بداية الاختيار في المتغير

    RichTextBox1.SelText = Temp ‘وضع محتوي متغير الحافظة في الأداة

    RichTextBox1.SelFontName = RichTextBox1.Font

    RichTextBox1.SelBold = False

    RichTextBox1.SelItalic = False

    RichTextBox1.SelUnderline = False

    RichTextBox1.SelColor = vbBlack ‘جعل خلفية الأداة أسود

   

   

End Sub

 

Private Sub EditRender_Click()

 

    RenderDocument

   

End Sub

 

Private Sub EditUndo_Click()

 

    RichTextBox1.Text = RestoreText

   

End Sub

 

Private Sub EditSelect_Click()

 

    RichTextBox1.SelStart = 0

    RichTextBox1.SelLength = Len(RichTextBox1.Text)

   

End Sub

 

Private Sub FileExit_Click()

End

End Sub

 

Private Sub FileNew_Click()

 

    RichTextBox1.Text = ""

    OpenFileName = ""

   

End Sub

 

Private Sub FileOpen_Click()

On Error Resume Next

 

    CommonDialog1.Filter = "HML Documents|*.htm;*.html|ActiveX Documents|*.vbd|All Files|*.*"

    CommonDialog1.ShowOpen

    If Trim(CommonDialog1.FileName) = "" Then Exit Sub

    dPos = InStr(CommonDialog1.FileName, ".")

    If dPos > 0 Then ext = Mid$(CommonDialog1.FileName, dPos + 1)

    If UCase$(ext) = "HTM" Or UCase$(ext) = "HTML" Or UCase$(ext) = "TXT" Then

        RichTextBox1.LoadFile CommonDialog1.FileName, 1

        WebBrowser1.Navigate CommonDialog1.FileName

        OpenFileName = CommonDialog1.FileName

    End If

' The following lines handle non-HTML file types

' like sounds and images

 

    WebBrowser1.Navigate CommonDialog1.FileName

 

End Sub

 

Private Sub FileSave_Click()

 

    If OpenFileName <> "" Then

        RichTextBox1.SaveFile OpenFileName, 1

    Else

        FileSaveAs_Click

    End If

   

End Sub

 

Private Sub FileSaveAs_Click()

 

    CommonDialog1.DefaultExt = "htm"

    CommonDialog1.Filter = "HTML Documents|*.htm|All Files|*.*"

    CommonDialog1.ShowSave

    If CommonDialog1.FileName = "" Then Exit Sub

    RichTextBox1.SaveFile CommonDialog1.FileName, 1

    OpenFile = CommonDialog1.FileName

   

End Sub

 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    If Button = 1 And (Y > RichTextBox1.Top + RichTextBox1.Height) And (Y < WebBrowser1.Top) Then

        Screen.MousePointer = vbSizeNS

        ResizeWindows = True

        DragStartY = Y

        WebHeight = WebBrowser1.Height

        HTMLHeight = RichTextBox1.Height

    End If

   

End Sub

 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next

   

    If ResizeWindows Then

        RichTextBox1.Height = HTMLHeight + (Y - DragStartY)

        WebBrowser1.Move WebBrowser1.Left, RichTextBox1.Top + RichTextBox1.Height + 120, WebBrowser1.Width, WebHeight - (Y - DragStartY)

        HTMLEdit.Refresh

    End If

   

End Sub

 

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    ResizeWindows = False

    Screen.MousePointer = vbDefault

   

End Sub

 

Private Sub Form_Resize()

 

    RichTextBox1.Width = HTMLEdit.Width - RichTextBox1.Left - 200

    WebBrowser1.Width = RichTextBox1.Width

    RichTextBox1.Height = 0.3 * HTMLEdit.Height

    WebBrowser1.Move WebBrowser1.Left, RichTextBox1.Top _

    + RichTextBox1.Height + 120, WebBrowser1.Width, HTMLEdit.Height _

    - RichTextBox1.Top - RichTextBox1.Height - 940

    WebBrowser1.Navigate App.Path & "\empty.htm"

   

End Sub

 

 

Private Sub NavigateTo_Click()

 

    URL = InputBox("أدخل عنوان الإنترنت URL")

    If URL <> "" Then

        WebBrowser1.Navigate URL

    End If

   

End Sub

 

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    If Button = 2 Then

        PopupMenu shortcutMenu

    End If

 

   

End Sub

 

Private Sub ShortcutAll_Click()

    Call EditAll_Click

End Sub

 

 

Private Sub ShortCutClear_Click()

    HTMLEdit.RichTextBox1.Text = ""

End Sub

 

Private Sub ShortcutCopy_Click()

    Call EditCopy_Click

End Sub

 

 

Private Sub ShortcutCut_Click()

    Call EditCut_Click

End Sub

 

Private Sub ShortcutPaste_Click()

    Call EditPaste_Click

End Sub

 

Private Sub ShortcutRender_Click()

    RenderDocument

End Sub

 

Private Sub WebBrowser1_Validate(Cancel As Boolean)

Debug.Print "خطأ"

End Sub

اختبر البرنامج بما يلي :

ضع  شفرة HTML التالية في النافذة العلوية :

<HTML>

<HEAD>

<TITLE>Document title</TITLE>

</HEAD>

<BODY>

<H1>مثال لوثيقة من نوع  HTML  من خلال فيجوال بيسك   <center> </H1>

<HR>

<H3>مكونات الوثيقة</H4>

<HR>

 

<H3 align="right">&nbsp; نصوص ، و صور ، وأصوات ، وأوامر >  HTML<center> </H4>

<HR>

<p align="right">&nbsp;إعداد الدكتور / محمود بدر</p>

<br>

 <input type=button name='button1' value="مركز الكمبيوتر التربوي" >

<iframe> width=600 height=300>

</iframe>

 

<Script LANGUAGE="VBScript">

Document.Write "<h1> مرحباً </h1>"

 xx =inputbox  ("أدخل اسمك من فضلك")

yy=  "مرحباً يا صديقي" &"...." & xx

msgbox  yy

Document.bgcolor="#h00ff00"

Document.fgcolor="#h000cc"

 

 

sub button1_onClick ()

 

newurl=inputbox("من فضلك أكتب عنوان الموقع")

if newurl="" then

zz="أنت لم تختار اسم موقع وبالتالي سوف أختار لك مركز الكمبيوتر التربوي العربي" & "....."&"يا"&"..."& xx

msgbox  zz  

window.frames(0).location.href="http://www.mbadr.hypermart.net"

else

 window.frames(0).location.href=newurl

end if

end sub

 

</script>

  <br>

 

</BODY>

</HTML>

 

انقر الزر الأيمن واختر ترجمة وتحويل سوف تري تحول تلك الشفرة إلي صفحة ويب Wep في النافذة السفلي

 

 

 

الآن احفظ الملف ، وحاول استعراضه عن طريق مستكشف الإنترنت .

مقدمة :

أداة مستعرض المواقع  Wep Browsing

الأداة Scriptlet

إعداد صفحة ويب Web باستخدام فيجوال بيسك

مشروع

صفحة البداية

 

فيجوال متقدم

 

أعلي الصفحة