Web browser "I need help"

أخي العزيز هذه ما أملكه أرجو أن يفيدك :

كود النسخ :

If Text1.SelText = "" Then

MSGBOK "حدد النص"

ELSE

Clipboard.Clear





Clipboard.SetText txtMyText.SelText

ENDIF

كود اللصق :

If Text1.SelText = "" Then

MSGBOX "قم بتحديد النص"



Else

Clipboard.Clear

Clipboard.SetText txtMyText.SelText

txtMyText.SelText = ""

أخوك : سعد (f)

عند تصفحي أحد المواقع وجدت التالي أرجو أن يفيدك :

1. شعل فجول بيسك 6

2. وأختار Standard EXE ثم أضغط على OK كما في الصورة

3. وأختار Components من قائمة Project

4. وأختار من المربع Microsoft Internet Controls ثم أضغط علىClose

5. ضع مربع نص وسمه txtURL

6. ضع مربع تسمية واجعل عنوانه

"أكتب العنوان الذي تريد الذهاب إليه"

7. ضع زر أمر بعنوان

"أذهب"

8. ضع الأداة الجديدة

لكتابة الكود

Private Sub Command1_Click()

WebBrowser1.Navigate txtURL.Text

Form1.Caption = "جاري تحميل الصفحة"

End Sub



Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Form1.Caption = "تم تحميل الصفحة" & txtURL.Text

End Sub

ويمكن إضافة الكود التالي للتحسينات

Private Sub Form_Resize()

If Form1.Width < 8000 Then Form1.Width = 8000

TxtURL.Top = Form1.Height - TxtURL.Height - 500

Label1.Top = Form1.Height - Label1.Height - 500

Command1.Top = Form1.Height - Command1.Height - 500

WebBrowser1.Height = Form1.Height - Command1.Height - 550

WebBrowser1.Width = Form1.Width

End Sub

للذهاب إلى الصفحه الرأيسيه المسجله لل home

WebBrowser1.GoHome

و أي شيء تحتاجه أنا جاهز .

أخوك : سعد (f)