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

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

مقدمة :

إعداد صفحة ويب 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.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">  نصوص ، و صور ، وأصوات ، وأوامر > HTML<center> </H4>

<HR>

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

<br>

</iframe>

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 باستخدام فيجوال بيسك

مشروع

صفحة البداية

فيجوال متقدم

أعلي الصفحة

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

مقدمة :

مقدمة :

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

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

الأداة Scriptlet

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

مشروع

مقدمة :