PDA

View Full Version : اجرا کردن یک سری کد HTML در TextBox در WebBrowser


abolfazl-z
چهارشنبه 28 تیر 1391, 17:32 عصر
سلام من یک سری کد اچ تی ام ال در تکس باکس دارم که می خواهم توی مرورگری که در پروژه ام ادد کردم اجرا کنم چطوری؟؟؟؟؟
Salar.Shayegan
چهارشنبه 28 تیر 1391, 17:43 عصر
خب اگه بخوای از مرورگر های آماده استفاده کنی و در تکست باکست کد HTML نوشتی تا در مرورگر خارج از برنامه اجرا بشه از این کد استفاده کن:


Private Sub cmdTest_Click()
dim Saving as string
saving = Text1.Text

Open "c:\Test File.html" For Output As #7
Print #7, saving
Close #7
Shell ("explorer c:\Test File.html"), vbNormalFocus

End Sub



Text1 اسم تکس باکست هست.
CmdTest اسم دکمه ی تست کد هست.
محسن واژدی
چهارشنبه 28 تیر 1391, 17:49 عصر
سلام علیکم
هچنین میتوانیم از متد Document.write بمنظور نوشتن استفاده کنیم

کد زیر را بررسی کنید:
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank" 'open blank page, first
End Sub
Private Sub Command1_Click()

WebBrowser1.Document.write "<html><body><script>alert('Hi my friend!')</script><h3>This is sample text</h3></body></html>"

End Sub

موفق باشید
Salar.Shayegan
چهارشنبه 28 تیر 1391, 17:59 عصر
خب حالا یک سوال برای من پیش آمد:
این کدی که من نوشتم مرورگر Internet Explorer را باز میکند و کد های HTML را در آن اعمال میکند.
اگر بخواهم مرورگر را برای دستوری که در همین تاپیک نوشتم عوض کنم باید چکار کنم؟
محسن واژدی
چهارشنبه 28 تیر 1391, 18:09 عصر
خب حالا یک سوال برای من پیش آمد:
این کدی که من نوشتم مرورگر Internet Explorer را باز میکند و کد های HTML را در آن اعمال میکند.
اگر بخواهم مرورگر را برای دستوری که در همین تاپیک نوشتم عوض کنم باید چکار کنم؟
میتوانید از APIی ShellExecute استفاده کنید:
http://barnamenevis.org/showthread.php?336369-%D8%A8%D8%A7%D8%B2%D8%B1-%D9%83%D8%B1%D8%AF%D9%86-%D9%84%D9%8A%D9%86%D9%83-%D9%8A%D9%83-%D8%B3%D8%A7%D9%8A%D8%AA-%D8%AA%D9%88%D8%B3%D8%AA-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%88-%D9%86%D9%85%D8%A7%D9%8A%D8%B4-%D8%AF%D8%B1-%D9%85%D8%B1%D9%88%D8%B1%DA%AF%D8%B1&p=1486897&viewfull=1#post1486897

موفق باشید
Salar.Shayegan
چهارشنبه 28 تیر 1391, 19:08 عصر
منظور من این بود که در همین دستور مرورگر رو به جای IE بکنم FireFox.
راه حلی ندارد؟
محسن واژدی
چهارشنبه 28 تیر 1391, 19:15 عصر
میتوانیم مسیر برنامه fire-fox را جایگزینexplorer کنیم، کد زیر را هم بررسی کنید:
Private Sub Command2_Click()
Shell ("""C:\Program Files\Mozilla Firefox\firefox.exe"" ""c:\Test File.html"""), vbNormalFocus
End Sub


موفق باشید