1. مقدمة
كما نعلم جميعًا، يوفر Visual Basic 5.0 (VB5.0) أدوات وآليات كاملة مطلوبة لتنفيذ برامج Windows المتقدمة، وقد تم الاعتراف بوظائفه القوية من قبل غالبية مطوري البرامج؛ ويلعب Explorer دورًا مهمًا آخر في التطور السريع لبرامج اليوم إن تأثير الإنترنت الذي لا يمحى، وقدرتها على معالجة HTML يثير إعجاب كل مستخدم. وإذا تم الجمع بين VB5.0 وExplorer، فلن يكون هذا مجرد زينة على الكعكة، بل سيكون أكثر قوة. من الناحية النظرية، يوفر VB5.0 جوانب مختلفة من الخبرة للإنترنت، ويمكن لـ Explorer استخدام VBScript لتوسيع وظائفه، ومع ذلك، في التنفيذ الفعلي، سيواجه المبرمجون مشكلات من نوع أو آخر باتباع هذه الطريقة، يمكن للمستخدمين الاتصال بـ Explore في أي مكان في برنامج VB5.0 الخاص بهم لتسهيل استخدام "ملفات المساعدة" أو "الارتباطات التشعبية".
2. طريقة التنفيذ
حدد أولاً "Project/Components" في قائمة VB5.0، ثم حدد عنصري التحكم MicrosoftInternetcontrols وMicrosoftcommonDialogControl5.0 لإضافة رمزي WebBrowser وCommodialog إلى شريط الأدوات، ثم أخيرًا، في نموذج Form1، كما هو موضح في الشكل 1، قم بتقديم تسميتين ونص واحد وثلاثة أوامر وCommoDialog واحد. التسميات التوضيحية للأوامر الثلاثة هي "Browse" و"Open HTM" و"Cancel"، والتي يتم استخدامها. للكتابة، من المناسب تسمية Commodialog كقرص مضغوط.
في البرنامج، يتم إنشاء هدف من النوع II في Internet Explorer عن طريق استدعاء الأسلوب ii.Navigatetext1، navNoreadfromcache، يتم إعطاء اسم ملف HTML بواسطة text1.text، أي يتم إعطاء عنوان URL من خلال Text1 بهذه الطريقة لا يمكن استخدام VB5 فقط يمكن لبرنامج .0 فتح نافذة Explorer بحرية، كما يتم تحديد عنوان URL ومظهر النافذة بواسطة VB5.0 لجعل الأمر أكثر وضوحًا، قم بإزالة StandardButtons وAddressBar والارتباطات وTextLabels في عرض/خيارات/عام في Explorer.
من بينها، يمكن إدخال عنوان URL مباشرة أو تحديده من خلال التصفح.
3. الإجراء
ديمي
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
"(*.txt)|*.txt|AllFiles(*.*)|*.*"
Cd.ShowOpen
Text1=Cd.filename
Command2.Visible=True
EndSub
PrivateSubCommand2_Click()
Setii=GetObject(""،INTERNETEXPLORER.application")
ii.NavigateText1، navNoReadFromCache
ثانيا.مرئي = 1
ثانيا.الأعلى=0
ثانيا. اليسار = 0
ii.Width=Form1.Width
ii.Height=Screen.Height
EndSub
PrivateSubCommand3_Click()
النص 1 = ""
UnloadMe
EndSub
PrivateSubForm_Load()
Form1.Top=Screen.Height/4
Form1.يسار = 0
Form1.Width=Screen.Width
Form1.Height=Screen.Height/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName = "Heold"
Label1.FontSize=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
التسمية 2.Caption = "HTML"
Label2.FontName = "فرشاة"
Label2.FontSize=24
Command2.Visible=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13ثم
Setii=GetObject(""،INTERNETEXPLORER.APPLICATION")
ii.NavigateText1، navNoReadFromCache
ثانيا.مرئي = 1
ثانيا.الأعلى=0
ثانيا. اليسار = 0
ii.Width=Form1.Width
ii.Height=Screen.Height
EndIf
EndSub->